From: Robert J. Chassell <bob@rattlesnake.com>
Date: Mon, 29 Apr 2002 12:59:26 +0000 (+0000)
Subject: Cause `texinfo-insert-@node' to insert a carriage return after the
X-Git-Tag: ttn-vms-21-2-B4~15314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=481b0db7f7890ba7c18d68992121b2f7e28323e3;p=emacs.git

Cause `texinfo-insert-@node' to insert a carriage return after the
comment line.  This change does not affect normal use.  On the one
hand, it causes the command to insert a blank line when invoked on the
line preceeding the @section line.  This is a fault.  On the other
hand, it causes the command to format the output properly when you
invoke the command on the same line as the @chapter or similar line.
This is beneficial.
---

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 6d963afe5b1..d31bae4a0dd 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -808,11 +808,12 @@ The default is not to surround any existing words with the braces."
 
 (defun texinfo-insert-@node ()
   "Insert the string `@node' in a Texinfo buffer.
-This also inserts on the following line a comment indicating
-the order of arguments to @node."
+Insert a comment on the following line indicating the order of
+arguments to @node.  Insert a carriage return after the comment line.
+Leave point after `@node'."
   (interactive)
-  (insert "@node \n@comment  node-name,  next,  previous,  up")
-  (forward-line -1)
+  (insert "@node \n@comment  node-name,  next,  previous,  up\n")
+  (forward-line -2)
   (forward-char 6))
 
 (defun texinfo-insert-@noindent ()