(infohack-texi-format): Silence XEmacs.

diff --git a/ChangeLog b/ChangeLog
index 0204e25..0d3beec 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-02-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * texi/infohack.el (infohack-texi-format): Silence XEmacs.
+
 2005-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * 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 (file)
--- 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))))