From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 20 Jan 2003 08:58:40 +0000 (+0000)
Subject: (load-path): Rename `path' local var.
X-Git-Tag: ttn-vms-21-2-B4~11574
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ceec5b6d67b50fb31a415b51f1710fb0e835828a;p=emacs.git

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

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)