# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781606851 0
# Node ID eba13d81ba0babb7d19b018c80a682abbc8e94f3
# Parent  c5d9742c47b309546a127ca8e830a7e29829e705
(add-log-current-defun): In texinfo-mode,
handle the case of no commas after @node.

diff -r c5d9742c47b3 -r eba13d81ba0b lisp/add-log.el
--- 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)