Mercurial > emacs

comparison lisp/startup.el @ 648:70b112526394

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 18 May 1992 08:14:41 +0000
parents eca8812e61cd
children 39f0e62a8511
comparison
equal deleted inserted replaced
647:529171c8b71c 648:70b112526394
113 (defun normal-top-level () 113 (defun normal-top-level ()
114 (if command-line-processed 114 (if command-line-processed
115 (message "Back to top level.") 115 (message "Back to top level.")
116 (setq command-line-processed t) 116 (setq command-line-processed t)
117 ;; In presence of symlinks, switch to cleaner form of default directory. 117 ;; In presence of symlinks, switch to cleaner form of default directory.
118 (if (and (not (eq system-type 'vax-vms)) 118 (if (not (eq system-type 'vax-vms))
119 (getenv "PWD") 119 (mapcar (function
120 (equal (nthcdr 10 (file-attributes default-directory)) 120 (lambda (var)
121 (nthcdr 10 (file-attributes (getenv "PWD"))))) 121 (let ((value (getev var)))
122 (setq default-directory (file-name-as-directory (getenv "PWD")))) 122 (if (and value
123 (< (length value) (length default-directory))
124 (equal (file-attributes default-directory)
125 (file-attributes value)))
126 (setq default-directory
127 (file-name-as-directory value))))))
128 '("PWD" "HOME")))
123 (let ((tail directory-abbrev-alist)) 129 (let ((tail directory-abbrev-alist))
124 (while tail 130 (while tail
125 (if (string-match (car (car tail)) default-directory) 131 (if (string-match (car (car tail)) default-directory)
126 (setq default-directory 132 (setq default-directory
127 (concat (cdr (car tail)) 133 (concat (cdr (car tail))