From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Oct 1994 09:00:51 +0000 (+0000)
Subject: (add-log-current-defun): In texinfo-mode,
X-Git-Tag: emacs-19.34~6457
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3071ee28bb31fba9257b2e85123279ff7242e43b;p=emacs.git

(add-log-current-defun): In texinfo-mode,
handle the case of no commas after @node.
---

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."
 					   (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)