Commit d725608c authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

not the current filename coding system.
parent 5015055e
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> 2007-11-09 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (interprogram-cut-function, interprogram-paste-function): * simple.el (interprogram-cut-function, interprogram-paste-function):
......
...@@ -1305,13 +1305,11 @@ Value is an integer which is number of chars to right of prompt.") ...@@ -1305,13 +1305,11 @@ Value is an integer which is number of chars to right of prompt.")
(interactive) (interactive)
(when (and ido-last-directory-list ido-save-directory-list-file) (when (and ido-last-directory-list ido-save-directory-list-file)
(let ((buf (get-buffer-create " *ido session*")) (let ((buf (get-buffer-create " *ido session*"))
(version-control 'never) (version-control 'never))
(coding-system (or file-name-coding-system
default-file-name-coding-system)))
(unwind-protect (unwind-protect
(with-current-buffer buf (with-current-buffer buf
(erase-buffer) (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-last-directory-list)
(ido-pp 'ido-work-directory-list) (ido-pp 'ido-work-directory-list)
(ido-pp 'ido-work-file-list) (ido-pp 'ido-work-file-list)
...@@ -1319,8 +1317,7 @@ Value is an integer which is number of chars to right of prompt.") ...@@ -1319,8 +1317,7 @@ Value is an integer which is number of chars to right of prompt.")
(if (listp ido-unc-hosts-cache) (if (listp ido-unc-hosts-cache)
(ido-pp 'ido-unc-hosts-cache) (ido-pp 'ido-unc-hosts-cache)
(insert "\n;; ----- ido-unc-hosts-cache -----\nt\n")) (insert "\n;; ----- ido-unc-hosts-cache -----\nt\n"))
(insert (format "\n;; Local Variables:\n;; coding: %s\n;; End:\n" (insert "\n;; Local Variables:\n;; coding: utf-8\n;; End:\n")
coding-system))
(write-file ido-save-directory-list-file nil)) (write-file ido-save-directory-list-file nil))
(kill-buffer buf))))) (kill-buffer buf)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment