From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 31 Jul 2001 14:04:50 +0000 (+0000)
Subject: (desktop-save): Bind coding-system-for-write to
X-Git-Tag: emacs-pretest-21.0.105~344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7642acca1e2fdbca53a065065d9d28c7c8de40d0;p=emacs.git

(desktop-save): Bind coding-system-for-write to
`emacs-mule' for write-region.
---

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 ()