andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dired-readin): Locally bind file-name-coding-system.

Browse source
This commit is contained in:
Richard M. Stallman 2006-11-06 15:50:06 +00:00
parent 41929f329c
commit 1419c7fc46
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/dired.el
View file

@ -791,6 +791,9 @@ wildcards, erases the buffer, and builds the subdir-alist anew
(run-hooks 'dired-before-readin-hook)
(if (consp buffer-undo-list)
(setq buffer-undo-list nil))
(make-local-variable 'file-name-coding-system)
(setq file-name-coding-system
(or coding-system-for-read file-name-coding-system))
(let (buffer-read-only
;; Don't make undo entries for readin.
(buffer-undo-list t))