Mercurial > emacs
diff lisp/desktop.el @ 38618:c41fb9fae096
(desktop-save): Bind coding-system-for-write to
`emacs-mule' for write-region.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 31 Jul 2001 14:04:50 +0000 |
| parents | 27468a9cf559 |
| children | 7f07f5bca733 |
line wrap: on
line diff
--- 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 ()