Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 38617:a4b551512b8c | 38618:c41fb9fae096 |
|---|---|
| 547 l) | 547 l) |
| 548 (insert ")\n\n"))))) | 548 (insert ")\n\n"))))) |
| 549 info) | 549 info) |
| 550 (setq default-directory dirname) | 550 (setq default-directory dirname) |
| 551 (if (file-exists-p filename) (delete-file filename)) | 551 (if (file-exists-p filename) (delete-file filename)) |
| 552 (write-region (point-min) (point-max) filename nil 'nomessage))) | 552 (let ((coding-system-for-write 'emacs-mule)) |
| 553 (write-region (point-min) (point-max) filename nil 'nomessage)))) | |
| 553 (setq desktop-dirname dirname)) | 554 (setq desktop-dirname dirname)) |
| 554 ;; ---------------------------------------------------------------------------- | 555 ;; ---------------------------------------------------------------------------- |
| 555 (defun desktop-remove () | 556 (defun desktop-remove () |
| 556 "Delete the Desktop file and inactivate the desktop system." | 557 "Delete the Desktop file and inactivate the desktop system." |
| 557 (interactive) | 558 (interactive) |