From 2b13d090d124fe6a7a389def71696c3b477bf8f6 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 26 Feb 2013 22:02:13 +0100 Subject: [PATCH] org.el (org-imenu-get-tree): Fix bug when matching against empty headlines * org.el (org-imenu-get-tree): Fix bug when matching against empty headlines. Thanks to Jambunathan for reporting this. --- lisp/org.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 1e3ae5751..d61295b0d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -22213,7 +22213,7 @@ Show the heading too, if it is currently invisible." (re (concat "^" (org-get-limited-outline-regexp))) (subs (make-vector (1+ n) nil)) (last-level 0) - m level head) + m level head0 head) (save-excursion (save-restriction (widen) @@ -22221,9 +22221,9 @@ Show the heading too, if it is currently invisible." (while (re-search-backward re nil t) (setq level (org-reduced-level (funcall outline-level))) (when (and (<= level n) - (looking-at org-complex-heading-regexp)) - (setq head (org-link-display-format - (org-match-string-no-properties 4)) + (looking-at org-complex-heading-regexp) + (setq head0 (org-match-string-no-properties 4))) + (setq head (org-link-display-format head0) m (org-imenu-new-marker)) (org-add-props head nil 'org-imenu-marker m 'org-imenu t) (if (>= level last-level) -- 2.11.4.GIT