User: aidan Date: 05/03/25 18:09:09 Modified: packages/xemacs-packages/text-modes ChangeLog whitespace.el Log: Texinfo line-end-position -> point-at-eol, whitespace cleanup, as suggested by Katsumi Yamaoka in b9yd5ushx8q.fsf(a)jpl.org Revision Changes Path 1.36 +6 -0 XEmacs/packages/xemacs-packages/texinfo/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/texinfo/ChangeLog,v retrieving revision 1.35 retrieving revision 1.36 diff -u -p -r1.35 -r1.36 --- ChangeLog 2004/12/22 22:04:29 1.35 +++ ChangeLog 2005/03/25 17:09:05 1.36 ＠＠ -1,3 +1,9 ＠＠ +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. + 2004-12-22 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.28 released. 1.14 +2 -1 XEmacs/packages/xemacs-packages/texinfo/texinfmt.el Index: texinfmt.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/texinfo/texinfmt.el,v retrieving revision 1.13 retrieving revision 1.14 diff -u -p -r1.13 -r1.14 --- texinfmt.el 2004/12/08 19:19:42 1.13 +++ texinfmt.el 2005/03/25 17:09:05 1.14 ＠＠ -985,7 +985,8 ＠＠ lower types.") (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.") 1.4 +1 -2 XEmacs/packages/xemacs-packages/texinfo/texnfo-upd.el Index: texnfo-upd.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/texinfo/texnfo-upd.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- texnfo-upd.el 2004/11/08 02:16:19 1.3 +++ texnfo-upd.el 2005/03/25 17:09:05 1.4 ＠＠ -492,13 +492,12 ＠＠ Start with point at the beginning of the 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))))) 1.147 +10 -0 XEmacs/packages/xemacs-packages/text-modes/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/text-modes/ChangeLog,v retrieving revision 1.146 retrieving revision 1.147 diff -u -p -r1.146 -r1.147 --- ChangeLog 2005/02/14 21:53:45 1.146 +++ ChangeLog 2005/03/25 17:09:08 1.147 ＠＠ -1,3 +1,13 ＠＠ +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. + 2005-02-14 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.84 released. 1.3 +3 -2 XEmacs/packages/xemacs-packages/text-modes/whitespace.el Index: whitespace.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/text-modes/whitespace.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- whitespace.el 2005/02/09 23:39:13 1.2 +++ whitespace.el 2005/03/25 17:09:08 1.3 ＠＠ -5,7 +5,7 ＠＠ ;; Author: Rajesh Vaidheeswarran <rv(a)gnu.org&gt; ;; Keywords: convenience -;; $Id: whitespace.el,v 1.2 2005/02/09 23:39:13 scop Exp $ +;; $Id: whitespace.el,v 1.3 2005/03/25 17:09:08 aidan Exp $ ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ＠＠ -572,7 +572,8 ＠＠ whitespace problems." (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))))