Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 458:c33ae14dd6d0 r21-2-44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-44
author cvs
date Mon, 13 Aug 2007 11:42:25 +0200
parents 3d3049ae1304
children 223736d75acb
comparison
equal deleted inserted replaced
457:4b9290a33024 458:c33ae14dd6d0
411 (if debug-paths 411 (if debug-paths
412 (princ (format "emacs-roots:\n%S\n" emacs-roots) 412 (princ (format "emacs-roots:\n%S\n" emacs-roots)
413 'external-debugging-output)) 413 'external-debugging-output))
414 414
415 (if (null emacs-roots) 415 (if (null emacs-roots)
416 (startup-find-roots-warning) 416 (startup-find-roots-warning))
417 (startup-setup-paths emacs-roots 417 (startup-setup-paths emacs-roots
418 user-init-directory 418 user-init-directory
419 inhibit-early-packages 419 inhibit-early-packages
420 inhibit-site-lisp 420 inhibit-site-lisp
421 debug-paths)) 421 debug-paths)
422 (startup-setup-paths-warning)) 422 (startup-setup-paths-warning))
423 423
424 (if (and (not inhibit-autoloads) 424 (if (and (not inhibit-autoloads)
425 lisp-directory) 425 lisp-directory)
426 (load (expand-file-name (file-name-sans-extension autoload-file-name) 426 (load (expand-file-name (file-name-sans-extension autoload-file-name)