Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-95

[bpt/emacs.git] / lisp / desktop.el

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 087cb77..ce78208 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -767,7 +767,7 @@ See also `desktop-base-file-name'."
       (erase-buffer)
 
       (insert
-        ";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\n"
+        ";; -*- mode: emacs-lisp; coding: utf-8-emacs; -*-\n"
         desktop-header
         ";; Created " (current-time-string) "\n"
         ";; Desktop file format version " desktop-file-version "\n"
@@ -798,7 +798,7 @@ See also `desktop-base-file-name'."
                   (insert ")\n\n")))
             info)
       (setq default-directory dirname)
-      (let ((coding-system-for-write 'emacs-mule))
+      (let ((coding-system-for-write 'utf-8-emacs))
         (write-region (point-min) (point-max) filename nil 'nomessage))))
   (setq desktop-dirname dirname))