Mercurial > emacs
comparison lisp/add-log.el @ 9397:eba13d81ba0b
(add-log-current-defun): In texinfo-mode,
handle the case of no commas after @node.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 08 Oct 1994 09:00:51 +0000 |
| parents | 45228a0f6b78 |
| children | 1b933ccf3c20 |
comparison
equal
deleted
inserted
replaced
| 9396:c5d9742c47b3 | 9397:eba13d81ba0b |
|---|---|
| 425 (buffer-substring (1+ (point));; without initial backslash | 425 (buffer-substring (1+ (point));; without initial backslash |
| 426 (progn | 426 (progn |
| 427 (end-of-line) | 427 (end-of-line) |
| 428 (point)))))) | 428 (point)))))) |
| 429 ((eq major-mode 'texinfo-mode) | 429 ((eq major-mode 'texinfo-mode) |
| 430 (if (re-search-backward "^@node[ \t]+\\([^,]+\\)," nil t) | 430 (if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t) |
| 431 (buffer-substring (match-beginning 1) | 431 (buffer-substring (match-beginning 1) |
| 432 (match-end 1)))) | 432 (match-end 1)))) |
| 433 ((eq major-mode 'perl-mode) | 433 ((eq major-mode 'perl-mode) |
| 434 (if (re-search-backward "^sub[ \t]+\\([^ \t\n]+\\)" nil t) | 434 (if (re-search-backward "^sub[ \t]+\\([^ \t\n]+\\)" nil t) |
| 435 (buffer-substring (match-beginning 1) | 435 (buffer-substring (match-beginning 1) |