Преглед на файлове

Fix `org-in-commented-heading-p'

* lisp/org.el (org-in-commented-heading-p): Fix recursive call.

http://permalink.gmane.org/gmane.emacs.orgmode/84294
Nicolas Goaziou преди 11 години
родител
ревизия
938e1ef3bf
променени са 1 файла, в които са добавени 2 реда и са изтрити 3 реда
  1. 2 3
      lisp/org.el

+ 2 - 3
lisp/org.el

@@ -23311,9 +23311,8 @@ unless optional argument NO-INHERITANCE is non-nil."
 	     (org-string-match-p (concat "^" org-comment-string "\\(?: \\|$\\)")
 				 headline)))))
    (no-inheritance nil)
-   (t (save-excursion
-	(and (org-up-heading-safe)
-	     (org-in-commented-heading-p t))))))
+   (t
+    (save-excursion (and (org-up-heading-safe) (org-in-commented-heading-p))))))
 
 (defun org-at-comment-p nil
   "Is cursor in a line starting with a # character?"