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

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

[Ilya Shlyakhter]

[-- Attachment #1: Type: text/plain, Size: 871 bytes --]

* 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

[-- Attachment #2: Type: text/html, Size: 3044 bytes --]

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

[Achim Gratz]

Your patch got completely mangled, try again as an attachment of type
(text/plain).

Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

SD adaptations for KORG EX-800 and Poly-800MkII V0.9:
http://Synth.Stromeko.net/Downloads.html#KorgSDada

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

[Ilya Shlyakhter]

[-- Attachment #1: Type: text/plain, Size: 169 bytes --]

On 3/8/2012 2:39 PM, Achim Gratz wrote:
> Your patch got completely mangled, try again as an attachment of type
> (text/plain).
here, also at http://ilya.cc/imenu.patch

[-- Attachment #2: imenu.patch --]
[-- Type: text/plain, Size: 1017 bytes --]

From e3e6e7135663fb34a5318565e5663dd27fa7ce45 Mon Sep 17 00:00:00 2001
From: Ilya Shlyakhter <ilya_shl@alum.mit.edu>
Date: Thu, 8 Mar 2012 14:15:12 -0500
Subject: [PATCH] imenu: Added a check that looking-at succeeds before using
 the match results.

* 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

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

[Bastien]

Hi Ilya,

Ilya Shlyakhter <ilya_shl@alum.mit.edu> writes:

> On 3/8/2012 2:39 PM, Achim Gratz wrote:
>> Your patch got completely mangled, try again as an attachment of type
>> (text/plain).
> here, also at http://ilya.cc/imenu.patch

Applied, thanks.

-- 
 Bastien