From: yamaoka <yamaoka>
Date: Wed, 16 Feb 2005 01:59:29 +0000 (+0000)
Subject: (infohack-texi-format): Silence XEmacs.
X-Git-Tag: t-gnus-6_17_4-quimby-~555
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=82ffa77152ef6be4e59584d1b1ff88e090555335;p=elisp%2Fgnus.git-

(infohack-texi-format): Silence XEmacs.
---

diff --git a/ChangeLog b/ChangeLog
index 0204e25..0d3beec 100644
--- 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
--- 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))))