Mercurial > emacs

changeset 49333:bdea33173bb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(load-path): Rename `path' local var.
author Richard M. Stallman <rms@gnu.org>
date Mon, 20 Jan 2003 08:58:40 +0000
parents 30d026130eaa
children 8dad7ccccdcb
files lisp/loadup.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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)