From 82ffa77152ef6be4e59584d1b1ff88e090555335 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 16 Feb 2005 01:59:29 +0000 Subject: [PATCH] (infohack-texi-format): Silence XEmacs. --- ChangeLog | 4 ++++ texi/infohack.el | 33 +++++++++++++++++++-------------- 2 files changed, 23 insertions(+), 14 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0204e25..0d3beec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2005-02-16 Katsumi Yamaoka + + * texi/infohack.el (infohack-texi-format): Silence XEmacs. + 2005-02-01 Katsumi Yamaoka * lisp/gnus-msg.el (gnus-inews-yank-articles): Don't delete newlines. diff --git a/texi/infohack.el b/texi/infohack.el index 31fd019..39f3012 100644 --- a/texi/infohack.el +++ b/texi/infohack.el @@ -191,20 +191,25 @@ Both characters must have the same length of multi-byte form." (texinfo-every-node-update) (set-buffer-modified-p nil) (message "texinfo formatting %s..." file) - (if (featurep 'mule) - ;; Encode messages to terminal. - (let ((si:message (symbol-function 'message))) - (fset 'message - (byte-compile - `(lambda (fmt &rest args) - (funcall ,si:message "%s" - (encode-coding-string - (apply 'format fmt args) - 'iso-2022-7bit))))) - (unwind-protect - (texinfo-format-buffer nil) - (fset 'message si:message))) - (texinfo-format-buffer nil)) + (let ((si:message (symbol-function 'message))) + ;; Encode messages to terminal. + (fset + 'message + (byte-compile + (if (featurep 'xemacs) + `(lambda (fmt &rest args) + (unless (and (string-equal fmt "%s clean") + (equal (car args) buffer-file-name)) + (funcall ,si:message "%s" + (encode-coding-string (apply 'format fmt args) + 'iso-2022-7bit)))) + `(lambda (fmt &rest args) + (funcall ,si:message "%s" + (encode-coding-string (apply 'format fmt args) + 'iso-2022-7bit)))))) + (unwind-protect + (texinfo-format-buffer nil) + (fset 'message si:message))) (if (buffer-modified-p) (progn (message "Saving modified %s" (buffer-file-name)) (save-buffer)))) -- 1.7.10.4