(desktop-save): Bind coding-system-for-write to

`emacs-mule' for write-region.

1 files changed, 2 insertions, 1 deletions

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