mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(command-line): Decode all buffer names by locale-coding-system.

Browse Source
This commit is contained in:
Kenichi Handa 2004-11-29 07:17:56 +00:00
parent dcd74c5f2c
commit cea927edc8
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/startup.el
View File

@ -953,6 +953,19 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(run-hooks 'after-init-hook)
;; Decode all buffer names.
(if (and default-enable-multibyte-characters locale-coding-system)
(save-excursion
(dolist (elt (buffer-list))
(set-buffer elt)
(if default-directory
(setq default-directory
(decode-coding-string default-directory
locale-coding-system t))))
(setq command-line-default-directory
(decode-coding-string command-line-default-directory
locale-coding-system t))))
;; If *scratch* exists and init file didn't change its mode, initialize it.
(if (get-buffer "*scratch*")
(with-current-buffer "*scratch*"