mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 08:20:41 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
not the current filename coding system.
This commit is contained in:
Juanma Barranquero 2007-11-10 00:19:44 +00:00
parent 5015055ea5
commit d725608c0e
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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):

9
lisp/ido.el
View file

@ -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)))))