diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-01-20 08:58:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-01-20 08:58:40 +0000 |
| commit | 516d5ac89aa889b74b5281a81f5ce7889bd503cd (patch) | |
| tree | 74978a58b19639e1e62abf330ee4d051744ccfe4 /lisp/loadup.el | |
| parent | 9085af691fa456f0c803a9dace7f42d2e6e0edb5 (diff) | |
| download | emacs-516d5ac89aa889b74b5281a81f5ce7889bd503cd.tar.gz | |
(load-path): Rename `path' local var.
Diffstat (limited to 'lisp/loadup.el')
| -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 @@ (equal (nth 4 command-line-args) "bootstrap") ;; in case CANNOT_DUMP (equal (nth 0 command-line-args) "../src/bootstrap-emacs")) - (let ((path (car load-path))) + (let ((dir (car load-path))) ;; We'll probably overflow the pure space. (setq purify-flag nil) - (setq load-path (list path - (expand-file-name "emacs-lisp" path) - (expand-file-name "language" path) - (expand-file-name "international" path) - (expand-file-name "textmodes" path))))) + (setq load-path (list dir + (expand-file-name "emacs-lisp" dir) + (expand-file-name "language" dir) + (expand-file-name "international" dir) + (expand-file-name "textmodes" dir))))) (message "Using load-path %s" load-path) |