From ceec5b6d67b50fb31a415b51f1710fb0e835828a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 20 Jan 2003 08:58:40 +0000 Subject: [PATCH] (load-path): Rename `path' local var. --- lisp/loadup.el | 12 ++++++------ 1 file 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) -- 2.11.4.GIT