Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
emacs-lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
advice.elc
58.25
KB
-rw-r--r--
2023-06-07 04:04
authors.elc
30.49
KB
-rw-r--r--
2023-06-07 04:04
autoload.elc
21.31
KB
-rw-r--r--
2023-06-07 03:59
avl-tree.elc
27.02
KB
-rw-r--r--
2023-06-07 04:04
backquote.elc
4.4
KB
-rw-r--r--
2023-06-07 04:18
benchmark.elc
3.18
KB
-rw-r--r--
2023-06-07 04:04
bindat.elc
10.69
KB
-rw-r--r--
2023-06-07 04:04
byte-opt.elc
35.7
KB
-rw-r--r--
2023-06-07 03:59
byte-run.elc
12.35
KB
-rw-r--r--
2023-06-07 04:18
bytecomp.elc
136.26
KB
-rw-r--r--
2023-06-07 03:59
cconv.elc
15.61
KB
-rw-r--r--
2023-06-07 03:59
chart.elc
22.14
KB
-rw-r--r--
2023-06-07 04:04
check-declare.elc
8.87
KB
-rw-r--r--
2023-06-07 04:04
checkdoc.elc
67.42
KB
-rw-r--r--
2023-06-07 04:04
cl-extra.elc
20.01
KB
-rw-r--r--
2023-06-07 04:04
cl-indent.elc
16.34
KB
-rw-r--r--
2023-06-07 04:04
cl-lib.elc
34.86
KB
-rw-r--r--
2023-06-07 04:04
cl-loaddefs.el
39.75
KB
-rw-r--r--
2013-01-01 15:37
cl-macs.elc
71.79
KB
-rw-r--r--
2023-06-07 04:04
cl-seq.elc
40.03
KB
-rw-r--r--
2023-06-07 04:04
cl.elc
16
KB
-rw-r--r--
2023-06-07 04:04
copyright.elc
10.29
KB
-rw-r--r--
2023-06-07 04:04
crm.elc
7.76
KB
-rw-r--r--
2023-06-07 04:04
debug.elc
26.92
KB
-rw-r--r--
2023-06-07 04:04
derived.elc
11.27
KB
-rw-r--r--
2023-06-07 04:04
disass.elc
5.48
KB
-rw-r--r--
2023-06-07 04:04
easy-mmode.elc
16.81
KB
-rw-r--r--
2023-06-07 04:04
easymenu.elc
20.03
KB
-rw-r--r--
2023-06-07 04:04
edebug.elc
101.25
KB
-rw-r--r--
2023-06-07 04:04
eieio-base.elc
13.18
KB
-rw-r--r--
2023-06-07 04:04
eieio-custom.elc
14.55
KB
-rw-r--r--
2023-06-07 04:04
eieio-datadebug.elc
3.9
KB
-rw-r--r--
2023-06-07 04:04
eieio-opt.elc
20.79
KB
-rw-r--r--
2023-06-07 04:04
eieio-speedbar.elc
12.55
KB
-rw-r--r--
2023-06-07 04:04
eieio.elc
89.24
KB
-rw-r--r--
2023-06-07 04:04
eldoc.elc
15.33
KB
-rw-r--r--
2023-06-07 04:04
elint.elc
31.22
KB
-rw-r--r--
2023-06-07 04:04
elp.elc
12.43
KB
-rw-r--r--
2023-06-07 04:04
ert-x.elc
9.78
KB
-rw-r--r--
2023-06-07 04:04
ert.elc
169.71
KB
-rw-r--r--
2023-06-07 04:04
ewoc.elc
26.49
KB
-rw-r--r--
2023-06-07 04:04
find-func.elc
17.4
KB
-rw-r--r--
2023-06-07 04:04
find-gc.elc
3.54
KB
-rw-r--r--
2023-06-07 04:04
float-sup.elc
1.36
KB
-rw-r--r--
2023-06-07 04:19
generic.elc
6.68
KB
-rw-r--r--
2023-06-07 04:04
gulp.elc
4.69
KB
-rw-r--r--
2023-06-07 04:04
gv.elc
17.81
KB
-rw-r--r--
2023-06-07 04:04
helper.elc
4.03
KB
-rw-r--r--
2023-06-07 04:04
lisp-mnt.elc
22.41
KB
-rw-r--r--
2023-06-07 04:04
lisp-mode.elc
44.27
KB
-rw-r--r--
2023-06-07 04:19
lisp.elc
18.56
KB
-rw-r--r--
2023-06-07 04:19
macroexp.elc
12.84
KB
-rw-r--r--
2023-06-07 04:18
map-ynp.elc
6.42
KB
-rw-r--r--
2023-06-07 04:18
package-x.elc
8.32
KB
-rw-r--r--
2023-06-07 04:04
package.elc
54.49
KB
-rw-r--r--
2023-06-07 04:04
pcase.elc
15.98
KB
-rw-r--r--
2023-06-07 04:04
pp.elc
5.56
KB
-rw-r--r--
2023-06-07 04:04
re-builder.elc
22.81
KB
-rw-r--r--
2023-06-07 04:04
regexp-opt.elc
4.87
KB
-rw-r--r--
2023-06-07 04:19
regi.elc
6.09
KB
-rw-r--r--
2023-06-07 04:04
ring.elc
6.58
KB
-rw-r--r--
2023-06-07 04:04
rx.elc
27.41
KB
-rw-r--r--
2023-06-07 04:04
shadow.elc
9.75
KB
-rw-r--r--
2023-06-07 04:04
smie.elc
35.4
KB
-rw-r--r--
2023-06-07 04:04
syntax.elc
13.69
KB
-rw-r--r--
2023-06-07 04:19
tabulated-list.elc
19.12
KB
-rw-r--r--
2023-06-07 04:19
tcover-ses.elc
15
KB
-rw-r--r--
2023-06-07 04:04
tcover-unsafep.elc
4.02
KB
-rw-r--r--
2023-06-07 04:04
testcover.elc
13.4
KB
-rw-r--r--
2023-06-07 04:04
timer.elc
22.94
KB
-rw-r--r--
2023-06-07 04:19
tq.elc
3.89
KB
-rw-r--r--
2023-06-07 04:04
trace.elc
5.24
KB
-rw-r--r--
2023-06-07 04:04
unsafep.elc
4.92
KB
-rw-r--r--
2023-06-07 04:04
warnings.elc
9.53
KB
-rw-r--r--
2023-06-07 04:04
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:04:53 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/package.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\306\303\310\311& \210\312\320\321\322\316\323\324\314\306\303\310\311& \210\312\325\326\327\316\330\324\314\306\303\310\311& \207" [require tabulated-list custom-declare-group package nil "Manager for Emacs Lisp packages." :group applications :version "24.1" custom-declare-variable package-enable-at-startup t "Whether to activate installed packages when Emacs starts.\nIf non-nil, packages are activated after reading the init file\nand before `after-init-hook'. Activation is not done if\n`user-init-file' is nil (e.g. Emacs was started with \"-q\").\n\nEven if the value is nil, you can type \\[package-initialize] to\nactivate the package system at any time." :type boolean package-load-list '(all) "List of packages for `package-initialize' to load.\nEach element in this list should be a list (NAME VERSION), or the\nsymbol `all'. The symbol `all' says to load the latest installed\nversions of all packages not specified by other elements.\n\nFor an element (NAME VERSION), NAME is a package name (a symbol).\nVERSION should be t, a string, or nil.\nIf VERSION is t, all versions are loaded, though obsolete ones\n will be put in `package-obsolete-alist' and not activated.\nIf VERSION is a string, only that version is ever loaded.\n Any other version, even if newer, is silently ignored.\n Hence, the package is \"held\" at that version.\nIf VERSION is nil, the package is not loaded (it is \"disabled\")." (repeat symbol) :risky package-archives '(("gnu" . "http://elpa.gnu.org/packages/")) "An alist of archives from which to fetch.\nThe default value points to the GNU Emacs package repository.\n\nEach element has the form (ID . LOCATION).\n ID is an archive name, as a string.\n LOCATION specifies the base location for the archive.\n If it starts with \"http:\", it is treated as a HTTP URL;\n otherwise it should be an absolute directory name.\n (Other types of URL are currently not supported.)\n\nOnly add locations that you trust, since fetching and installing\na package can run arbitrary code." (alist :key-type (string :tag "Archive name") :value-type (string :tag "URL or directory name"))] 12) #@133 Version number of the package archive understood by this file. Lower version numbers than this will probably be understood as well. (defconst package-archive-version 1 (#$ . 2770)) #@24 Version of package.el. (defconst package-el-version "1.0" (#$ . 2957)) #@344 Cache of the contents of the Emacs Lisp Package Archive. This is an alist mapping package names (symbols) to package descriptor vectors. These are like the vectors for `package-alist' but have extra entries: one which is 'tar for tar packages and 'single for single-file packages, and one which is the name of the archive from which it came. (defvar package-archive-contents nil (#$ . 3035)) (byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\303\313\314\315\316& \210\304\317\320\321\310\322\312\303\313\314\315\316& \207" [put package-archive-contents risky-local-variable t custom-declare-variable package-user-dir (locate-user-emacs-file "elpa") "Directory containing the user's Emacs Lisp packages.\nThe directory name should be absolute.\nApart from this directory, Emacs also looks for system-wide\npackages in `package-directory-list'." :type directory :risky :group package :version "24.1" package-directory-list (let (result) (dolist (f load-path) (and (stringp f) (equal (file-name-nondirectory f) "site-lisp") (push (expand-file-name "elpa" f) result))) (nreverse result)) "List of additional directories containing Emacs Lisp packages.\nEach directory name should be absolute.\n\nThese directories contain packages intended for system-wide; in\ncontrast, `package-user-dir' contains packages for personal use." (repeat directory)] 12) #@605 Alist of built-in packages. The actual value is initialized by loading the library `finder-inf'; this is not done until it is needed, e.g. by the function `package-built-in-p'. Each element has the form (PKG . DESC), where PKG is a package name (a symbol) and DESC is a vector that describes the package. The vector DESC has the form [VERSION-LIST REQS DOCSTRING]. VERSION-LIST is a version list. REQS is a list of packages required by the package, each requirement having the form (NAME VL), where NAME is a string and VL is a version list. DOCSTRING is a brief description of the package. (defvar package--builtins nil (#$ . 4402)) (put 'package--builtins 'risky-local-variable t) #@660 Alist of all packages available for activation. Each element has the form (PKG . DESC), where PKG is a package name (a symbol) and DESC is a vector that describes the package. The vector DESC has the form [VERSION-LIST REQS DOCSTRING]. VERSION-LIST is a version list. REQS is a list of packages required by the package, each requirement having the form (NAME VL) where NAME is a string and VL is a version list. DOCSTRING is a brief description of the package. This variable is set automatically by `package-load-descriptor', called via `package-initialize'. To change which packages are loaded and/or activated, customize `package-load-list'. (defvar package-alist nil (#$ . 5105)) (put 'package-alist 'risky-local-variable t) #@52 List of the names of currently activated packages. (defvar package-activated-list nil (#$ . 5854)) (put 'package-activated-list 'risky-local-variable t) #@138 Representation of obsolete packages. Like `package-alist', but maps package name to a second alist. The inner alist is keyed by version. (defvar package-obsolete-alist nil (#$ . 6014)) (put 'package-obsolete-alist 'risky-local-variable t) #@228 Return the version string corresponding to the list VLIST. This is, approximately, the inverse of `version-to-list'. (Actually, it returns only one of the possible inverses, since `version-to-list' is a many-to-one operation.) (defalias 'package-version-join #[(vlist) "\204 \304\207\305\306@!DA\307\211\203{ @\211\310Y\203, \306\n! B\305 B\202t \n\311W\203: \312\313\"\210\202t @\305\232\203I \210 A\202V \314\315 @\"\204V \312\313\"\210\n\316U\203` \317\202q \n\320U\203j \321\202q \n\311U\205q \322 B A\211\204 * @\305\232\203\210 \210 A\323\324 \237\")\207" [vlist str-list num --dolist-tail-- "" "." int-to-string nil 0 -3 error "Invalid version list `%s'" string-match "[0-9]+" -1 "pre" -2 "beta" "alpha" apply concat] 4 (#$ . 6260)]) #@108 Strip the version from a combined package name and version. E.g., if given "quux-23.0", will return "quux" (defalias 'package-strip-version #[(dirname) "\302\303\304Q \"\205 \305\306 \"\207" [package-subdirectory-regexp dirname string-match "\\`" "\\'" match-string 1] 4 (#$ . 7029)]) #@176 Load the description file in directory DIR for package PACKAGE. Here, PACKAGE is a string of the form NAME-VERSION, where NAME is the package name and VERSION is its version. (defalias 'package-load-descriptor #[(dir package) "\304 \"\304\305!\306P\n\"\307\n!\205! \310 \311P!\205! \312 \313\314#*\207" [package dir pkg-dir pkg-file expand-file-name package-strip-version "-pkg" file-directory-p file-exists-p ".el" load nil t] 4 (#$ . 7323)]) #@407 Load descriptors for installed Emacs Lisp packages. This looks for package subdirectories in `package-user-dir' and `package-directory-list'. The variable `package-load-list' controls which package subdirectories may be loaded. In each valid package subdirectory, this function loads the description file containing a call to `define-package', which updates `package-alist' and `package-obsolete-alist'. (defalias 'package-load-all-descriptors #[nil "\306\307Q\n B\310 \211 \205M @\311\f!\203E \312\f!\310 \211 \203D @\313 \"\203= \314\315\316\"\315\317\"\f#\210 A\211\204# * A\211\204 \310+\207" [package-subdirectory-regexp regexp package-user-dir package-directory-list dir --dolist-tail-- "\\`" "\\'" nil file-directory-p directory-files string-match package-maybe-load-descriptor match-string 1 2 subdir] 6 (#$ . 7778)]) #@228 Maybe load a specific package from directory DIR. NAME and VERSION are the package's name and version strings. This function checks `package-load-list', before actually loading the package by calling `package-load-descriptor'. (defalias 'package-maybe-load-descriptor #[(name version dir) "\306! \236\307\nQ \310\311 \"!\205N \f\204 \312 >\202G \f\211 A@)\211\204. \313\202N \f\314=\204J \f;\203D \315\316\n!\316\f!\"\202G \317\320!\205N \321 \"*\207" [name package-load-list version subdir force dir intern "-" file-directory-p expand-file-name all nil t version-list-= version-to-list error "Invalid element in `package-load-list'" package-load-descriptor x] 5 (#$ . 8630)]) #@52 Extract version from a package description vector. (defalias 'package-desc-vers #[(desc) "\301H\207" [desc 0] 2 (#$ . 9321)]) (put 'package-desc-vers 'byte-optimizer 'byte-compile-inline-expand) #@57 Extract requirements from a package description vector. (defalias 'package-desc-reqs #[(desc) "\301H\207" [desc 1] 2 (#$ . 9523)]) (put 'package-desc-reqs 'byte-optimizer 'byte-compile-inline-expand) #@55 Extract doc string from a package description vector. (defalias 'package-desc-doc #[(desc) "\301H\207" [desc 2] 2 (#$ . 9730)]) (put 'package-desc-doc 'byte-optimizer 'byte-compile-inline-expand) #@74 Extract the kind of download from an archive package description vector. (defalias 'package-desc-kind #[(desc) "\301H\207" [desc 3] 2 (#$ . 9933)]) (put 'package-desc-kind 'byte-optimizer 'byte-compile-inline-expand) #@103 Return the directory where a package is installed, or nil if none. NAME and VERSION are both strings. (defalias 'package--dir #[(name version) "\306 Q \fB \307 \n \203. \310\n @\" \311 !\203' \n\307\202* A)\202\f \n+\207" [name version subdir package-user-dir package-directory-list dir-list "-" nil expand-file-name file-directory-p pkg-dir subdir-full] 3 (#$ . 10158)]) (defalias 'package-activate-1 #[(package pkg-vec) "\306!\307\n\211\310H)! \311 \f\"\211 \204 \312\313 \f#\210\314\315\316 \"!\2032 \317\320!\210\321 \210 B B\322\315 \323P \"\324\325#\210B+\325\207" [package name pkg-vec desc version-str pkg-dir symbol-name package-version-join 0 package--dir error "Internal error: unable to find directory for `%s-%s'" file-exists-p expand-file-name "dir" require info info-initialize load "-autoloads" nil t Info-directory-list load-path package-activated-list] 5]) #@152 Return true if PACKAGE is built-in to Emacs. Optional arg MIN-VERSION, if non-nil, should be a version list specifying the minimum acceptable version. (defalias 'package-built-in-p #[(package &optional min-version) "\306\307\310\311#\210\312=\203 \313 \314\n!\"\207 \236\211 \205% \313 \fA\211 \315H)\")\207" [package min-version emacs-version package--builtins elt desc require finder-inf nil t emacs version-list-<= version-to-list 0] 5 (#$ . 11068)]) #@208 Activate package PACKAGE, of version MIN-VERSION or newer. MIN-VERSION should be a version list. If PACKAGE has any dependencies, recursively activate them. Return nil if the package could not be activated. (defalias 'package-activate #[(package min-version) " \236A\306\211\211 \203 \f\211 \307H)\310 \"\n\204& \311\"\202S >\2031 \312\202S \313\314\215\211 \203N \315\316@\317\211 A@)!$\202R \320\f\")+\207" [package package-alist found available-version pkg-vec desc nil 0 version-list-<= package-built-in-p t dep-failure (byte-code "\211\305H)\306\211\205* @\307\n@\n\211 A@)\"\204\" \310\311\n\"\210 A\211\204 \306*\207" [pkg-vec desc req --dolist-tail-- x 1 nil package-activate throw dep-failure] 4) warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package-version-join package-activate-1 min-version package-activated-list fail x] 7 (#$ . 11532)]) #@57 Put package on the obsolete list, if not already there. (defalias 'package-mark-obsolete #[(package pkg-vec) " \236\211\203& \305 \211 \306H)\nA\"?\2055 \n \211 \306H) B\nAB\241\2025 \211 \306H) BCB B\211)\207" [package package-obsolete-alist elt pkg-vec desc assoc 0] 4 (#$ . 12455)]) #@389 Define a new package. NAME-STRING is the name of the package, as a string. VERSION-STRING is the version of the package, as a string. DOCSTRING is a short description of the package, a string. REQUIREMENTS is a list of dependencies on other packages. Each requirement is of the form (OTHER-PACKAGE OTHER-VERSION), where OTHER-VERSION is a string. EXTRA-PROPERTIES is currently unused. (defalias 'define-package #[(name-string version-string &optional docstring requirements &rest _extra-properties) "\306!\307\n! \310 \311\312\f\" #B \236\211 \204) B\211\202d \313A\211 \314H) \"\203N \315 A\"\210\316\"B\211\202d \317A\211 \314H) \"?\205d \315 A\",\207" [name-string name version-string version requirements docstring intern version-to-list vector mapcar #[(elt) "@\301A@!D\207" [elt version-to-list] 3] version-list-< 0 package-mark-obsolete delq version-list-= new-pkg-desc package-alist old-pkg desc] 7 (#$ . 12753)]) #@68 Make sure that the autoload file FILE exists and if not create it. (defalias 'package-autoload-ensure-default-file #[(file) "\301!\204 \302\303\304!\305\306\307\310\311\312\313\314\303\304!\315\260 \316#\210\207" [file file-exists-p write-region ";;; " file-name-nondirectory " --- automatically extracted autoloads\n" ";;\n" ";;; Code:\n\n" "\f\n;; Local Variables:\n" ";; version-control: never\n" ";; no-byte-compile: t\n" ";; no-update-autoloads: t\n" ";; End:\n" " ends here\n" nil] 14 (#$ . 13718)]) (defalias 'package-generate-autoloads #[(name pkg-dir) "\306\307!\210\310P\311 \n\"\312 \313\314!\204 \315 !\210\316\n!\210\317 !\211 \205( \320 !,\207" [name auto-name pkg-dir generated-autoload-file version-control buf require autoload "-autoloads.el" expand-file-name never fboundp autoload-ensure-default-file package-autoload-ensure-default-file update-directory-autoloads find-buffer-visiting kill-buffer] 4]) #@151 Untar the current buffer. This uses `tar-untar-buffer' from Tar mode. All files should untar into a directory named DIR; otherwise, signal an error. (defalias 'package-untar-buffer #[(dir) "\306\307!\210\307 \210\310\311\312!!\313Q \314>\f\315 \211 \203N @\312\316 !! \317 \"\204D \230\203? \320 !\321=\204D \322\323\"\210)A\211\204 ,\324 \207" [dir system-type case-fold-search regexp tar-parse-info tar-data require tar-mode "\\`" regexp-quote expand-file-name "/" (windows-nt ms-dos cygwin) nil tar-header-name string-match tar-header-link-type 5 error "Package does not untar cleanly into directory %s/" tar-untar-buffer --dolist-tail-- name] 5 (#$ . 14657)]) (defalias 'package-unpack #[(package version) "\306!\211\307\nQ\310 \f\" \311\f\312\"\210\313\f! \314 !\210\315 \",\207" [package name version dirname package-user-dir pkg-dir symbol-name "-" expand-file-name make-directory t file-name-as-directory package-untar-buffer package--make-autoloads-and-compile default-directory] 4]) #@114 Generate autoloads and do byte-compilation for package named NAME. PKG-DIR is the name of the package directory. (defalias 'package--make-autoloads-and-compile #[(name pkg-dir) "\303 \"\210 \nB\304\305\306P \"\307\310#\210\311 \312\310#)\207" [name pkg-dir load-path package-generate-autoloads load expand-file-name "-autoloads" nil t byte-recompile-directory 0] 4 (#$ . 15682)]) (defalias 'package--write-file-no-coding #[(file-name) "\302\303ed #)\207" [buffer-file-coding-system file-name no-conversion write-region] 4]) #@58 Install the contents of the current buffer as a package. (defalias 'package-unpack-single #[(file-name version desc requires) "\306\230\203 \307\310\311P \"!\207\310\312\313\314\n!!Q \"\310\311P \" \310\315P \" \316 \317\"\210\307\f!\210\320\211 \321\322\323\n \324\325\326 \"D\257!\327P\320 \320\211\211\330&\210*\331 \"+\207" [file-name package-user-dir version pkg-dir el-file pkg-file "package" package--write-file-no-coding expand-file-name ".el" "-" package-version-join version-to-list "-pkg.el" make-directory t nil write-region prin1-to-string define-package quote mapcar #[(elt) "@\302\211A@)!D\207" [elt x package-version-join] 4] "\n" excl package--make-autoloads-and-compile print-length print-level desc requires] 10 (#$ . 16216)]) #@444 Run BODY in a buffer containing the contents of FILE at LOCATION. LOCATION is the base location of a package archive, and should be one of the URLs (or file names) specified in `package-archives'. FILE is the name of a file relative to that base location. This macro retrieves FILE from LOCATION into a temporary buffer, and evaluates BODY while that buffer is current. This work buffer is killed afterwards. Return the last value in BODY. (defalias 'package--with-work-buffer '(macro . #[(location file &rest body) "\303\304\305\306ED\307\310\304\311\312 ED\313BBBDD\314\315\307\310\304\316\317\320D\321\322EE\323\324 ED\257\nBBB\325BBE\207" [location file body let* http string-match "\\`https?:" buffer if url-retrieve-synchronously concat ((generate-new-buffer "*package work buffer*")) prog1 with-current-buffer (progn (package-handle-response) (re-search-forward "^$" nil 'move) (forward-char) (delete-region (point-min) (point))) unless file-name-absolute-p error "Archive location %s is not an absolute file name" insert-file-contents expand-file-name ((kill-buffer buffer))] 13 (#$ . 16988)])) #@296 Handle the response from a `url-retrieve-synchronously' call. Parse the HTTP response and throw if an error occurred. The url package seems to require extra processing for this. This should be called in a `save-excursion', in the download buffer. It will move point to somewhere in the headers. (defalias 'package-handle-response #[nil "\301\302!\210\303 \211\304W\204 \305Y\205 \306\307\310`\311\210`\"\")\207" [response require url-http url-http-parse-response 200 300 error "Error during download request:%s" buffer-substring-no-properties nil] 6 (#$ . 18107)]) #@45 Download and install a single-file package. (defalias 'package-download-single #[(name version desc requires) "\306!\307!\310 \311R\312\313 \"\211 \203 \314 \nP!\202 \315\316! r q\210\f\203< \317 \210\320\321\322\323#\210\322u\210e`|\210\202N \324 !\204G \325\326 \"\210\327\330\n \"!\210\331\307! $)\332 !\210,\207" [name version file location http buffer package-archive-base symbol-name "-" ".el" string-match "\\`https?:" url-retrieve-synchronously generate-new-buffer "*package work buffer*" package-handle-response re-search-forward "^$" nil move file-name-absolute-p error "Archive location %s is not an absolute file name" insert-file-contents expand-file-name package-unpack-single kill-buffer desc requires] 6 (#$ . 18683)]) #@37 Download and install a tar package. (defalias 'package-download-tar #[(name version) "\306!\307!\310 \311R\312\313 \"\211 \203 \314 \nP!\202 \315\316! r q\210\f\203< \317 \210\320\321\322\323#\210\322u\210e`|\210\202N \324 !\204G \325\326 \"\210\327\330\n \"!\210\331 \")\332 !\210,\207" [name version file location http buffer package-archive-base symbol-name "-" ".tar" string-match "\\`https?:" url-retrieve-synchronously generate-new-buffer "*package work buffer*" package-handle-response re-search-forward "^$" nil move file-name-absolute-p error "Archive location %s is not an absolute file name" insert-file-contents expand-file-name package-unpack kill-buffer] 6 (#$ . 19435)]) #@102 Return true if PACKAGE, of MIN-VERSION or newer, is installed. MIN-VERSION should be a version list. (defalias 'package-installed-p #[(package &optional min-version) "\204 \306\307!\210 \n\236\211\203 \310\f A\211 \311H)\"\202! \312 \f\")\207" [package--initialized package package-alist pkg-desc min-version desc error "package.el is not yet initialized!" version-list-<= 0 package-built-in-p] 5 (#$ . 20135)]) #@563 Return a list of packages to be installed, including PACKAGE-LIST. PACKAGE-LIST should be a list of package names (symbols). REQUIREMENTS should be a list of additional requirements; each element in this list should have the form (PACKAGE VERSION-LIST), where PACKAGE is a package name and VERSION-LIST is the required version of that package. This function recursively computes the requirements of the packages in REQUIREMENTS, and returns a list of all the packages that must be installed. Packages that are already installed are not included in this list. (defalias 'package-compute-transaction #[(package-list requirements) "\306\211\203\312 \n@\211@ \211 A@) \307 \"\204\302 \236\306 \236\211\203r \211 A@)\211\310=\204r \306=\203O \311\312\313 !\"\210\202r ;\204\\ \311\314!\210\202r \315\316! \"\203r \311\317\313 !\320 !$\210\204\201 \311\321\313 !\320 !#\210\322 A\211 \323H)\"\204\245 \311\324\313 !\320 !\320A\211 \323H)!$\210 >\204\262 B \325 A\211 \326H)\" **\nA\211\204 * \207" [requirements elt --dolist-tail-- next-pkg x next-version nil package-installed-p t error "Required package '%s' is disabled" symbol-name "Invalid element in `package-load-list'" version-list-< version-to-list "Package `%s' held at version %s, but version %s required" package-version-join "Package `%s-%s' is unavailable" version-list-<= 0 "Need package `%s-%s', but only %s is available" package-compute-transaction 1 package-archive-contents hold pkg-desc package-load-list desc package-list] 8 (#$ . 20558)]) #@85 Read a Lisp expression from STR. Signal an error if the entire string was not used. (defalias 'package-read-from-string #[(str) "\303!\304\305\306\217\211\203 \307\310!\202 @*\207" [str read-data more-left read-from-string nil (byte-code "\302 A\303O!\210\304\207" [str read-data read-from-string nil t] 4) ((end-of-file)) error "Can't read whole string"] 4 (#$ . 22123)]) #@168 Re-read archive file FILE, if it exists. Will return the data from the file, or nil if the file does not exist. Will throw an error if the archive version is too new. (defalias 'package--read-archive-file #[(file) "\306 \"\307\n!\205. \310\311!r q\210\312\216\313\n!\210\314p!\211 @ V\203+ \315\316\f@ #\210\fA,)\207" [file package-user-dir filename #1=#:temp-buffer contents package-archive-version expand-file-name file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally read error "Package archive version %d is higher than %d"] 5 (#$ . 22510)]) #@90 Re-read `archive-contents', if it exists. If successful, set `package-archive-contents'. (defalias 'package-read-all-archive-contents #[nil "\304 \304\211\205 @\305\n@!\210 A\211\204\n \304*\207" [package-archive-contents package-archives archive --dolist-tail-- nil package-read-archive-contents] 3 (#$ . 23167)]) #@151 Re-read archive contents for ARCHIVE. If successful, set the variable `package-archive-contents'. If the archive version is too new, signal an error. (defalias 'package-read-archive-contents #[(archive) "\306P\211\307P\310\311\n!\211\205+ \310 \211 \205* @\312\f\"\210 A\211\204 \310*+\207" [archive dir contents-file contents package --dolist-tail-- "archives/" "/archive-contents" nil package--read-archive-file package--add-to-archive-contents] 4 (#$ . 23496)]) #@122 Add the PACKAGE from the given ARCHIVE if necessary. Also, add the originating archive to the end of the package vector. (defalias 'package--add-to-archive-contents #[(package archive) "@A\211\306H) \307A\310\f!\"B \n\236\211 \204& \311\312 \"\202? \313 A\211\306H) \"\205? \314 \n\"B\211\n,\207" [package name desc version archive entry 0 vconcat vector add-to-list package-archive-contents version-list-< delq existing-package] 6 (#$ . 23979)]) #@269 Download and install all the packages in PACKAGE-LIST. PACKAGE-LIST should be a list of package names (symbols). This function assumes that all package requirements in PACKAGE-LIST are satisfied, i.e. that PACKAGE-LIST is computed using `package-compute-transaction'. (defalias 'package-download-transaction #[(package-list) "\306\211\205\205 \n@\211 \236A \236\211 A@)\211 ;\203% \206- \307\f\211 \310H)! \f\211 \311H)\211 \312=\203F \313 \"\210\202j \314=\203b \315 \f\211 \316H)\f\211 \317H)$\210\202j \320\321\322!\"\210\323\322 !#\210\324 \325!\"\210,\nA\211\204 \306*\207" [package-list elt --dolist-tail-- package-archive-contents desc package-load-list nil package-version-join 0 3 tar package-download-tar single package-download-single 2 1 error "Unknown package kind: %s" symbol-name package-maybe-load-descriptor package-activate version-to-list x hold v-string kind package-user-dir] 7 (#$ . 24448)]) (defvar package--initialized nil) #@160 Install the package named NAME. NAME should be the name of one of the available packages in an archive in `package-archives'. Interactively, prompt for NAME. (defalias 'package-install #[(name) " \236\211\204 \304\305\306!\"\210\307\310C\nA\211\311H)\"!)\207" [name package-archive-contents pkg-desc desc error "Package `%s' is not available for installation" symbol-name package-download-transaction package-compute-transaction 1] 6 (#$ . 25431) (progn (if package--initialized nil (package-initialize t)) (if package-archive-contents nil (package-refresh-contents)) (list (intern (completing-read "Install package: " (mapcar #'(lambda (elt) (cons (symbol-name (car elt)) nil)) package-archive-contents) nil t))))]) #@135 Strip RCS version ID from the version string STR. If the result looks like a dotted numeric version, return it. Otherwise return nil. (defalias 'package-strip-rcs-id #[(str) "\205 \301\302\"\203 \303\225\304O\304\305\306\217\207" [str string-match "\\`[ ]*[$]Revision:[ ]+" 0 nil (byte-code "\301!\205 \207" [str version-to-list] 2) ((error))] 3 (#$ . 26162)]) #@619 Return a vector describing the package in the current buffer. The vector has the form [FILENAME REQUIRES DESCRIPTION VERSION COMMENTARY] FILENAME is the file name, a string, sans the ".el" extension. REQUIRES is a list of requirements, each requirement having the form (NAME VER); NAME is a string and VER is a version list. DESCRIPTION is the package description, a string. VERSION is the version, a string. COMMENTARY is the commentary section, a string, or nil if none. If the buffer does not contain a conforming package, signal an error. If there is a package, narrow the buffer to the file's boundaries. (defalias 'package-buffer-info #[nil "eb\210\306\307\310\311#\204 \312\313!\210\314\315!\314\316!\317 \320\321\n\322Q!\204' \312\323!\210\310y\210`}\210\324\325!\210\326\327!\211\205= \330 ! \331\326\332!!\206K \331\326\333!! \334 ! \204X \312\335!\210\336\337\f\"\340\n\f !%.\207" [start desc file-name requires-str requires pkg-version re-search-forward "^;;; \\([^ ]*\\)\\.el ---[ ]*\\(.*?\\)[ ]*\\(-\\*-.*-\\*-[ ]*\\)?$" nil t error "Packages lacks a file header" match-string-no-properties 1 2 line-beginning-position search-forward ";;; " ".el ends here" "Package lacks a terminating comment" require lisp-mnt lm-header "package-requires" package-read-from-string package-strip-rcs-id "package-version" "version" lm-commentary "Package lacks a \"Version\" or \"Package-Version\" header" mapcar #[(elt) "@\301A@!D\207" [elt version-to-list] 3] vector commentary] 7 (#$ . 26541)]) #@145 Find package information for a tar file. FILE is the name of the tar file to examine. The return result is a vector like `package-buffer-info'. (defalias 'package-tar-file-info #[(file) "\306!\307!\310\311\n\312Q\"\204 \313\314\"\210\315\316\"\315\317\" \320\321\322 \323\f\324 \325\260 ! \326 !\211 $@\327=\204@ \313\330 \"\210$A@\317$8\331$8\332$8\320\321\322 \323\f\333\260! % & ' ( )\f(\232\204p \313\334!\210 )\232\204{ \313\335!\210\310\336%\"\203\206 \337%&@\340=\203\224 &A@&\341\342&\"&\343 &'(%%. \207" [file default-directory package-subdirectory-regexp pkg-name pkg-version pkg-def-contents file-name-directory file-name-nondirectory string-match "\\`" "\\.tar\\'" error "Invalid package name `%s'" match-string-no-properties 1 2 shell-command-to-string "tar -xOf " " " "-" "/" "-pkg.el" package-read-from-string define-package "No `define-package' sexp is present in `%s-pkg.el'" 3 4 "/README" "Package has inconsistent versions" "Package has inconsistent names" ": Not found in archive" nil quote mapcar #[(elt) "@\302\211A@)!D\207" [elt x version-to-list] 4] vector pkg-def-parsed readme requires docstring version-string name-str] 13 (#$ . 28067)]) #@375 Install a package from the current buffer. When called interactively, the current buffer is assumed to be a single .el file that follows the packaging guidelines; see info node `(elisp)Packaging'. When called from Lisp, PKG-INFO is a vector describing the information, of the type returned by `package-buffer-info'; and TYPE is the package type (either `single' or `tar'). (defalias 'package-install-from-buffer #[(pkg-info type) "\212\214\306H\307H\310H\311\230\203 \312\202 \310H\313H \314\315\n\" \316 !\210)\317=\2039 \320 \f \n$\210\202R \321=\203J \322\323 !\f\"\210\202R \324\325\326!\"\210\327 .\207" [pkg-info file-name requires desc pkg-version transaction 0 1 2 "" "No description available." 3 package-compute-transaction nil package-download-transaction single package-unpack-single tar package-unpack intern error "Unknown type: %s" symbol-name package-initialize type] 5 (#$ . 29272) (list (package-buffer-info) 'single)]) #@89 Install a package from a file. The file can either be a tar file or an Emacs Lisp file. (defalias 'package-install-file #[(file) "\302\303!rq\210\304\216\305 !\210\306\307 \"\203 \310\311 \312\"\2023 \306\313 \"\203- \310\314 !\315\"\2023 \316\317\320 !\"+\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally string-match "\\.el$" package-install-from-buffer package-buffer-info single "\\.tar$" package-tar-file-info tar error "Unrecognized extension `%s'" file-name-extension] 4 (#$ . 30234) "fPackage file name: "]) (defalias 'package-delete #[(name version) "\304 \"\305\n!\306\307 !!\230\203 \310\n\311\211#\210\312\313 #\202$ \314\315 #)\207" [name version dir package-user-dir package--dir file-name-directory file-name-as-directory expand-file-name delete-directory t message "Package `%s-%s' deleted." error "Package `%s-%s' is a system package, not deleting"] 4]) #@49 Return the archive containing the package NAME. (defalias 'package-archive-base #[(name) "\304! \236A\305\n\211GSH \"A)\207" [name package-archive-contents desc package-archives intern-soft assoc] 3 (#$ . 31239)]) #@241 Retrieve an archive file FILE from ARCHIVE, and cache it. ARCHIVE should be a cons cell of the form (NAME . LOCATION), similar to an entry in `package-alist'. Save the cached copy to "archives/NAME/archive-contents" in `package-user-dir'. (defalias 'package--download-one-archive #[(archive file) "\306\307\"\306\n@ \"\310\311\nA\"\211\203 \312\nA\fP!\202! \313\314! r q\210 \203= \315 \210\316\317\320\321#\210\320u\210e`|\210\202R \322\nA!\204J \323\324\nA\"\210\325\306\f\nA\"!\210\326 !<\205j \327 \330\"\210\306\f \" \331 \332 ))\333 !\210,\207" [package-user-dir dir archive http file buffer expand-file-name "archives" string-match "\\`https?:" url-retrieve-synchronously generate-new-buffer "*package work buffer*" package-handle-response re-search-forward "^$" nil move file-name-absolute-p error "Archive location %s is not an absolute file name" insert-file-contents read make-directory t never save-buffer kill-buffer buffer-file-name version-control] 5 (#$ . 31462)]) #@151 Download the ELPA archive description if needed. This informs Emacs about the latest versions of all packages, and makes them available for download. (defalias 'package-refresh-contents #[nil "\306!\204 \307\310\"\210 \311\211\203/ @\312 \203\" \f \210\202' \311\313\314\217\210) A\211\204 *\315 \207" [package-user-dir package-archives archive --dolist-tail-- #1=#:body debug-on-error file-exists-p make-directory t nil #[nil "\301\302\"\207" [archive package--download-one-archive "archive-contents"] 3] (funcall #1#) ((error (byte-code "\301\302@\"\207" [archive message "Failed to download `%s' archive."] 3))) package-read-all-archive-contents] 4 (#$ . 32458) nil]) #@177 Load Emacs Lisp packages, and activate them. The variable `package-load-list' controls which packages to load. If optional arg NO-ACTIVATE is non-nil, don't activate packages. (defalias 'package-initialize #[(&optional no-activate) "\306\211\307 \210\310 \210\n\204- \306\211 \203, \f@\311 @ A\211 \312H)\"\210\fA\211\204 *\313\211\f\207" [package-alist package-obsolete-alist no-activate elt --dolist-tail-- desc nil package-load-all-descriptors package-read-all-archive-contents package-activate 0 t package--initialized] 5 (#$ . 33148) nil]) #@55 Display the full documentation of PACKAGE (a symbol). (defalias 'describe-package #[(package) "\203 9\204 \306\307!\207\310\311D\312\313!\"\210 \314\211\223\210\314\315 B\f r\316\317 !q\210p\320 \210 \314\211\321\211\321 \322 \210\323\324!\210+\211 r q\210\325!)\326 !\210+\327\n!\210*\207" [package help-window-point-marker help-window temp-buffer-show-hook default-directory #1=#:old-dir message "No package specified" help-setup-xref describe-package called-interactively-p interactive nil #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook describe-package-1 internal-temp-output-buffer-show help-window-setup buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 33707) (let* ((guess (function-called-at-point)) packages val) (require 'finder-inf nil t) (if package--initialized nil (package-initialize t)) (setq packages (append (mapcar 'car package-alist) (mapcar 'car package-archive-contents) (mapcar 'car package--builtins))) (if (memq guess packages) nil (setq guess nil)) (setq packages (mapcar 'symbol-name packages)) (setq val (completing-read (if guess (format "Describe package (default %s): " guess) "Describe package: ") packages nil t nil nil guess)) (list (if (equal val "") guess (intern val))))]) (defalias 'describe-package-1 #[(package) "\306\307!\210\310! \236\311\211\211\211\211 @ A B\312!\210\313\314!\210C\236A\211@\203M \315@\211 @\316H)!\317B \"\211\203G \320c\210\202\224 \321c\210\202\224 D\236A\211@\203v \315@\211 @\316H)!\322A\203p \323c\210\202\224 \324c\210\202\224 A\203\221 AA@\315@\211 @\316H)!\323c\210\202\224 \325c\210\326\327\330\331\332#\333\261\210 \203\314 \327\334\331\335#c\210\336c\210\337\340 !\341 #\210A\203\306 \342\327\343\331\344#\345\261\210\202!\346c\210\202!\n\203A\203\341 \327\347\331\344#\350\261\210\202\344 \351c\210\352 \203\355 \353\202\356 \354\352 \203\367 \355\202\370 \356 E F\357F\360E\361\322\362\363\364& \210*\202!A\203 \327\347\331\344#c\210\202!\365c\210\366c\210 \203; G\316V\203;\367\327\370\331\332#\333 \366\261\210@\205H@\211 @\371H)\211\203\314\372\327\373\331\332#\333\261\210\322\311\211\211 G H I J\f\311 K\211 L\203\307L@\211K@IK\211 MA@)H\374\375\310I!\315H!#GJ\203\230\311J\202\264\376\377iGG#\201U Y\203\257\201V c\210\202\264\201W c\210\337G\201X I#\210LA\211L\204m*\366c\210,\367\327\201Y \331\332#\333@\205\342@\211 @\377H)\201Z \261\210A\203B\201[ B\201\\ PNO#` P Q\201] Q!\206\f\201^ c\210\212Pb\210\201_ \201` \311\322#\203'\201a \201^ !\210\201_ \201b \311\322#\205>\201a \201^ !\210\202'+\202w\201c B\201d PR\"\311 S T\311\201e \201f \217\203dSc\202v\201g T!\205v\201h T!\210db*.\207" [package package--builtins installable version reqs pkg-dir require lisp-mnt symbol-name nil prin1 princ " is " package-version-join 0 package--dir "an installed package.\n\n" "a deleted package.\n\n" t "a built-in package.\n\n" "an uninstalled package.\n\n" "an orphan package.\n\n" " " propertize "Status" font-lock-face bold ": " "Installed" font-lock-comment-face " in `" help-insert-xref-button file-name-as-directory help-package-def "',\n shadowing a " "built-in package" font-lock-builtin-face "." "'." "Built-in." " Alternate version available -- " "Available -- " display-graphic-p "Install" "[Install]" (:box (:line-width 2 :color "dark grey") :background "light grey" :foreground "black") link insert-text-button face follow-link package-symbol action package-install-button-action "Deleted." "\n" " " "Version" 1 " " "Requires" format "%s-%s" + 2 desc built-in package-name package-alist package-archive-contents button-face button-text text vers name first req --dolist-tail-- x load-path load-file-rep-suffixes opoint fn package-user-dir readme-string readme window-width ",\n " ", " help-package "Summary" "\n\n" locate-file ".el" lm-commentary "" re-search-forward "^;;; Commentary:\n" replace-match "^\\(;+ ?\\)" expand-file-name "-readme.txt" (byte-code "\306\307\310!\"\211\203 \311\310!\n\312PP!\202 \313\314!r q\210 \2036 \315 \210\316\317\320\321#\210\320u\210e`|\210\202P \322\310!!\204E \323\324\310!\"\210\325\326\n\312P\310!\"!\210\326\f \" \327 \330 \210)\331 )\332\333 !\210*\207" [package http package-name buffer readme package-user-dir string-match "\\`https?:" package-archive-base url-retrieve-synchronously "-readme.txt" generate-new-buffer "*package work buffer*" package-handle-response re-search-forward "^$" nil move file-name-absolute-p error "Archive location %s is not an absolute file name" insert-file-contents expand-file-name never save-buffer buffer-string t kill-buffer buffer-file-name version-control readme-string] 6) ((error)) file-readable-p insert-file-contents] 11]) (defalias 'package-install-button-action #[(button) "\302\303\"\304\305\306 \"!\205 \307 !\210\310\311\312\"\210eb)\207" [button package button-get package-symbol y-or-n-p format "Install package `%s'? " package-install revert-buffer nil t] 4]) #@47 Local keymap for `package-menu-mode' buffers. (defvar package-menu-mode-map (byte-code "\303 \303\304!\305 \n\"\210\306 \307\310#\210\306 \311\312#\210\306 \313\314#\210\306 \315\316#\210\306 \317\320#\210\306 \321\322#\210\306 \323\324#\210\306 \325\326#\210\306 \327\330#\210\306 \331\332#\210\306 \333\310#\210\306 \334\304B#\210\306\335\336#\210\306\337\340#\210\306\341\342#\210\306\343\344#\210\306\345\346#\210\306\347\350#\210\306\351\352#\210\306\353\354#\210\306\355\356#\210\306\357\360#\210\306\361\362#\210\306\363\364#\210\306\365\366#\210\306\367\370#\210\306\371\372#\210\306\373\374#\210\306\375\376#\210\306\377\201@ #\210\306\201A \201B #\210 *\207" [menu-map map tabulated-list-mode-map make-sparse-keymap "Package" set-keymap-parent define-key " " package-menu-describe-package "u" package-menu-mark-unmark "" package-menu-backup-unmark "d" package-menu-mark-delete "i" package-menu-mark-install "U" package-menu-mark-upgrades "r" package-menu-refresh "~" package-menu-mark-obsolete-for-deletion "x" package-menu-execute "h" package-menu-quick-help "?" [menu-bar package-menu] [mq] (menu-item "Quit" quit-window :help "Quit package selection") [s1] ("--") [mn] (menu-item "Next" next-line :help "Next Line") [mp] (menu-item "Previous" previous-line :help "Previous Line") [s2] ("--") [mu] (menu-item "Unmark" package-menu-mark-unmark :help "Clear any marks on a package and move to the next line") [munm] (menu-item "Unmark Backwards" package-menu-backup-unmark :help "Back up one line and clear any marks on that package") [md] (menu-item "Mark for Deletion" package-menu-mark-delete :help "Mark a package for deletion and move to the next line") [mi] (menu-item "Mark for Install" package-menu-mark-install :help "Mark a package for installation and move to the next line") [mupgrades] (menu-item "Mark Upgradable Packages" package-menu-mark-upgrades :help "Mark packages that have a newer version for upgrading") [s3] ("--") [mg] (menu-item "Update Package List" revert-buffer :help "Update the list of packages") [mr] (menu-item "Refresh Package List" package-menu-refresh :help "Download the ELPA archive") [s4] ("--") [mt] (menu-item "Mark Obsolete Packages" package-menu-mark-obsolete-for-deletion :help "Mark all obsolete packages for deletion") [mx] (menu-item "Execute Actions" package-menu-execute :help "Perform all the marked actions") [s5] ("--") [mh] (menu-item "Help" package-menu-quick-help :help "Show short key binding help for package-menu-mode") [mc] (menu-item "View Commentary" package-menu-view-commentary :help "Display information about this package")] 5) (#$ . 38920)) #@73 List of newly-available packages since `list-packages' was last called. (defvar package-menu--new-package-list nil (#$ . 41566)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [package-menu-mode-hook variable-documentation put purecopy "Hook run when entering Package Menu mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp package-menu-mode-map definition-name package-menu-mode] 5) (defvar package-menu-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [package-menu-mode-map variable-documentation put purecopy "Keymap for `package-menu-mode'." boundp package-menu-mode-syntax-table definition-name package-menu-mode] 5) (defvar package-menu-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [package-menu-mode-syntax-table variable-documentation put purecopy "Syntax table for `package-menu-mode'." package-menu-mode-abbrev-table definition-name package-menu-mode] 5) (defvar package-menu-mode-abbrev-table (progn (define-abbrev-table 'package-menu-mode-abbrev-table nil) package-menu-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [package-menu-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `package-menu-mode'." package-menu-mode derived-mode-parent tabulated-list-mode] 5) #@328 Major mode for browsing a list of packages. Letters do not insert themselves; instead, they are commands. \<package-menu-mode-map> \{package-menu-mode-map} In addition to any hooks its parent mode `tabulated-list-mode' might have run, this mode runs the hook `package-menu-mode-hook', as the final step during initialization. (defalias 'package-menu-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 \325\"\204V !=\204V \326 \325!C#\210\327 !\210\330\f!\210 !\331\"\332#\333\334B$\335 \210)\336\337!\207" [delay-mode-hooks major-mode mode-name package-menu-mode-map package-menu-mode-syntax-table parent make-local-variable t tabulated-list-mode package-menu-mode "Package Menu" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table [("Package" 18 package-menu--name-predicate) ("Version" 12 nil) ("Status" 10 package-menu--status-predicate) ("Description" 0 nil)] 2 "Status" nil tabulated-list-init-header run-mode-hooks package-menu-mode-hook package-menu-mode-abbrev-table local-abbrev-table tabulated-list-format tabulated-list-padding tabulated-list-sort-key] 6 (#$ . 43115) nil]) #@284 Convenience macro for `package-menu--generate'. If the alist stored in the symbol LISTNAME lacks an entry for a package PACKAGE with descriptor DESC, add one. The alist is keyed with cons cells (PACKAGE . VERSION-LIST), where PACKAGE is a symbol and VERSION-LIST is a version list. (defalias 'package--push '(macro . #[(package desc status listname) "\304\305\306DD\307\310 \311BBDD\312\313\307\nE\314\315\307 \316DF\nEEE\207" [desc package listname status let* version package-desc-vers key cons (version) unless assoc push list package-desc-doc] 10 (#$ . 44502)])) #@200 Populate the Package Menu. If REMEMBER-POS is non-nil, keep point on the same entry. PACKAGES should be t, which means to display all known packages, or a list of package names (symbols) to display. (defalias 'package-menu--generate #[(remember-pos packages) "\306\211\n\306\211 \203_ \f@\211@ \307=\204 >\203X A\211 \310H) B \311 \"\204W \236\211 A@);\203J \312\202K \313 A\211 \314H)E B*\fA\211\204\f *\306\211 \203\260 \f@\211@\211\315=\204\251 \307=\204\201 >\203\251 A\211 \310H) B \311 \"\204\250 \316 A\211 \314H)E B*\fA\211\204i * \306\211 \203 \f@\211@ \307=\204\314 >\203\236 A\211 \310H) B \311 \"\204 \203 \211 A@)\204 \317\202\f >\203 \320\202\f\321 A\211 \314H)E B+\fA\211\204\272 * \306\211 \203\202\f@\211A\306 \211 \203z\f@ \307=\204H @ >\203s A\211 \310H) @B \311 \"\204r\322 A\211 \314H)E B*\fA\211\2047*\fA\211\204**\323\324 \"!\325\"!*\207" [name info-list package-alist elt --dolist-tail-- packages nil t 0 assoc "held" "installed" 2 emacs "built-in" "disabled" "new" "available" "obsolete" mapcar package-menu--print-info tabulated-list-print desc version key package-load-list x package--builtins package-archive-contents hold package-menu--new-package-list package-obsolete-alist inner-elt tabulated-list-entries remember-pos] 5 (#$ . 45079)]) #@205 Return a package entry suitable for `tabulated-list-entries'. PKG has the form ((PACKAGE . VERSION) STATUS DOC). Return (KEY [NAME VERSION STATUS DOC]), where KEY is the identifier (NAME . VERSION-LIST). (defalias 'package-menu--print-info #[(pkg) "\211@@)@AA@ \3068\206 \307 \f\310\230\203! \311\202T \f\312\230\203+ \313\202T \f\314\230\2035 \315\202T \f\316\230\203? \317\202T \f\320\230\203I \321\202T \f\322\230\203S \323\202T \321 \n B\324\325\n!\326\327\330\331\332\n\333\334\257 \335\336 !\337#\335\f\337#\335 \337#$-D\207" [pkg x package version status doc 2 "" "built-in" font-lock-builtin-face "available" default "new" bold "held" font-lock-constant-face "disabled" font-lock-warning-face "installed" font-lock-comment-face vector symbol-name face link follow-link t package-symbol action package-menu-describe-package propertize package-version-join font-lock-face] 12 (#$ . 46474)]) #@154 Download the Emacs Lisp package archive. This fetches the contents of each archive specified in `package-archives', and then refreshes the package menu. (defalias 'package-menu-refresh #[nil "\300\301!\204\n \302\303!\210\304 \210\305\306\211\"\207" [derived-mode-p package-menu-mode error "The current buffer is not a Package Menu" package-refresh-contents package-menu--generate t] 3 (#$ . 47393) nil]) #@99 Describe the current package. If optional arg BUTTON is non-nil, describe its associated package. (defalias 'package-menu-describe-package #[(&optional button) "\203 \302\303\"\202 \304\305\206 `\306\"\262@\211\205 \307 !)\207" [button package button-get package-symbol nil get-text-property tabulated-list-id describe-package] 5 (#$ . 47804) nil]) #@56 Mark a package for deletion and move to the next line. (defalias 'package-menu-mark-delete #[(&optional _num) "\300 \301\235\203\f \302\303\304\"\207\305y\207" [package-menu-get-status ("installed" "obsolete") tabulated-list-put-tag "D" t nil] 3 (#$ . 48168) "p"]) #@60 Mark a package for installation and move to the next line. (defalias 'package-menu-mark-install #[(&optional _num) "\300 \301\235\203\f \302\303\304\"\207\305y\207" [package-menu-get-status ("available" "new") tabulated-list-put-tag "I" t nil] 3 (#$ . 48439) "p"]) #@57 Clear any marks on a package and move to the next line. (defalias 'package-menu-mark-unmark #[(&optional _num) "\300\301\302\"\207" [tabulated-list-put-tag " " t] 3 (#$ . 48710) "p"]) #@55 Back up one line and clear any marks on that package. (defalias 'package-menu-backup-unmark #[nil "\300y\210\301\302!\207" [-1 tabulated-list-put-tag " "] 2 (#$ . 48900) nil]) #@42 Mark all obsolete packages for deletion. (defalias 'package-menu-mark-obsolete-for-deletion #[nil "\212eb\210m?\205 \300 \301\232\203 \302\303\304\"\210\202 \305y\210\202 )\207" [package-menu-get-status "obsolete" tabulated-list-put-tag "D" t 1] 3 (#$ . 49082) nil]) #@52 Show short key binding help for package-menu-mode. (defalias 'package-menu-quick-help #[nil "\300\301!\207" [message "n-ext, i-nstall, d-elete, u-nmark, x-ecute, r-efresh, h-elp"] 2 (#$ . 49359) nil]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias package-menu-view-commentary package-menu-describe-package nil make-obsolete "24.1"] 4) (defalias 'package-menu-get-status #[nil "\304\305\206 `\306\"\262\211\205 \236\211\203# \n\211A@)\307H\202$ \310*\207" [pkg tabulated-list-entries entry x nil get-text-property tabulated-list-id 2 ""] 5]) (defalias 'package-menu--find-upgrades #[nil "\306\211\211 \306 \211 \203C @\211@\f\211 A@)\307H \f \f\310\232\203/ \nB\202; \f\311\235\203; B* A\211\204 *\n\306 \211 \203s @\211 @ \236\211 \203k \312 AA\"\203k B) A\211\204M *+\207" [upgrades available installed tabulated-list-entries entry --dolist-tail-- nil 2 "installed" ("available" "new") version-list-< x status pkg avail-pkg] 4]) #@274 Mark all upgradable packages in the Package Menu. For each installed package with a newer version available, place an (I)nstall flag on the available version and a (D)elete flag on the installed version. A subsequent \[package-menu-execute] call will upgrade the package. (defalias 'package-menu-mark-upgrades #[nil "\303\304!\204\n \305\306!\210\307 \211\204 \310\311!\202a ~\210\212eb\210m\204O \312\313\206( `\314\"\262\211@\236\211\204< \315y\210\202K \n\232\203H \316 \210\202K \317 \210*\202 )\310\320GG\315U\203_ \321\202` \322#)\207" [upgrades pkg upgrade derived-mode-p package-menu-mode error "The current buffer is not a Package Menu" package-menu--find-upgrades message "No packages to upgrade." nil get-text-property tabulated-list-id 1 package-menu-mark-install package-menu-mark-delete "%d package%s marked for upgrading." "" "s"] 6 (#$ . 50356) nil]) #@143 Perform marked Package Menu actions. Packages marked for installation are downloaded and installed; packages marked for deletion are removed. (defalias 'package-menu-execute #[nil "\306\307!\204\n \310\311!\210\312\211\211\211\212eb\210m\204U \312f\211\313=\204O \312\314\206* `\315\"\262 \316=\203D \317@!\320A!B\nB\202O \321=\203O @ B\312y\210\202 ) \203} \322 G\323U\203j \324\325 @\"\202t \324\326 G\327\317 \330##!\203} \331\332 \"\210\n\203\331 \322\nG\323U\203\230 \324\333\n\211 @@)\n@A#\202\242 \324\334\nG\327\335\n\330##!\203\325 \n\312 \211 (\203\321 (@\336 )*\203\302 ) \210\202\307 \337\340\341\217\210)(A\211(\204\257 *\202\331 \310\342!\210\n\203\344 \204\344 \343 \210\n\204\354 \203\363 \344\345\211\"\202\366 \346\347!,\207" [id cmd delete-list install-list x elt derived-mode-p package-menu-mode error "The current buffer is not in Package Menu mode" nil 32 get-text-property tabulated-list-id 68 symbol-name package-version-join 73 yes-or-no-p 1 format "Install package `%s'? " "Install these %d packages (%s)? " mapconcat ", " mapc package-install "Delete package `%s-%s'? " "Delete these %d packages (%s)? " #[(elt) "@\301AQ\207" [elt "-"] 3] #[nil "\301@A\"\207" [elt package-delete] 3] err (funcall #1=#:body) ((error (byte-code "\302\211A@)!\207" [err x message] 3))) "Aborted" package-initialize package-menu--generate t message "No operations specified." --dolist-tail-- #1# debug-on-error] 9 (#$ . 51242) nil]) (defalias 'package-menu--version-predicate #[(A B) "\211A@)\305H\206\f \306\n\211A@)\305H\206 \307 \310\f \"\203( \311\n\"\202, \312\f \"*\207" [A x B vB vA 1 (0) (0) version-list-= package-menu--name-predicate version-list-<] 4]) (defalias 'package-menu--status-predicate #[(A B) "\211A@)\305H\n\211A@)\305H\211 \230\203 \306\n\"\202\232 \f\307\230\203) \310\202\232 \307\230\2033 \311\202\232 \f\312\230\203= \310\202\232 \312\230\203G \311\202\232 \f\313\230\203Q \310\202\232 \313\230\203[ \311\202\232 \f\314\230\203e \310\202\232 \314\230\203o \311\202\232 \f\315\230\203y \310\202\232 \315\230\203\203 \311\202\232 \f\316\230\203\215 \310\202\232 \316\230\203\227 \311\202\232 \f \231*\207" [A x B sB sA 2 package-menu--name-predicate "new" t nil "available" "installed" "held" "built-in" "obsolete"] 4]) (defalias 'package-menu--description-predicate #[(A B) "\211A@)\305H\n\211A@)\305H\211 \230\203 \306\n\"\202\" \f \231*\207" [A x B dB dA 3 package-menu--name-predicate] 4]) (defalias 'package-menu--name-predicate #[(A B) "\303\211@@)!\303\n\211@@)!\231\207" [A x B symbol-name] 4]) #@198 Display a list of packages. This first fetches the updated list of packages before displaying, unless a prefix argument NO-FETCH is specified. The list is displayed in a buffer named `*Packages*'. (defalias 'list-packages #[(&optional no-fetch) "\306\307\310\311#\210\204 \312\311!\210\310\211 \204A \313 \210\f\314 \210\f\310 \211 \203@ @\211@\n\236\2047 @ B A\211 \204' *\315\316! r q\210\317 \210\320\321!\210 \322\310\311\"\210)\323 !\210)\324 \211 \205\214 \325\326 G G\327U\203z \330\202{ \331\332\333! G\327U\203\212 \334\202\213 \335%+\207" [package--initialized new-packages old-archives no-fetch package-archive-contents elt require finder-inf nil t package-initialize package-read-all-archive-contents package-refresh-contents get-buffer-create "*Packages*" package-menu-mode make-local-variable package-menu--new-package-list package-menu--generate switch-to-buffer package-menu--find-upgrades message "%d package%s can be upgraded; type `%s' to mark %s for upgrading." 1 "" "s" substitute-command-keys "\\[package-menu-mark-upgrades]" "it" "them" --dolist-tail-- buf upgrades] 8 (#$ . 53842) "P"]) (defalias 'package-list-packages 'list-packages) #@220 Display PACKAGES in a *Packages* buffer. This is similar to `list-packages', but it does not fetch the updated list of packages, and it only displays packages with names in PACKAGES (which should be a list of symbols). (defalias 'package-show-package-list #[(packages) "\302\303\304\305#\210\306\307!rq\210\310 \210\311\304 \"\210)\312!)\207" [buf packages require finder-inf nil t get-buffer-create "*Packages*" package-menu-mode package-menu--generate switch-to-buffer] 4 (#$ . 55031)]) #@146 Display a list of packages. Does not fetch the updated list of packages before displaying. The list is displayed in a buffer named `*Packages*'. (defalias 'package-list-packages-no-fetch #[nil "\300\301!\207" [list-packages t] 2 (#$ . 55530) nil]) (provide 'package)