diff options
| author | Richard M. Stallman | 2007-12-26 23:01:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-12-26 23:01:34 +0000 |
| commit | f851506c8a2123a83e250e0bbea4f5cf036ec924 (patch) | |
| tree | 1e2cb5e53c46c606a9940f76155ced18bf3c97c4 | |
| parent | eaa872bb860a305fb739334951698618420147c8 (diff) | |
| download | emacs-f851506c8a2123a83e250e0bbea4f5cf036ec924.tar.gz emacs-f851506c8a2123a83e250e0bbea4f5cf036ec924.zip | |
Whitespace change.
| -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 |