mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(add-log-current-defun): In texinfo-mode,

Browse Source 
handle the case of no commas after @node.
This commit is contained in:
Richard M. Stallman 1994-10-08 09:00:51 +00:00
parent 03361bcc45
commit 3071ee28bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/add-log.el
View File

@ -427,7 +427,7 @@ Has a preference of looking backwards."
(end-of-line)
(point))))))
((eq major-mode 'texinfo-mode)
(if (re-search-backward "^@node[ \t]+\\([^,]+\\)," nil t)
(if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t)
(buffer-substring (match-beginning 1)
(match-end 1))))
((eq major-mode 'perl-mode)