Преглед изворни кода

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?"