From 7642acca1e2fdbca53a065065d9d28c7c8de40d0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 31 Jul 2001 14:04:50 +0000 Subject: [PATCH] (desktop-save): Bind coding-system-for-write to `emacs-mule' for write-region. --- lisp/desktop.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/desktop.el b/lisp/desktop.el index 54a598d51c0..3286b195fac 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -549,7 +549,8 @@ MODE is the major mode." info) (setq default-directory dirname) (if (file-exists-p filename) (delete-file filename)) - (write-region (point-min) (point-max) filename nil 'nomessage))) + (let ((coding-system-for-write 'emacs-mule)) + (write-region (point-min) (point-max) filename nil 'nomessage)))) (setq desktop-dirname dirname)) ;; ---------------------------------------------------------------------------- (defun desktop-remove () -- 2.39.2