Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 6240c7796c7a
children 6719134a07c2
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
362 (defun normal-top-level () 362 (defun normal-top-level ()
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 (let ((value (user-home-directory)))
368 (let ((value (user-home-directory))) 368 (if (and value
369 (if (and value 369 (< (length value) (length default-directory))
370 (< (length value) (length default-directory)) 370 (equal (file-attributes default-directory)
371 (equal (file-attributes default-directory) 371 (file-attributes value)))
372 (file-attributes value))) 372 (setq default-directory (file-name-as-directory value))))
373 (setq default-directory (file-name-as-directory value)))))
374 (setq default-directory (abbreviate-file-name default-directory)) 373 (setq default-directory (abbreviate-file-name default-directory))
375 (initialize-xemacs-paths) 374 (initialize-xemacs-paths)
376 375
377 (startup-set-invocation-environment) 376 (startup-set-invocation-environment)
378 377