Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 558f606b08ae
children c9fe270a4101
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
363 (if command-line-processed 363 (if command-line-processed
364 (message "Back to top level.") 364 (message "Back to top level.")
365 (setq command-line-processed t) 365 (setq command-line-processed t)
366 ;; Canonicalize HOME (PWD is canonicalized by init_buffer in buffer.c) 366 ;; Canonicalize HOME (PWD is canonicalized by init_buffer in buffer.c)
367 (unless (eq system-type 'vax-vms) 367 (unless (eq system-type 'vax-vms)
368 (let ((value (getenv "HOME"))) 368 (let ((value (user-home-directory)))
369 (if (and value 369 (if (and value
370 (< (length value) (length default-directory)) 370 (< (length value) (length default-directory))
371 (equal (file-attributes default-directory) 371 (equal (file-attributes default-directory)
372 (file-attributes value))) 372 (file-attributes value)))
373 (setq default-directory (file-name-as-directory value))))) 373 (setq default-directory (file-name-as-directory value)))))