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

`emacs-mule' for write-region.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 54a598d51c0bc137606dcd730b9d7209a6b3acd3..3286b195facb12811cfaed36112fbd72d523b1d3 100644 (file)
--- 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 ()