[O] [PATCH] imenu: Added a check that looking-at succeeds before using the match results.

[Ilya Shlyakhter]

* lisp/org.el (org-imenu-get-tree): Check that looking-at succeeds before
using match results.


TINYCHANGE

---
 lisp/org.el |    4
++--

 1 file changed, 2 insertions(+), 2
deletions(-)



diff --git a/lisp/org.el
b/lisp/org.el

index ad63213..e4fb497
100644

---
a/lisp/org.el

+++
b/lisp/org.el

@@ -21250,8 +21250,8 @@ Show the heading too, if it is currently invisible."
        (goto-char
(point-max))

        (while (re-search-backward re nil
t)

          (setq level (org-reduced-level (funcall
outline-level)))

-         (when (<= level
n)

-           (looking-at
org-complex-heading-regexp)

+         (when (and (<= level
n)

+                    (looking-at
org-complex-heading-regexp))

            (setq head
(org-link-display-format

                        (org-match-string-no-properties
4))
                  m
(org-imenu-new-marker))

--

1.7.9.3