Mercurial > emacs

comparison lisp/startup.el @ 90054:f2ebccfa87d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-74 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-709 Update from CVS: src/indent.c (Fvertical_motion): Fix last change. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-710 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-715 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-74 Update from CVS
author Miles Bader <miles@gnu.org>
date Wed, 08 Dec 2004 05:02:30 +0000
parents f3ec05478165 ab26a3de6d9c
children 95879cc1ed20
comparison
equal deleted inserted replaced
90053:fff5f1a61d92 90054:f2ebccfa87d4
951 (eq face-ignored-fonts old-face-ignored-fonts)) 951 (eq face-ignored-fonts old-face-ignored-fonts))
952 (clear-face-cache))) 952 (clear-face-cache)))
953 953
954 (run-hooks 'after-init-hook) 954 (run-hooks 'after-init-hook)
955 955
956 ;; Decode all default-directory.
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
956 ;; If *scratch* exists and init file didn't change its mode, initialize it. 969 ;; If *scratch* exists and init file didn't change its mode, initialize it.
957 (if (get-buffer "*scratch*") 970 (if (get-buffer "*scratch*")
958 (with-current-buffer "*scratch*" 971 (with-current-buffer "*scratch*"
959 (if (eq major-mode 'fundamental-mode) 972 (if (eq major-mode 'fundamental-mode)
960 (funcall initial-major-mode)))) 973 (funcall initial-major-mode))))