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

[Miles Bader]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.321.2.8 emacs/lisp/startup.el:1.321.2.9
*** emacs/lisp/startup.el:1.321.2.8     Fri Oct 22 10:13:28 2004
--- emacs/lisp/startup.el       Wed Dec  8 05:02:12 2004
***************
*** 953,958 ****
--- 953,971 ----
  
    (run-hooks 'after-init-hook)
  
+   ;; Decode all default-directory.
+   (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*"