changeset 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 c5d9742c47b3
children a8e59db60df6
files lisp/add-log.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Sat Oct 08 04:30:15 1994 +0000
+++ b/lisp/add-log.el	Sat Oct 08 09:00:51 1994 +0000
@@ -427,7 +427,7 @@
 					   (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)