diff options
| author | Richard M. Stallman | 2003-01-20 08:58:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-01-20 08:58:40 +0000 |
| commit | ceec5b6d67b50fb31a415b51f1710fb0e835828a (patch) | |
| tree | 5dfc21217396a9d2d043eea0a868c7ad06325e29 /lisp | |
| parent | 3354fdcfaa6d0cf8ceefd83210d5d24f9a8fea3f (diff) | |
| download | emacs-ceec5b6d67b50fb31a415b51f1710fb0e835828a.tar.gz emacs-ceec5b6d67b50fb31a415b51f1710fb0e835828a.zip | |
(load-path): Rename `path' local var.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/loadup.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 5c33e02cbc7..e4fabb73c15 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -34,14 +34,14 @@ | |||
| 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 | ||