diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-12-04 15:43:26 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-12-04 15:43:26 +0000 |
| commit | 4cbb4eb7390c14cd2c99bf66d56eb4130dfde865 (patch) | |
| tree | 2455da27b40d8c0fc5bd3da176cf9355d8512f35 | |
| parent | 6054cc87fea83446831be2aad8048ddd1d4402b4 (diff) | |
| download | emacs-4cbb4eb7390c14cd2c99bf66d56eb4130dfde865.tar.gz emacs-4cbb4eb7390c14cd2c99bf66d56eb4130dfde865.tar.bz2 emacs-4cbb4eb7390c14cd2c99bf66d56eb4130dfde865.zip | |
(ido-save-history): Use emacs-mule coding system instead of
utf-8 to save filenames (it's safer in Emacs 22). Set the
`coding' local variable on the first line of the file.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/ido.el | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1535a87904a..0a96ba61341 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-12-04 Juanma Barranquero <lekktu@gmail.com> + + * ido.el (ido-save-history): Use emacs-mule coding system + instead of utf-8 to save filenames (it's safer in Emacs 22). + Set the `coding' local variable on the first line of the file. + 2007-12-04 Karl Fogel <kfogel@red-bean.com> * saveplace.el (save-place-alist-to-file): Save with 'emacs-mule' diff --git a/lisp/ido.el b/lisp/ido.el index 9b1f6a634aa..41149038b0e 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -1309,7 +1309,8 @@ Value is an integer which is number of chars to right of prompt.") (unwind-protect (with-current-buffer buf (erase-buffer) - (setq buffer-file-coding-system 'utf-8) + (insert ";;; -*- coding: emacs-mule -*-\n") + (setq buffer-file-coding-system 'emacs-mule) (ido-pp 'ido-last-directory-list) (ido-pp 'ido-work-directory-list) (ido-pp 'ido-work-file-list) @@ -1317,7 +1318,7 @@ Value is an integer which is number of chars to right of prompt.") (if (listp ido-unc-hosts-cache) (ido-pp 'ido-unc-hosts-cache) (insert "\n;; ----- ido-unc-hosts-cache -----\nt\n")) - (insert "\n;; Local Variables:\n;; coding: utf-8\n;; End:\n") + (insert "\n") (write-file ido-save-directory-list-file nil)) (kill-buffer buf))))) |