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) |