Mercurial > hg > xemacs-beta

diff lisp/update-elc.el @ 3511:1ee424086c62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-07-16 12:23:57 by aidan] Add docstrings to source-root, build-root, rename them
author aidan
date Sun, 16 Jul 2006 12:23:58 +0000
parents c4c8a36043be
children 9fec7fedbf1b
line wrap: on
line diff
--- a/lisp/update-elc.el	Sun Jul 16 10:51:48 2006 +0000
+++ b/lisp/update-elc.el	Sun Jul 16 12:23:58 2006 +0000
@@ -79,11 +79,13 @@
 ;		    (nthcdr 3 command-line-args))))
 
 
-(defvar build-root (expand-file-name ".." invocation-directory))
+(defvar build-directory (expand-file-name ".." invocation-directory))
+
 (defvar source-lisp (file-name-directory (expand-file-name
-					  (nth 2 command-line-args))))
+ 					  (nth 2 command-line-args))))
+
 (defvar source-lisp-mule (expand-file-name "mule" source-lisp))
-(defvar source-root (expand-file-name ".." source-lisp))
+(defvar source-directory (expand-file-name ".." source-lisp))
 (defvar aa-lisp (expand-file-name "auto-autoloads.el" source-lisp))
 (defvar aac-lisp (expand-file-name "auto-autoloads.elc" source-lisp))
 (defvar aa-lisp-mule (expand-file-name "auto-autoloads.el" source-lisp-mule))
@@ -165,8 +167,8 @@
 	 (setq exe-target "src/xemacs"
 	       dump-target "src/xemacs.dmp")))
 
-  (setq exe-target (expand-file-name exe-target build-root))
-  (setq dump-target (expand-file-name dump-target build-root))
+  (setq exe-target (expand-file-name exe-target build-directory))
+  (setq dump-target (expand-file-name dump-target build-directory))
 
   ;; Not currently used.
 ;   (setq dump-target-out-of-date-wrt-exe-target
@@ -186,7 +188,7 @@
  		  preloaded-file-list
  		  packages-hardcoded-lisp)))
 
-  (load (expand-file-name "site-packages" source-root) t t)
+  (load (expand-file-name "site-packages" source-directory) t t)
   (setq preloaded-file-list
 	(append packages-hardcoded-lisp
 		preloaded-file-list
@@ -272,7 +274,7 @@
   (if dump-target-out-of-date-wrt-dump-files
       (condition-case nil
 	  (write-region-internal
-	   "foo" nil (expand-file-name "src/NEEDTODUMP" build-root))
+	   "foo" nil (expand-file-name "src/NEEDTODUMP" build-directory))
 	(file-error nil)))
 
   )
@@ -324,7 +326,7 @@
 	    (list "-f" "batch-byte-compile-one-file"
 		  aa-lisp-mule)))))
   (condition-case nil
-      (delete-file (expand-file-name "src/REBUILD_AUTOLOADS" build-root))
+      (delete-file (expand-file-name "src/REBUILD_AUTOLOADS" build-directory))
     (file-error nil))
   (cond ((and (not update-elc-files-to-compile)
 	      (not need-to-rebuild-autoloads)
@@ -342,7 +344,7 @@
 	 ;;     they may depend on the updated autoloads.)
 	 (condition-case nil
 	     (write-region-internal
-	      "foo" nil (expand-file-name "src/REBUILD_AUTOLOADS" build-root))
+	      "foo" nil (expand-file-name "src/REBUILD_AUTOLOADS" build-directory))
 	   (file-error nil))
 	 )
 	(t