APPROVE COMMIT NOTE: This patch has been committed. Thank you, Katsumi, and excuse the delay. This change makes texinfo-node-name work, and quiets down the generation of Gnus’ texinfo documentation. From b9yd5ushx8q.fsf(a)jpl.org . xemacs-packages/texinfo/ChangeLog addition: 2005-02-23 Katsumi Yamaoka <yamaoka(a)jpl.org&gt; * texinfmt.el (texinfo-format-scan): Silence whitespace-cleanup. * texnfo-upd.el (texinfo-copy-node-name): Use point-at-eol instead of line-end-position. xemacs-packages/text-modes/ChangeLog addition: 2005-03-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; * whitespace.el (whitespace-cleanup): Integrate this change from the FSF: 2003-06-10 Rajesh Vaidheeswarran <rv(a)gnu.org&gt; * whitespace.el (whitespace-cleanup): Respect user preference for silence. XEmacs Packages source patch: Diff command: cvs -q diff -u Files affected: xemacs-packages/text-modes/whitespace.el xemacs-packages/texinfo/texnfo-upd.el xemacs-packages/texinfo/texinfmt.el Index: xemacs-packages/texinfo/texinfmt.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/texinfo/texinfmt.el,v retrieving revision 1.13 diff -u -u -r1.13 texinfmt.el --- xemacs-packages/texinfo/texinfmt.el 2004/12/08 19:19:42 1.13 +++ xemacs-packages/texinfo/texinfmt.el 2005/03/25 17:05:09 ＠＠ -985,7 +985,8 ＠＠ (error "Unterminated ＠%s" (car (car texinfo-stack))))) ;; Remove excess whitespace - (whitespace-cleanup)) + (let ((whitespace-silent t)) + (whitespace-cleanup))) (defvar texinfo-copying-text "" "Text of the copyright notice and copying permissions.") Index: xemacs-packages/texinfo/texnfo-upd.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/texinfo/texnfo-upd.el,v retrieving revision 1.3 diff -u -u -r1.3 texnfo-upd.el --- xemacs-packages/texinfo/texnfo-upd.el 2004/11/08 02:16:19 1.3 +++ xemacs-packages/texinfo/texnfo-upd.el 2005/03/25 17:05:11 ＠＠ -492,13 +492,12 ＠＠ after the node command up to the first comma on the line, if any, and return the text as a string. Leaves point at the beginning of the line. If there is no node name, returns an empty string." - (save-excursion (buffer-substring (progn (forward-word 1) ; skip over node command (skip-chars-forward " \t") ; and over spaces (point)) - (if (search-forward "," (line-end-position) t) ; bound search + (if (search-forward "," (point-at-eol) t) ; bound search (1- (point)) (end-of-line) (point))))) Index: xemacs-packages/text-modes/whitespace.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/text-modes/whitespace.el,v retrieving revision 1.2 diff -u -u -r1.2 whitespace.el --- xemacs-packages/text-modes/whitespace.el 2005/02/09 23:39:13 1.2 +++ xemacs-packages/text-modes/whitespace.el 2005/03/25 17:05:11 ＠＠ -572,7 +572,8 ＠＠ (if whitespace-any (whitespace-cleanup) (progn - (message "%s clean" buffer-file-name) + (if (not whitespace-silent) + (message "%s clean" buffer-file-name)) (whitespace-update-modeline))) (setq tab-width whitespace-tabwith-saved)))) -- “I, for instance, am gung-ho about open source because my family is being held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle, when we say something in public? No-one!” -- Danny O’Brien