Mercurial > emacs
comparison lisp/mail/footnote.el @ 74919:c27a32ee3586
(Footnote-insert-footnote): Fix the search of the last footnote when
`footnote-spaced-footnotes' is nil.
| author | Michaël Cadilhac <michael.cadilhac@lrde.org> |
|---|---|
| date | Tue, 26 Dec 2006 20:27:12 +0000 |
| parents | f7702c5f335d |
| children | e3694f1cb928 bc10a33dd40b |
comparison
equal
deleted
inserted
replaced
| 74918:c41a1b0f518e | 74919:c27a32ee3586 |
|---|---|
| 499 (regexp-quote footnote-start-tag) | 499 (regexp-quote footnote-start-tag) |
| 500 (Footnote-current-regexp) | 500 (Footnote-current-regexp) |
| 501 (regexp-quote footnote-end-tag))) | 501 (regexp-quote footnote-end-tag))) |
| 502 nil t) | 502 nil t) |
| 503 (unless (beginning-of-line) t)) | 503 (unless (beginning-of-line) t)) |
| 504 (goto-char (point-max))))) | 504 (Footnote-goto-char-point-max) |
| 505 (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)))) | |
| 505 (unless (looking-at "^$") | 506 (unless (looking-at "^$") |
| 506 (insert "\n")) | 507 (insert "\n")) |
| 507 (when (eobp) | 508 (when (eobp) |
| 508 (insert "\n")) | 509 (insert "\n")) |
| 509 (insert footnote-section-tag "\n")) | 510 (insert footnote-section-tag "\n")) |