diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-04 03:09:44 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-04 03:09:44 +0000 |
| commit | c0bc6d79eab4c5e38e8eb84558d160f1eb8ed22d (patch) | |
| tree | 81354dc159d60a09b2fad75d039c158c64dfdf55 /lisp/mail/footnote.el | |
| parent | 1c78a735d17167139aa81f927b0241e314e3bd3d (diff) | |
| download | emacs-c0bc6d79eab4c5e38e8eb84558d160f1eb8ed22d.tar.gz emacs-c0bc6d79eab4c5e38e8eb84558d160f1eb8ed22d.tar.bz2 emacs-c0bc6d79eab4c5e38e8eb84558d160f1eb8ed22d.zip | |
(Footnote-text-under-cursor):
Check footnote-text-marker-alist before using it (bug#4324).
Diffstat (limited to 'lisp/mail/footnote.el')
| -rw-r--r-- | lisp/mail/footnote.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |