From c0bc6d79eab4c5e38e8eb84558d160f1eb8ed22d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 4 Sep 2009 03:09:44 +0000 Subject: [PATCH] (Footnote-text-under-cursor): Check footnote-text-marker-alist before using it (bug#4324). --- lisp/ChangeLog | 5 +++++ lisp/mail/footnote.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 (tiny change) + + * mail/footnote.el (Footnote-text-under-cursor): + Check footnote-text-marker-alist before using it (bug#4324). + 2009-09-04 Glenn Morris * 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)) -- 2.39.2