Mercurial > emacs

changeset 79632:145a45ea4769

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Whitespace change.
author Richard M. Stallman <rms@gnu.org>
date Wed, 26 Dec 2007 23:01:34 +0000
parents f83a4361c7e2
children 03462299be3f
files lisp/mail/footnote.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/footnote.el	Wed Dec 26 18:12:37 2007 +0000
+++ b/lisp/mail/footnote.el	Wed Dec 26 23:01:34 2007 +0000
@@ -327,7 +327,8 @@
 (defun Footnote-current-regexp ()
   "Return the regexp of the index of the current style."
   (concat (nth 2 (or (assq footnote-style footnote-style-alist)
-		     (nth 0 footnote-style-alist))) "*"))
+		     (nth 0 footnote-style-alist)))
+	  "*"))
 
 (defun Footnote-refresh-footnotes (&optional index-regexp)
   "Redraw all footnotes.
@@ -345,7 +346,7 @@
 	  (search-backward footnote-start-tag nil t)
 	  (when (looking-at (concat
 			     (regexp-quote footnote-start-tag)
-			     "\\(" index-regexp "\\)"
+			     "\\(" index-regexp "+\\)"
 			     (regexp-quote footnote-end-tag)))
 	    (replace-match (concat
 			    footnote-start-tag
@@ -361,7 +362,7 @@
 	(goto-char (cdr alist))
 	(when (looking-at (concat
 			   (regexp-quote footnote-start-tag)
-			   "\\(" index-regexp "\\)"
+			   "\\(" index-regexp "+\\)"
 			   (regexp-quote footnote-end-tag)))
 	  (replace-match (concat
 			  footnote-start-tag