mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

* startup.el (normal-top-level): Don't worry about setting

Browse Source 
default-directory to PWD if PWD is shorter.  And, if PWD isn't
	accurate, delete it.
This commit is contained in:
Jim Blandy 1992-11-07 06:20:15 +00:00
parent 1a3a670724
commit a4b3389645
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/startup.el
View File

@ -126,18 +126,21 @@ directory name of the directory where the `.emacs' file was looked for.")
(if command-line-processed
(message "Back to top level.")
(setq command-line-processed t)
;; In presence of symlinks, switch to cleaner form of default directory.
(if (not (eq system-type 'vax-vms))
(mapcar (function
(lambda (var)
(let ((value (getenv var)))
(if (and value
(< (length value) (length default-directory))
(equal (file-attributes default-directory)
(file-attributes value)))
(setq default-directory
(file-name-as-directory value))))))
'("PWD" "HOME")))
(progn
;; If the PWD environment variable isn't accurate, delete it.
(let ((pwd (getenv "PWD")))
(and (stringp pwd)
;; Use FOO/., so that if FOO is a symlink, file-attributes
;; describes the directory linked to, not FOO itself.
(or (equal (file-attributes
(concat (file-name-as-directory pwd) "."))
(file-attributes
(concat (file-name-as-directory default-directory)
".")))
(setq process-environment
(delete (concat "PWD=" pwd)
process-environment)))))))
(setq default-directory (abbreviate-file-name default-directory))
(unwind-protect
(command-line)