mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source 
`emacs-mule' for write-region.
This commit is contained in:
Gerd Moellmann 2001-07-31 14:04:50 +00:00
parent 10e922bdd2
commit 7642acca1e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/desktop.el
View File

@ -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 ()