# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1101712676 0
# Node ID 99adc3e470bbee94bbb4c1367093f8ad5c1b679f
# Parent  567ca4ca857409a4d45757fdbea51ac51e1caa45
(command-line): Decode all buffer names by locale-coding-system.

diff -r 567ca4ca8574 -r 99adc3e470bb lisp/startup.el
--- a/lisp/startup.el	Mon Nov 29 07:16:25 2004 +0000
+++ b/lisp/startup.el	Mon Nov 29 07:17:56 2004 +0000
@@ -953,6 +953,19 @@
 
   (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*"