From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 4 Sep 2009 03:09:44 +0000 (+0000)
Subject: (Footnote-text-under-cursor):
X-Git-Tag: emacs-pretest-23.1.90~1486
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0bc6d79eab4c5e38e8eb84558d160f1eb8ed22d;p=emacs.git

(Footnote-text-under-cursor):
Check footnote-text-marker-alist before using it (bug#4324).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 155b4804ebd..7882d1b1b04 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-04  Leo  <sdl.web@gmail.com>  (tiny change)
+
+	* mail/footnote.el (Footnote-text-under-cursor):
+	Check footnote-text-marker-alist before using it (bug#4324).
+
 2009-09-04  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/diary-lib.el (diary-fancy-display): Only switch modes if
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 16a6adc1007..81f215dd726 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -566,7 +566,8 @@ a footnote."
 		   (Footnote-narrow-to-footnotes)
 		   (and (>= old-point (point-min))
 			(<= old-point (point-max))))))
-	     (>= (point) (cdar footnote-text-marker-alist)))
+	     footnote-text-marker-alist
+             (>= (point) (cdar footnote-text-marker-alist)))
     (let ((i 1)
 	  alist-txt rc)
       (while (and (setq alist-txt (nth i footnote-text-marker-alist))