diff options
| author | Miles Bader | 2007-12-28 22:26:14 +0000 |
|---|---|---|
| committer | Miles Bader | 2007-12-28 22:26:14 +0000 |
| commit | b17f53abc28496125965f36147b76ea5f6a2b4fb (patch) | |
| tree | 4293e53692f304327ba689dfeea32d1b0b5bc12a /lisp/mail | |
| parent | 2e5093251c8e63f4546ffc30182dd4015e9a58fd (diff) | |
| parent | ea7ac2eb953bf3c30670e60cb00a9fca611b38b7 (diff) | |
| download | emacs-b17f53abc28496125965f36147b76ea5f6a2b4fb.tar.gz emacs-b17f53abc28496125965f36147b76ea5f6a2b4fb.zip | |
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-966
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/footnote.el | 7 |
1 files 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." | |||
| 327 | (defun Footnote-current-regexp () | 327 | (defun Footnote-current-regexp () |
| 328 | "Return the regexp of the index of the current style." | 328 | "Return the regexp of the index of the current style." |
| 329 | (concat (nth 2 (or (assq footnote-style footnote-style-alist) | 329 | (concat (nth 2 (or (assq footnote-style footnote-style-alist) |
| 330 | (nth 0 footnote-style-alist))) "*")) | 330 | (nth 0 footnote-style-alist))) |
| 331 | "*")) | ||
| 331 | 332 | ||
| 332 | (defun Footnote-refresh-footnotes (&optional index-regexp) | 333 | (defun Footnote-refresh-footnotes (&optional index-regexp) |
| 333 | "Redraw all footnotes. | 334 | "Redraw all footnotes. |
| @@ -345,7 +346,7 @@ styles." | |||
| 345 | (search-backward footnote-start-tag nil t) | 346 | (search-backward footnote-start-tag nil t) |
| 346 | (when (looking-at (concat | 347 | (when (looking-at (concat |
| 347 | (regexp-quote footnote-start-tag) | 348 | (regexp-quote footnote-start-tag) |
| 348 | "\\(" index-regexp "\\)" | 349 | "\\(" index-regexp "+\\)" |
| 349 | (regexp-quote footnote-end-tag))) | 350 | (regexp-quote footnote-end-tag))) |
| 350 | (replace-match (concat | 351 | (replace-match (concat |
| 351 | footnote-start-tag | 352 | footnote-start-tag |
| @@ -361,7 +362,7 @@ styles." | |||
| 361 | (goto-char (cdr alist)) | 362 | (goto-char (cdr alist)) |
| 362 | (when (looking-at (concat | 363 | (when (looking-at (concat |
| 363 | (regexp-quote footnote-start-tag) | 364 | (regexp-quote footnote-start-tag) |
| 364 | "\\(" index-regexp "\\)" | 365 | "\\(" index-regexp "+\\)" |
| 365 | (regexp-quote footnote-end-tag))) | 366 | (regexp-quote footnote-end-tag))) |
| 366 | (replace-match (concat | 367 | (replace-match (concat |
| 367 | footnote-start-tag | 368 | footnote-start-tag |