diff --git a/org-roam-utils.el b/org-roam-utils.el index 5c5ec45..4b74a18 100644 --- a/org-roam-utils.el +++ b/org-roam-utils.el @@ -63,14 +63,14 @@ (defun org-roam-up-heading-or-point-min () "Fixed version of Org's `org-up-heading-or-point-min'." - (when (ignore-errors (org-back-to-heading t)) - (let ((p (point))) - (if (< 1 (funcall outline-level)) - (progn - (org-up-heading-safe) - (when (= (point) p) - (goto-char (point-min)))) - (unless (= (point) (point-min)) (goto-char (point-min))))))) + (ignore-errors (org-back-to-heading t)) + (let ((p (point))) + (if (< 1 (funcall outline-level)) + (progn + (org-up-heading-safe) + (when (= (point) p) + (goto-char (point-min)))) + (unless (bobp) (goto-char (point-min)))))) (defun org-roam-message (format-string &rest args) "Pass FORMAT-STRING and ARGS to `message' when `org-roam-verbose' is t."