[Emacs-diffs] Changes to emacs/lisp/startup.el

[Kenichi Handa]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.333 emacs/lisp/startup.el:1.334
*** emacs/lisp/startup.el:1.333 Sun Oct 17 06:56:40 2004
--- emacs/lisp/startup.el       Mon Nov 29 07:17:56 2004
***************
*** 953,958 ****
--- 953,971 ----
  
    (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*"