From cea927edc867fb30a53dda7df937876b3fbb3d9b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 29 Nov 2004 07:17:56 +0000 Subject: [PATCH] (command-line): Decode all buffer names by locale-coding-system. --- lisp/startup.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index 36065f0224a..ed1a90c9354 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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*" -- 2.39.5