From ee31a93117d19c80e9ee8d7d772e40f5c7b5b3e8 Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Fri, 12 Nov 2010 15:38:25 -0500 Subject: [PATCH] Rearranged code, removed obsolete functions --- elinstall.el | 40 +++++++++------------------------------- 1 file changed, 9 insertions(+), 31 deletions(-) diff --git a/elinstall.el b/elinstall.el index f211fbb..a895eb6 100644 --- a/elinstall.el +++ b/elinstall.el @@ -119,6 +119,15 @@ CAUTION: This is sensitive to where it's called. That's the point of it." 'elinstall-already-installed elinstall-already-installed "Set by elinstall-record-installed")) +;;;_ . Finding deffiles +;;;_ , elinstall-expand-deffile-name +(defun elinstall-expand-deffile-name (deffile) + "Expand DEFFILE autoload.el's way." + + (expand-file-name (or deffile "loaddefs.el") + (expand-file-name "lisp" + source-directory))) + ;;;_ , Work ;;;_ . Doing actions @@ -792,37 +801,6 @@ Returns a list whose elements are each a cons of: :arrange-preloads arrange-preloads))) ;;;_ . Finding actions -;;;_ , Treating the parameter list -;;;_ . elinstall-add-parameter -(defun elinstall-add-parameter (alist key new-value) - "Add a new value for KEY to ALIST" - - (cons - (cons key new-value) - (assq-delete-all key (copy-list alist)))) - -;;;_ . elinstall-get-parameter -(defun elinstall-get-parameter (alist key) - "Get the value of KEY from ALIST" - - (cdr (assq key alist))) -;;;_ . elinstall-expand-file-name -;;$$OBSOLETE -' -(defun elinstall-expand-file-name (filename alist) - "Expand FILENAME by the value of `path' in ALIST" - (expand-file-name - filename - (elinstall-get-parameter alist 'path))) -;;;_ , Finding deffiles -;;;_ . elinstall-expand-deffile-name -(defun elinstall-expand-deffile-name (deffile) - "Expand DEFFILE autoload.el's way." - - (expand-file-name (or deffile "loaddefs.el") - (expand-file-name "lisp" - source-directory))) - ;;;_ , Informational ;;;_ . elinstall-dir-has-info -- 2.11.4.GIT