mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ido-save-history): Write the history file in the current filename

Browse source 
coding system, and add `coding' file-local variable.
This commit is contained in:
Juanma Barranquero 2007-11-06 12:25:06 +00:00
parent b572936741
commit edcc53d147
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/ido.el
View file

@ -449,7 +449,7 @@ in merged file and directory lists."
;(setq ido-ignore-files '("^ " "\\.c$" "\\.h$"))
(defcustom ido-default-file-method 'raise-frame
"*How to visit a new file when using `ido-find-file'.
"*How to visit a new file when using `ido-find-file'.
Possible values:
`selected-window' Show new file in selected window
`other-window' Show new file in another window (same frame)
@ -469,7 +469,7 @@ Possible values:
:group 'ido)
(defcustom ido-default-buffer-method 'raise-frame
"*How to switch to new buffer when using `ido-switch-buffer'.
"*How to switch to new buffer when using `ido-switch-buffer'.
See `ido-default-file-method' for details."
:type '(choice (const :tag "Show in selected window" selected-window)
(const :tag "Show in other window" other-window)
@ -1305,10 +1305,13 @@ 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))
(version-control 'never)
(coding-system (or file-name-coding-system
default-file-name-coding-system)))
(unwind-protect
(with-current-buffer buf
(erase-buffer)
(setq buffer-file-coding-system coding-system)
(ido-pp 'ido-last-directory-list)
(ido-pp 'ido-work-directory-list)
(ido-pp 'ido-work-file-list)
@ -1316,7 +1319,8 @@ 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 "\n")
(insert (format "\n;; Local Variables:\n;; coding: %s\n;; End:\n"
coding-system))
(write-file ido-save-directory-list-file nil))
(kill-buffer buf)))))