Mercurial > emacs

comparison lisp/startup.el @ 4181:d7cb993a93b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(normal-top-level): Call abbreviate-file-name again after calling command-line.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 1993 05:46:10 +0000
parents 49c371d2b020
children 99e31e531877
comparison
equal deleted inserted replaced
4180:01de01b59c7f 4181:d7cb993a93b1
141 (delete (concat "PWD=" pwd) 141 (delete (concat "PWD=" pwd)
142 process-environment))))))) 142 process-environment)))))))
143 (setq default-directory (abbreviate-file-name default-directory)) 143 (setq default-directory (abbreviate-file-name default-directory))
144 (unwind-protect 144 (unwind-protect
145 (command-line) 145 (command-line)
146 ;; Do this again, in case .emacs defined more abbreviations.
147 (setq default-directory (abbreviate-file-name default-directory))
146 (run-hooks 'emacs-startup-hook) 148 (run-hooks 'emacs-startup-hook)
147 (and term-setup-hook 149 (and term-setup-hook
148 (run-hooks 'term-setup-hook)) 150 (run-hooks 'term-setup-hook))
149 (if (fboundp 'frame-notice-user-settings) 151 (if (fboundp 'frame-notice-user-settings)
150 (frame-notice-user-settings)) 152 (frame-notice-user-settings))