# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 996588290 0
# Node ID c41fb9fae0961ff56959e6055423d0deead122a9
# Parent  a4b551512b8ca1cd27647ebc5d2b8a44dcb15b3f
(desktop-save): Bind coding-system-for-write to
`emacs-mule' for write-region.

diff -r a4b551512b8c -r c41fb9fae096 lisp/desktop.el
--- a/lisp/desktop.el	Tue Jul 31 11:36:30 2001 +0000
+++ b/lisp/desktop.el	Tue Jul 31 14:04:50 2001 +0000
@@ -549,7 +549,8 @@
        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 ()