(load-path): Rename `path' local var.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 5c33e02cbc74db4484f570b4fb528c4d4f70c95e..e4fabb73c15ff7e1a3834ce80c4648eb36f10c02 100644 (file)
--- 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)