From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 Nov 2004 07:17:56 +0000 (+0000)
Subject: (command-line): Decode all buffer names by locale-coding-system.
X-Git-Tag: ttn-vms-21-2-B4~3572
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cea927edc867fb30a53dda7df937876b3fbb3d9b;p=emacs.git

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

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*"