Mercurial > emacs
changeset 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 | a4b551512b8c |
| children | 879c6b736b9f |
| files | lisp/desktop.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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 ()