Mercurial > emacs
changeset 85998:74574731bb9a
(ido-save-history): Save the history file in UTF-8,
not the current filename coding system.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sat, 10 Nov 2007 00:17:09 +0000 |
| parents | 12109b56601f |
| children | 621f6f154542 |
| files | lisp/ido.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ido.el Fri Nov 09 20:55:29 2007 +0000 +++ b/lisp/ido.el Sat Nov 10 00:17:09 2007 +0000 @@ -1305,13 +1305,11 @@ (interactive) (when (and ido-last-directory-list ido-save-directory-list-file) (let ((buf (get-buffer-create " *ido session*")) - (version-control 'never) - (coding-system (or file-name-coding-system - default-file-name-coding-system))) + (version-control 'never)) (unwind-protect (with-current-buffer buf (erase-buffer) - (setq buffer-file-coding-system coding-system) + (setq buffer-file-coding-system 'utf-8) (ido-pp 'ido-last-directory-list) (ido-pp 'ido-work-directory-list) (ido-pp 'ido-work-file-list) @@ -1319,8 +1317,7 @@ (if (listp ido-unc-hosts-cache) (ido-pp 'ido-unc-hosts-cache) (insert "\n;; ----- ido-unc-hosts-cache -----\nt\n")) - (insert (format "\n;; Local Variables:\n;; coding: %s\n;; End:\n" - coding-system)) + (insert "\n;; Local Variables:\n;; coding: utf-8\n;; End:\n") (write-file ido-save-directory-list-file nil)) (kill-buffer buf)))))