/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.333 by rms, Sun Oct 17 06:56:40 2004 UTC revision 1.334 by handa, Mon Nov 29 07:17:56 2004 UTC
# Line 953  or `CVS', and any subdirectory that cont Line 953  or `CVS', and any subdirectory that cont
953    
954    (run-hooks 'after-init-hook)    (run-hooks 'after-init-hook)
955    
956      ;; Decode all buffer names.
957      (if (and default-enable-multibyte-characters locale-coding-system)
958          (save-excursion
959            (dolist (elt (buffer-list))
960              (set-buffer elt)
961              (if default-directory
962                  (setq default-directory
963                        (decode-coding-string default-directory
964                                              locale-coding-system t))))
965            (setq command-line-default-directory
966                  (decode-coding-string command-line-default-directory
967                                        locale-coding-system t))))
968    
969    ;; If *scratch* exists and init file didn't change its mode, initialize it.    ;; If *scratch* exists and init file didn't change its mode, initialize it.
970    (if (get-buffer "*scratch*")    (if (get-buffer "*scratch*")
971        (with-current-buffer "*scratch*"        (with-current-buffer "*scratch*"

Legend:
Removed from v.1.333  
changed lines
  Added in v.1.334

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26