(ido-save-history): Save the history file in UTF-8,

not the current filename coding system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91f99cf8545161cc72f6bcd9f31aa1e62a5d028b..ae30079d91b25462e854141423f34d7e4141ae3d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-10  Juanma Barranquero  <lekktu@gmail.com>
+
+       * ido.el (ido-save-history): Save the history file in UTF-8, not
+       the current filename coding system.
+
 2007-11-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (interprogram-cut-function, interprogram-paste-function):

diff --git a/lisp/ido.el b/lisp/ido.el
index 3c6eb6c576ed012cb929b107d8aaabd6e437c460..0a077f9dab69ee938adc3ad882a92d243660ab68 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -1305,13 +1305,11 @@ Value is an integer which is number of chars to right of prompt.")
   (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 @@ 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 (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)))))