Mercurial > hg > xemacs-beta

diff lisp/package-get.el @ 824:0cce4fee510b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-01 08:25:40 by youngs] 2002-05-01 Steve Youngs <youngs@xemacs.org> * package-get.el (package-get-update-base-entry): Remove code to add package entries into custom. (package-get-custom-groups): Remove. (package-get-custom): Ditto. (package-get-custom-add-entry): Ditto. 2002-04-29 Steve Youngs <youngs@xemacs.org> * menubar-items.el (default-menubar): Remove entry for managing packages via custom. 2002-05-01 Steve Youngs <youngs@xemacs.org> * xemacs/packages.texi (Automatically): Don't mention "Options" menu. (Installing Packages): Don't mention getting list of packages via customize.
author youngs
date Wed, 01 May 2002 08:25:52 +0000
parents e38acbeb1cae
children eb3bc15a6e0f
line wrap: on
line diff
--- a/lisp/package-get.el	Tue Apr 30 15:33:42 2002 +0000
+++ b/lisp/package-get.el	Wed May 01 08:25:52 2002 +0000
@@ -337,8 +337,7 @@
   (let ((existing (assq (car entry) package-get-base)))
     (if existing
         (setcdr existing (cdr entry))
-      (setq package-get-base (cons entry package-get-base))
-      (package-get-custom-add-entry (car entry) (car (cdr entry))))))
+      (setq package-get-base (cons entry package-get-base)))))
 
 (defun package-get-locate-file (file &optional nil-if-not-found no-remote)
   "Locate an existing FILE with respect to `package-get-remote'.
@@ -1044,26 +1043,6 @@
         (message "No appropriate package found")))
     found))
 
-;;
-;; customize interfaces.
-;; The group is in this file so that custom loads includes this file.
-;;
-(defgroup packages nil
-  "Configure XEmacs packages."
-  :group 'emacs)
-
-;;;###autoload
-(defun package-get-custom ()
-  "Fetch and install the latest versions of all customized packages."
-  (interactive)
-  (package-get-require-base t)
-  (mapcar (lambda (pkg)
-	    (if (eval (intern (concat (symbol-name (car pkg)) "-package")))
-		(package-get (car pkg) nil))
-	    t)
-	  package-get-base)
-  (package-net-update-installed-db))
-
 (defun package-get-ever-installed-p (pkg &optional notused)
   (string-match "-package$" (symbol-name pkg))
   (custom-initialize-set
@@ -1073,26 +1052,6 @@
 	(intern (substring (symbol-name pkg) 0 (match-beginning 0))))
        t)))
 
-(defvar package-get-custom-groups nil
-  "List of package-get-custom groups")
-
-(defun package-get-custom-add-entry (package props)
-  (let* ((category (plist-get props 'category))
-         (group (intern (concat category "-packages")))
-         (custom-var (intern (concat (symbol-name package) "-package")))
-         (description (plist-get props 'description)))
-    (when (not (memq group package-get-custom-groups))
-      (setq package-get-custom-groups (cons group
-                                            package-get-custom-groups))
-      (eval `(defgroup ,group nil
-               ,(concat category " package group")
-               :group 'packages)))
-    (eval `(defcustom ,custom-var nil
-             ,description
-             :group ',group
-             :initialize 'package-get-ever-installed-p
-             :type 'boolean))))
-
 
 (provide 'package-get)
 ;;; package-get.el ends here