From 04e2043eb2e6783c7d72df3a09006875cf901629 Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Thu, 23 Dec 2010 23:03:57 -0500
Subject: [PATCH] Changed comments and docstring

---
 elinstall.el | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/elinstall.el b/elinstall.el
index 874bb25..8bb9fe7 100644
--- a/elinstall.el
+++ b/elinstall.el
@@ -912,12 +912,10 @@ Filenames are relative."
 ;;file subtree.
 ;;byte-compile - whether to byte-compile at all, t by default.  If it's
 ;;`ask', prompt the user unless recompiling an out-of-date file.
-;;force-recompile - boolean whether to compile even up to date
-;;files, nil by default. 
 ;;make-autoloads - boolean whether to make autoloads, t by default.
 ;;setup-preloads - boolean whether to set up preloads, t by default.
 (defconst elinstall-find-actions-control-vars 
-   '(add-to-load-path-p recurse-dirs-p byte-compile force-recompile
+   '(add-to-load-path-p recurse-dirs-p byte-compile
        make-autoloads setup-preloads)
    "Control special variables that the find-actions tree recognizes" )
 ;;;_    . elinstall-actions-for-source-file
@@ -925,7 +923,7 @@ Filenames are relative."
    "Return a list of actions to do for FILENAME in DIR.
 Special variables are as noted in \"List of special variables\"."
    (declare (special
-	       load-path-element def-file byte-compile force-recompile))
+	       load-path-element def-file byte-compile))
    (let
       ((full-path
 	  (expand-file-name filename dir)))
@@ -1220,7 +1218,6 @@ Recurse just if RECURSE-DIRS-P"
 	 (def-file-time      (elinstall-file-mod-time def-file))
 	 (add-to-load-path-p t)
 	 (recurse-dirs-p     t)
-	 (force-recompile    nil)
 	 (byte-compile       t)
 	 (make-autoloads     t)
 	 (setup-preloads     t)
@@ -1229,7 +1226,7 @@ Recurse just if RECURSE-DIRS-P"
       
       (declare (special
 		  load-path-element def-file add-to-load-path-p
-		  recurse-dirs-p force-recompile byte-compile
+		  recurse-dirs-p byte-compile
 		   block-in-dir block-in-subtree)) 
       
       (elinstall-find-actions-by-spec-x spec dir)))
@@ -1296,7 +1293,8 @@ Parameters:
 PROJECT-NAME - the name of the project
 
 PATH - Path to the project.
-  Suggestion: (elinstall-directory-true-name)
+  Suggestion: Use (elinstall-directory-true-name) to get the real
+  current directoery name even from loaded files.
 
 SPEC - a spec for the autoloads etc to make.  It can be as simple as
 \(dir \"\.\") for installing one directory.
@@ -1320,9 +1318,6 @@ development."
 
 ;;;_  . elinstall-update-directory-autoloads
 
-;;The control variables and values of `force' that would stop other
-;;actions don't exist yet.  Similarly for
-;;`elinstall-update-file-autoloads'. 
 ;;;###autoload
 (defun elinstall-update-directory-autoloads (dir)
    "Update autoloads for directory DIR"
-- 
2.11.4.GIT