From 6b4915acd81f1ea5433b52cedf39ab5c6cfbff96 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 17 May 2000 01:01:34 +0000 Subject: [PATCH] * dgnushack.el (dgnushack-texi-format): Use `output-coding-system' instead of `coding-system-for-write' when old Mule is used. --- ChangeLog | 6 ++++++ lisp/dgnushack.el | 7 +++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4dd8a73..bab2c1b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2000-05-17 Katsumi Yamaoka + + * lisp/dgnushack.el (dgnushack-texi-format): Use + `output-coding-system' instead of `coding-system-for-write' when + old Mule is used. + 2000-05-16 Katsumi Yamaoka * lisp/message.el (message-forward) Replace the use of `eolp' with diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 9c01d4f..3afc5ab 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -379,7 +379,8 @@ You must specify the name of the package path as follows: (require 'texinfmt) (let ((auto-save-default nil) (find-file-run-dired nil) - coding-system-for-write) + coding-system-for-write + output-coding-system) (let ((error 0) file (files ())) @@ -403,7 +404,9 @@ You must specify the name of the package path as follows: (progn (if buffer-file-name (kill-buffer (current-buffer))) (find-file file) - (setq coding-system-for-write buffer-file-coding-system) + (if (boundp 'MULE) + (setq coding-system-for-write buffer-file-coding-system) + (setq output-coding-system (symbol-value 'file-coding-system))) (when (and addsuffix (re-search-forward "^@setfilename[\t ]+\\([^\t\n ]+\\)" nil t) -- 1.7.10.4