Mercurial > emacs
comparison lisp/mail/footnote.el @ 90732:bc10a33dd40b
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 563-582)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 177-185)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-158
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 01 Jan 2007 03:21:06 +0000 |
| parents | 6588c6259dfb c27a32ee3586 |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90731:a6c97c25a666 | 90732:bc10a33dd40b |
|---|---|
| 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")) |