(defvar package-get-base nil
"List of packages that are installed at this site.
For each element in the alist, car is the package name and the cdr is
(defvar package-get-base nil
"List of packages that are installed at this site.
For each element in the alist, car is the package name and the cdr is
("uniroma2.it" "ftp.uniroma2.it" "unix/misc/dist/XEMACS/packages")
("icm.edu.pl" "ftp.icm.edu.pl" "pub/unix/editors/xemacs/packages")
("sunet.se" "ftp.sunet.se" "pub/gnu/xemacs/packages")
("uniroma2.it" "ftp.uniroma2.it" "unix/misc/dist/XEMACS/packages")
("icm.edu.pl" "ftp.icm.edu.pl" "pub/unix/editors/xemacs/packages")
("sunet.se" "ftp.sunet.se" "pub/gnu/xemacs/packages")
not, then it uses the (car search) as the remote site-name and the (cadr
search) as the remote-directory and concatenates filename. In other
words
not, then it uses the (car search) as the remote site-name and the (cadr
search) as the remote-directory and concatenates filename. In other
words
(custom-var (intern (concat (symbol-name package) "-package")))
(description (plist-get props 'description)))
(when (not (memq group package-get-custom-groups))
(custom-var (intern (concat (symbol-name package) "-package")))
(description (plist-get props 'description)))
(when (not (memq group package-get-custom-groups))
package-get-custom-groups))
(eval `(defgroup ,group nil
,(concat category " package group")
package-get-custom-groups))
(eval `(defgroup ,group nil
,(concat category " package group")