X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=tests%2Fautomated%2Fmule-tests.el;fp=tests%2Fautomated%2Fmule-tests.el;h=a89690b0e507646b5fde8d39c8376ac17d4f43e9;hp=ab905161df3a80fe98c0eb41b2c5f489eb6cb7d3;hb=8cb6271e99e31df282456512ac223377e9a08527;hpb=94a5d311b92eb0b74d92ad24a0084edc6b54c770

diff --git a/tests/automated/mule-tests.el b/tests/automated/mule-tests.el
index ab90516..a89690b 100644
--- a/tests/automated/mule-tests.el
+++ b/tests/automated/mule-tests.el
@@ -301,8 +301,7 @@ the Assert macro checks for correctness."
 	 (name1 (make-temp-name prefix))
 	 (name2 (make-temp-name prefix))
 	 (file-name-coding-system 'iso-8859-2))
-    ;; This is how you suppress output from `message', called by `write-region'
-    (flet ((append-message (&rest args) ()))
+    (Silence-Message
       (Assert (not (equal name1 name2)))
       ;; Kludge to handle Mac OS X which groks only UTF-8.
       (cond ((eq system-type 'darwin)