diff options
| author | Richard M. Stallman | 1994-10-08 09:00:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-08 09:00:51 +0000 |
| commit | 3071ee28bb31fba9257b2e85123279ff7242e43b (patch) | |
| tree | 032fd082b4d4eb468b384032e3532ef5ccdb8ee9 | |
| parent | 03361bcc452a9e6861cc748229844debcc073cba (diff) | |
| download | emacs-3071ee28bb31fba9257b2e85123279ff7242e43b.tar.gz emacs-3071ee28bb31fba9257b2e85123279ff7242e43b.zip | |
(add-log-current-defun): In texinfo-mode,
handle the case of no commas after @node.
| -rw-r--r-- | lisp/add-log.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index b2074ef7559..340ef085734 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -427,7 +427,7 @@ Has a preference of looking backwards." | |||
| 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) |