From f851506c8a2123a83e250e0bbea4f5cf036ec924 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 26 Dec 2007 23:01:34 +0000 Subject: [PATCH] Whitespace change. --- lisp/mail/footnote.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index b94f3bc8297..a3a9cfc8058 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el @@ -327,7 +327,8 @@ Conversion is done based upon the current selected style." (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 @@ styles." (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 @@ styles." (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 -- 2.39.2