awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

org-roam-up-heading-or-point-min: fix case where there is no heading

Browse Source
This commit is contained in:
Jethro Kuan
2021-03-25 03:01:38 +08:00
parent e19c3d6273
commit 47c3b024d7
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
org-roam-utils.el
View File

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