[COMMIT] Texinfo line-end-position -> point-at-eol, whitespace cleanup
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>
* 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>
* whitespace.el (whitespace-cleanup): Integrate this change from
the FSF:
2003-06-10 Rajesh Vaidheeswarran <rv(a)gnu.org>
* 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