# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1194653829 0
# Node ID 74574731bb9ac850bdfb8edc011e618ea57a77b7
# Parent  12109b56601ff8f545c41eb52528bfeaf694a601
(ido-save-history): Save the history file in UTF-8,
not the current filename coding system.

diff -r 12109b56601f -r 74574731bb9a lisp/ido.el
--- 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)))))