From df034a3f0cf6b48fe265a86b6702468ce80c12e2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Micha=C3=ABl=20Cadilhac?= Date: Tue, 26 Dec 2006 20:29:26 +0000 Subject: [PATCH] (Footnote-insert-footnote): Fix the search of the last footnote when `footnote-spaced-footnotes' is nil. --- lisp/ChangeLog | 5 +++++ lisp/mail/footnote.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fb34edb883e..68cc10cfd94 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-12-26 Micha,Ak(Bl Cadilhac + + * mail/footnote.el (Footnote-insert-footnote): Fix the search of the + last footnote when `footnote-spaced-footnotes' is nil. + 2006-12-26 Richard Stallman * image.el (image-type-header-regexps): Change element format diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index da7e5fcf579..b2374490026 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el @@ -501,7 +501,8 @@ styles." (regexp-quote footnote-end-tag))) nil t) (unless (beginning-of-line) t)) - (goto-char (point-max))))) + (Footnote-goto-char-point-max) + (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)))) (unless (looking-at "^$") (insert "\n")) (when (eobp) -- 2.39.2