Mercurial > emacs

comparison lisp/loadup.el @ 49333:bdea33173bb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(load-path): Rename `path' local var.
author Richard M. Stallman <rms@gnu.org>
date Mon, 20 Jan 2003 08:58:40 +0000
parents a456fbd1c87d
children 5e95f1f9fabc
comparison
equal deleted inserted replaced
49332:30d026130eaa 49333:bdea33173bb5
32 ;; get autoloaded when bootstrapping 32 ;; get autoloaded when bootstrapping
33 (if (or (equal (nth 3 command-line-args) "bootstrap") 33 (if (or (equal (nth 3 command-line-args) "bootstrap")
34 (equal (nth 4 command-line-args) "bootstrap") 34 (equal (nth 4 command-line-args) "bootstrap")
35 ;; in case CANNOT_DUMP 35 ;; in case CANNOT_DUMP
36 (equal (nth 0 command-line-args) "../src/bootstrap-emacs")) 36 (equal (nth 0 command-line-args) "../src/bootstrap-emacs"))
37 (let ((path (car load-path))) 37 (let ((dir (car load-path)))
38 ;; We'll probably overflow the pure space. 38 ;; We'll probably overflow the pure space.
39 (setq purify-flag nil) 39 (setq purify-flag nil)
40 (setq load-path (list path 40 (setq load-path (list dir
41 (expand-file-name "emacs-lisp" path) 41 (expand-file-name "emacs-lisp" dir)
42 (expand-file-name "language" path) 42 (expand-file-name "language" dir)
43 (expand-file-name "international" path) 43 (expand-file-name "international" dir)
44 (expand-file-name "textmodes" path))))) 44 (expand-file-name "textmodes" dir)))))
45 45
46 (message "Using load-path %s" load-path) 46 (message "Using load-path %s" load-path)
47 47
48 ;; We don't want to have any undo records in the dumped Emacs. 48 ;; We don't want to have any undo records in the dumped Emacs.
49 (buffer-disable-undo "*scratch*") 49 (buffer-disable-undo "*scratch*")