From 12af9f5a6725c01c35144da092157fd2cd9f632e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 18 Jun 2003 09:39:53 +0000 Subject: [PATCH] Forgotten to commit. ^^;; --- texi/infohack.el | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/texi/infohack.el b/texi/infohack.el index 3c173ba..2599024 100644 --- a/texi/infohack.el +++ b/texi/infohack.el @@ -156,7 +156,26 @@ 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) - (texinfo-format-buffer nil) + (if (featurep 'mule) + ;; Encode messages to terminal. + (let ((si:message (symbol-function 'message))) + (fset 'message + (byte-compile + (if (boundp 'MULE) + `(lambda (fmt &rest args) + (funcall ,si:message "%s" + (code-convert-string + (apply 'format fmt args) + '*internal* '*junet*))) + `(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)) (if (buffer-modified-p) (progn (message "Saving modified %s" (buffer-file-name)) (save-buffer)))) -- 1.7.10.4