texinfo.el texinfo-insert-@node

[Fabrice Bauzac]

Good evening,

In GNU Emacs 21.2.1 (i386-debian-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-03-22 on raven, modified by Debian
configured using `configure  i386-debian-linux-gnu --prefix=/usr 
--sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib 
--infodir=/usr/share/info --mandir=/usr/share/man --with-pop=yes --with-x=yes 
--with-x-toolkit=athena --without-gif'
Important settings:
  value of $LC_ALL: fr_FR
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: fr_FR
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

In the Texinfo major mode, the keystroke C-c C-c C-n executes the
function texinfo-insert-@node.

Here is what it does (-*- is the point).  Let this be the buffer
before the execution of the command:

================================================================
This is a paragraph.

-*-@subsection This is a subsection.

This is another paragraph.
================================================================

Here it is after:

================================================================
This is a paragraph.

@node -*-
@comment  node-name,  next,  previous,  up@subsection This is a subsection.

This is another paragraph.
================================================================

So, the command doesn't add a newline, and the @subsection is in a bad
position.  I think the command should behave like other Texinfo-mode
commands, such as texinfo-insert-@end, which put a newline at the end
of the inserted text.

Here is what could be done to texinfo.el:

================================================================
*** texinfo.el.orig     Fri Apr 26 21:01:40 2002
--- texinfo.el  Fri Apr 26 21:01:55 2002
***************
*** 820,826 ****
  This also inserts on the following line a comment indicating
  the order of arguments to @node."
    (interactive)
!   (insert "@node \n@comment  node-name,  next,  previous,  up")
    (forward-line -1)
    (forward-char 6))
  
--- 820,826 ----
  This also inserts on the following line a comment indicating
  the order of arguments to @node."
    (interactive)
!   (insert "@node \n@comment  node-name,  next,  previous,  up\n")
    (forward-line -1)
    (forward-char 6))
  
================================================================

Many thanks to Richard Stallman and everyone who contributed on such a
fantastic thing: GNU Emacs.

Recent input:
i n f o . DEL { . o r i g , } . e l SPC > SPC t e x 
i n f o . e l . d o i f DEL DEL DEL i f f RET l s RET 
ESC p ESC p ESC b ESC b ESC b ESC b C-b ESC d ESC b 
ESC b ESC f . e l C-e RET l s RET C-x k RET C-x m C-x 
k RET ESC x b u g SPC TAB DEL DEL DEL r e p o r t TAB 
RET

Recent messages:
Type C-x 1 to remove help window.  C-M-v to scroll the help.
setq: Quit
Making completion list... [5 times]
Note: file is write protected
Mark saved where search started
Wrote /tmp/texinfo.el.orig
Wrote /tmp/texinfo.el [2 times]
History item: 1
History item: 2
Loading emacsbug...done