# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1043053120 0
# Node ID bdea33173bb59dd15ce8ad4884009d2ae1687481
# Parent  30d026130eaa9fe44205de746956d494f3bae7fd
(load-path): Rename `path' local var.

diff -r 30d026130eaa -r bdea33173bb5 lisp/loadup.el
--- a/lisp/loadup.el	Mon Jan 20 08:54:46 2003 +0000
+++ b/lisp/loadup.el	Mon Jan 20 08:58:40 2003 +0000
@@ -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)