Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
394 lines (374 sloc) 46.7 KB
;ELC
;;; Compiled by lucashungaro@IronMan on Fri Jan 7 02:38:19 2011
;;; from file /Users/lucashungaro/.emacs.d/package.el
;;; in Emacs version 23.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'package nil "Manager for Emacs Lisp packages." :group 'applications :version "24.1")
#@345 Whether to activate installed packages when Emacs starts.
If non-nil, packages are activated after reading the init file
and before `after-init-hook'. Activation is not done if
`user-init-file' is nil (e.g. Emacs was started with "-q").
Even if the value is nil, you can type \[package-initialize] to
activate the package system at any time.
(custom-declare-variable 'package-enable-at-startup 't '(#$ . 625) :type 'boolean :group 'package :version "24.1")
#@697 List of packages for `package-initialize' to load.
Each element in this list should be a list (NAME VERSION), or the
symbol `all'. The symbol `all' says to load the latest installed
versions of all packages not specified by other elements.
For an element (NAME VERSION), NAME is a package name (a symbol).
VERSION should be t, a string, or nil.
If VERSION is t, all versions are loaded, though obsolete ones
will be put in `package-obsolete-alist' and not activated.
If VERSION is a string, only that version is ever loaded.
Any other version, even if newer, is silently ignored.
Hence, the package is "held" at that version.
If VERSION is nil, the package is not loaded (it is "disabled").
(custom-declare-variable 'package-load-list ''(all) '(#$ . 1091) :type '(repeat symbol) :risky t :group 'package :version "24.1")
#@226 An alist of archives from which to fetch.
The default value points to the GNU Emacs package repository.
Each element has the form (ID . URL), where ID is an identifier
string for an archive and URL is a http: URL (a string).
(custom-declare-variable 'package-archives ''(("gnu" . "http://elpa.gnu.org/packages/")) '(#$ . 1924) :type '(alist :key-type (string :tag "Archive name") :value-type (string :tag "Archive URL")) :risky t :group 'package :version "24.1")
#@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 (#$ . 2394))
#@24 Version of package.el.
(defconst package-el-version "1.0" (#$ . 2581))
#@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 (#$ . 2659))
(put 'package-archive-contents 'risky-local-variable t)
#@191 Directory containing the user's Emacs Lisp packages.
The directory name should be absolute.
Apart from this directory, Emacs also looks for system-wide
packages in `package-directory-list'.
(custom-declare-variable 'package-user-dir '(locate-user-emacs-file "elpa") '(#$ . 3115) :type 'directory :risky t :group 'package :version "24.1")
#@234 List of additional directories containing Emacs Lisp packages.
Each directory name should be absolute.
These directories contain packages intended for system-wide; in
contrast, `package-user-dir' contains packages for personal use.
(custom-declare-variable '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)) '(#$ . 3460) :type '(repeat directory) :risky t :group 'package :version "24.1")
#@506 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 REQS DOCSTRING].
VERSION is a version list.
REQS is a list of packages (symbols) required by the package.
DOCSTRING is a brief description of the package.
(defvar package--builtins nil (#$ . 3994))
(put 'package--builtins 'risky-local-variable t)
#@562 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 REQS DOCSTRING].
VERSION is a version list.
REQS is a list of packages (symbols) required by the package.
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 (#$ . 4598))
(put 'package-archive-contents 'risky-local-variable t)
#@52 List of the names of currently activated packages.
(defvar package-activated-list nil (#$ . 5260))
(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 (#$ . 5420))
(put 'package-obsolete-alist 'risky-local-variable t)
#@158 Regular expression matching the name of a package subdirectory.
The first subexpression is the package name.
The second subexpression is the version string.
(defconst package-subdirectory-regexp "^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$" (#$ . 5666))
#@55 Turn a list of version numbers into a version string.
(defalias 'package-version-join #[(l) "\301\302\303#\207" [l mapconcat int-to-string "."] 4 (#$ . 5928)])
#@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 \"\205 \303\304 \"\207" [package-subdirectory-regexp dirname string-match match-string 1] 3 (#$ . 6096)])
#@168 Load the description file in directory DIR for package PACKAGE.
Here, PACKAGE is a string of the form NAME-VER, where NAME is the
package name and VER 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 (#$ . 6369)])
#@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 "\304>\306\211\211 B\306\211\203\245@\307!\203\234\310!\306\211\203\233@\307\311\"!\203\222\312\"\203\222\313\314\315\"!\314\316\" \236\211\204c\f\202\210 \211A@)\211\203\222 \317=\204\213 ;\203\205\320\321\n!\321 !\"\202\210\322\323!\203\222\324\"\210A\211\2040*A\211\204.\306\207" [package-load-list force version name all package-user-dir nil file-directory-p directory-files expand-file-name string-match intern match-string 1 2 t version-list-= version-to-list error "Invalid element in `package-load-list'" package-load-descriptor package-directory-list dir #1=#:--cl-dolist-temp-- subdir #2=#:--cl-dolist-temp-- package-subdirectory-regexp x] 6 (#$ . 6816)])
#@52 Extract version from a package description vector.
(defalias 'package-desc-vers #[(desc) "\301H\207" [desc 0] 2 (#$ . 8014)])
(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 (#$ . 8216)])
(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 (#$ . 8423)])
(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 (#$ . 8626)])
(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 (#$ . 8851)])
(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])
#@68 Return true if PACKAGE, of VERSION or newer, is built-in to Emacs.
(defalias 'package-built-in-p #[(package &optional version) "\305\306\307\310#\210 \236\211\205\311 \nA\211\312H)\")\207" [package package--builtins elt version desc require finder-inf nil t version-list-<= 0] 5 (#$ . 9759)])
#@166 Activate package PACKAGE, of version VERSION or newer.
If PACKAGE has any dependencies, recursively activate them.
Return nil if the package could not be activated.
(defalias 'package-activate #[(package 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\211A@)!$\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\203) @\307\n@\n\211A@)\"\204\"\310\311\n\"\210 A\211\204 *\306\207" [pkg-vec desc req #1=#:--cl-dolist-temp-- 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 version package-activated-list fail x] 7 (#$ . 10064)])
#@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 (#$ . 10945)])
#@402 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 list of
integers of the form produced by `version-to-list'.
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 "VERSION").
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 (#$ . 11243)])
#@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 (#$ . 12220)])
(defalias 'package-generate-autoloads #[(name pkg-dir) "\306P\307P\310 \"\311\312\313!\210\314\315!\204\316\f!\210\317 !,\207" [name auto-name ignore-name pkg-dir generated-autoload-file version-control "-autoloads.el" "-pkg.el" expand-file-name never require autoload fboundp autoload-ensure-default-file package-autoload-ensure-default-file update-directory-autoloads] 3])
#@170 Untar the current buffer.
This uses `tar-untar-buffer' if it is available.
Otherwise it uses an external `tar' program.
`default-directory' should be set by the caller.
(defalias 'package-untar-buffer #[nil "\300\301!\210\302\303!\203e`|\210\301 \210\303 \207\304`d\305\306\307\306\310\311&\207" [require tar-mode fboundp tar-untar-buffer call-process-region "tar" nil (nil nil) "xf" "-"] 9 (#$ . 13123)])
(defalias 'package-unpack #[(name version) "\306\307!\310 Q\n\"\311\n\312\"\210\313\n!\314 \210\315\307! \"\210 B\316 \317\312#+\207" [name version package-user-dir pkg-dir default-directory load-path expand-file-name symbol-name "-" make-directory t file-name-as-directory package-untar-buffer package-generate-autoloads byte-recompile-directory 0] 4])
(defalias 'package--write-file-no-coding #[(file-name excl) "\303\304ed \305\211\211\n&)\207" [buffer-file-coding-system file-name excl no-conversion write-region nil] 8])
#@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 \"\312\"\207\310\313\nQ \"\310\311P \"\310\314P \"\315 \316\"\210\307\f\317\"\210\312\211\320\321\322\n\323\324\325\"D\257!\326P\312 \312\211\211\317&\210*\327 \"\210 B\330 \331\316#,\207" [file-name package-user-dir version pkg-dir el-file pkg-file "package" package--write-file-no-coding expand-file-name ".el" nil "-" "-pkg.el" make-directory t excl write-region prin1-to-string define-package quote mapcar #[(elt) "@\302\211A@)!D\207" [elt x package-version-join] 4] "\n" package-generate-autoloads byte-recompile-directory 0 print-length print-level desc requires load-path] 10 (#$ . 14072)])
#@271 Handle the response from the server.
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!\306p!\210\307\310\311`\312\210`\"\")\207" [response require url-http url-http-parse-response 200 300 display-buffer error "Error during download request:%s" buffer-substring-no-properties nil] 6 (#$ . 14859)])
#@45 Download and install a single-file package.
(defalias 'package-download-single #[(name version desc requires) "\305\306!\307!\310 \311\260!r\nq\210\312 \210\313\314\315\316#\210\315u\210e`|\210\317\307! \f$\210\320\n!*\207" [name version buffer desc requires url-retrieve-synchronously package-archive-url symbol-name "-" ".el" package-handle-response re-search-forward "^$" nil move package-unpack-single kill-buffer] 6 (#$ . 15435)])
#@37 Download and install a tar package.
(defalias 'package-download-tar #[(name version) "\303\304!\305!\306 \307\260!r\nq\210\310 \210\311\312\313\314#\210\313u\210\315 \"\210\316\n!*\207" [name version tar-buffer url-retrieve-synchronously package-archive-url symbol-name "-" ".tar" package-handle-response re-search-forward "^$" nil move package-unpack kill-buffer] 6 (#$ . 15883)])
#@92 Return true if PACKAGE, of VERSION or newer, is installed.
Built-in packages also qualify.
(defalias 'package-installed-p #[(package &optional min-version) " \236\211\203\305 \nA\211\306H)\"\202\307 \")\207" [package package-alist pkg-desc min-version desc version-list-<= 0 package-built-in-p] 5 (#$ . 16276)])
#@566 Return a list of packages ton 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),
where PACKAGE is a package name and VERSION is the required
version of that package (as a list).
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\303\n@\211@ \211A@)\307 \"\204\273 \236\306 \236\211\203k\211A@)\211\306=\203H\310\311\312 !\"\210\202k;\204U\310\313!\210\202k\314\315! \"\203k\310\316\312 !\317 !$\210\204z\310\320\312 !\317 !#\210\321 A\211\322H)\"\204\236\310\323\312 !\317 !\317A\211\322H)!$\210 >\204\253 B\324A\211\325H)\"**\nA\211\204*\207" [requirements elt #1=#:--cl-dolist-temp-- next-pkg x next-version nil package-installed-p 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 (#$ . 16603)])
#@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 (#$ . 18160)])
#@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 (#$ . 18547)])
#@90 Re-read `archive-contents', if it exists.
If successful, set `package-archive-contents'.
(defalias 'package-read-all-archive-contents #[nil "\304 \304\211\203 @\305\n@!\210 A\211\204\n*\304\207" [package-archive-contents package-archives archive #1=#:--cl-dolist-temp-- nil package-read-archive-contents] 3 (#$ . 19204)])
#@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\203) @\312\f\"\210 A\211\204*\310+\207" [archive dir contents-file contents package #1=#:--cl-dolist-temp-- "archives/" "/archive-contents" nil package--read-archive-file package--add-to-archive-contents] 5 (#$ . 19541)])
#@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\306H@\307A\310 !\"B \236A\211 \203'\311 \306H\n\"\205+\312\305\f\",\207" [package name version archive entry package-archive-contents 0 vconcat vector version-list-< add-to-list existing-package] 6 (#$ . 20032)])
#@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\203r\n@\211 \236A \236\211A@)\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,\nA\211\204*\306\207" [package-list elt #1=#:--cl-dolist-temp-- 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 x hold v-string kind] 7 (#$ . 20453)])
#@144 Install the package named NAME.
Interactively, prompt for the package name.
The package is found on one of the archives in `package-archives'.
(defalias 'package-install #[(name) " \236\211\204\304\305\306!\"\210\307\310C\nA\211\311H)\"!\210)\312 \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 package-initialize] 6 (#$ . 21290) (list (intern (completing-read "Install package: " (mapcar (lambda (elt) (cons (symbol-name (car elt)) nil)) package-archive-contents) nil t)))])
#@131 Strip RCS version ID from the version string.
If the result looks like a dotted numeric version, return it.
Otherwise return nil.
(defalias 'package-strip-rcs-id #[(v-str) "\205\301\302\"\203\303\304\"\207\301\305\"\205\207" [v-str string-match "^[ ]*[$]Revision:[ ]([0-9.]+)[ ]*[$]$" match-string 1 "^[0-9.]*$"] 3 (#$ . 21909)])
#@530 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 requires list, or nil.
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 (#$ . 22260)])
#@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\"\204\f\310\311\"\210\312\313\314\"!\313\315\"\316\317\320 \321\n\322 \323\260 !\324 !\211@\325=\2046\310\326 \"\210\fA@\315\f8\327\f8\330\f8\316\317\320 \321\n\331\260!\"#$%\n$\232\204a\310\332!\210 %\232\204l\310\333!\210\306\334 \"\203u\335\"@\336=\203\203\"A@\"\337\340\"\"\"\341 \"#$ %. \207" [file pkg-name pkg-version pkg-def-contents pkg-def-parsed readme string-match "^\\(.+\\)-\\([0-9.]+\\)\\.tar$" error "Invalid package name `%s'" file-name-nondirectory 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 requires docstring version-string name-str] 13 (#$ . 23663)])
#@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 (#$ . 24801) (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 (#$ . 25763) "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-url #[(name) "\304! \236A\305\n\211GSH \"A)\207" [name package-archive-contents desc package-archives intern-soft assoc] 3 (#$ . 26768)])
#@67 Download an archive file FILE from ARCHIVE, and cache it locally.
(defalias 'package--download-one-archive #[(archive file) "@A\306\307 \"\306 \f\"\310\n P!rq\210\311 \210\312\313\314\315#\210\314u\210e`|\210\316!<\203F\317\f\320\"\210\306 \f\"\321\322 \210))\323!-\207" [archive archive-name archive-url package-user-dir dir file expand-file-name "archives" url-retrieve-synchronously package-handle-response re-search-forward "^$" nil move read make-directory t never save-buffer kill-buffer buffer buffer-file-name version-control] 4 (#$ . 26989)])
#@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 "\304!\204 \305\306\"\210 \307\211\203\" @\307\310\311\217\210 A\211\204*\312 \207" [package-user-dir package-archives archive #1=#:--cl-dolist-temp-- file-exists-p make-directory t nil (package--download-one-archive archive "archive-contents") ((error (byte-code "\301\302@\"\207" [archive message "Failed to download `%s' archive."] 3))) package-read-all-archive-contents] 4 (#$ . 27567) nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list package--initialized default-boundp set-default nil] 3)
#@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 #1=#:--cl-dolist-temp-- desc nil package-load-all-descriptors package-read-all-archive-contents package-activate 0 t package--initialized] 6 (#$ . 28310) 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 \315\316\317\320\321#\210 )\321 \315\211\223\210\322 \220rq\210\323!)\221\324\f!\203C\325 \n\"\210\315*\207" [package list list-of-window-tuples list-of-frames help-window help-window-point-marker message "No package specified" help-setup-xref describe-package called-interactively-p interactive frame-list nil walk-windows #[(window) "\302!\303!\304!F B\211\207" [window list window-buffer window-start window-point] 5] no-mini t help-buffer describe-package-1 windowp help-window-setup standard-output] 5 (#$ . 28877) (let* ((guess (function-called-at-point)) packages val) (require 'finder-inf nil t) (unless package--initialized (package-initialize t)) (setq packages (append (mapcar 'car package-alist) (mapcar 'car package-archive-contents) (mapcar 'car package--builtins))) (unless (memq guess packages) (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@AB\312!\210\313\314!\210C\236A\211@\203M\315@\211@\316H)!\317B \"\211\203G\320c\210\202\224\321c\210\202\224D\236A\211@\203v\315@\211@\316H)!\322A\203p\323c\210\202\224\324c\210\202\224A\203\221AA@\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\356EF\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\211GHIJ\f\311K\211L\203\307L@\211K@IK\211MA@)H\374\375\310I!\315H!#GJ\203\230\311J\202\264\376\377iGG#\201X Y\203\257\201Yc\210\202\264\201Zc\210\337G\201[I#\210LA\211L\204m*\366c\210,\367\327\201\\\331\332#\333@\205\342@\211@\377H)\201]\261\210A\203B\201^B\201_PNO#`PQ\201`Q!\206\f\201ac\210\212Pb\210\201b\201c\311\322#\203'\201d\201a!\210\201b\201e\311\322#\205>\201d\201a!\210\202'+\202\304\201fB\201gPR\"S\311\201h\201i\217\311T\211U\205\255rUq\210\201j \211T\201kW\204}T\201lY\203\203\311T\202\230\201fSR\"VeWT|\210\201m \210)T\205\255\201nU!\210\201oU!\210\322*\206\303\201pS!\205\303\201qS!\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 #1=#:--cl-dolist-temp-- x load-path load-file-rep-suffixes opoint fn package-user-dir readme response buffer buffer-file-name url-http-end-of-headers 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 "\302\303! \304Q!\207" [package package-name url-retrieve-synchronously package-archive-url "-readme.txt"] 4) ((error)) url-http-parse-response 200 300 save-buffer insert-buffer-substring kill-buffer 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 \304\305!\306 \n\"\210\307 \310\311#\210\307 \312\313#\210\307 \314\315#\210\307 \316\317#\210\307 \320\321#\210\307 \322\323#\210\307 \324\325#\210\307 \326\327#\210\307 \330\331#\210\307 \332\333#\210\307 \334\335#\210\307 \336\337#\210\307 \340\341#\210\307 \342\311#\210\307 \343\344#\210\307 \345\346#\210\307 \347\305B#\210\307\350\351#\210\307\352\353#\210\307\354\355#\210\307\356\357#\210\307\360\361#\210\307\362\363#\210\307\364\365#\210\307\366\367#\210\307\370\371#\210\307\372\373#\210\307\374\375#\210\307\376\377#\210\307\201@\201A#\210\307\201B\201C#\210\307\201D\201E#\210\307\201F\201G#\210\307\201H\201I#\210\307\201J\201K#\210 *\207" [menu-map map button-buffer-map make-keymap make-sparse-keymap "Package" set-keymap-parent define-key " " package-menu-describe-package "q" quit-window "n" next-line "p" previous-line "u" package-menu-mark-unmark "" package-menu-backup-unmark "d" package-menu-mark-delete "i" package-menu-mark-install "g" revert-buffer "r" package-menu-refresh "~" package-menu-mark-obsolete-for-deletion "x" package-menu-execute "h" package-menu-quick-help "?" [follow-link] mouse-face [mouse-2] mouse-select-window [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") [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) (#$ . 33587))
#@45 Local keymap for package menu sort buttons.
(defvar package-menu-sort-button-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210)\207" [map make-sparse-keymap define-key [header-line mouse-1] package-menu-sort-by-column [header-line mouse-2] [follow-link] mouse-face] 4) (#$ . 36279))
(put 'package-menu-mode 'mode-class 'special)
#@157 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}
(defalias 'package-menu-mode #[nil "\306 \210\307!\210\310\311\312\211\313\305!\210\314\315\316\317\320#\321\322!\207" [package-menu-mode-map major-mode mode-name truncate-lines buffer-read-only revert-buffer-function kill-all-local-variables use-local-map package-menu-mode "Package Menu" t make-local-variable package-menu-revert mapconcat #[(pair) "@A\304\305\306\307\310\nE\311\312%\304 \313 \314\315\316\317\320 & P*\207" [pair name column package-menu-sort-button-map propertize " " display space :align-to face fixed-pitch column-name help-echo "mouse-1: sort by column" mouse-face highlight keymap] 11] ((0 . #1="") (2 . "Package") (20 . "Version") (32 . "Status") (43 . "Description")) #1# run-mode-hooks package-menu-mode-hook header-line-format] 5 (#$ . 36643)])
#@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 "\301=\204\n\302\303!\210\304 \210\305 \207" [major-mode package-menu-mode error "The current buffer is not a Package Menu" package-refresh-contents package--generate-package-list] 2 (#$ . 37592) nil])
#@130 Update the list of packages.
This function is the `revert-buffer-function' for Package Menu
buffers. The arguments are ignored.
(defalias 'package-menu-revert #[(&optional arg noconfirm) "\301=\204\n\302\303!\210\304 \207" [major-mode package-menu-mode error "The current buffer is not a Package Menu" package--generate-package-list] 2 (#$ . 37994) nil])
#@43 Describe the package in the current line.
(defalias 'package-menu-describe-package #[nil "\301 \211\203\302\303!!\202\304\305!)\207" [name package-menu-get-package describe-package intern message "No package on this line"] 4 (#$ . 38358) nil])
(defalias 'package-menu-mark-internal #[(what) "m?\205\302\303 \210\304\305!\210 c\210\302y)\207" [buffer-read-only what nil beginning-of-line delete-char 1] 2])
#@56 Mark a package for deletion and move to the next line.
(defalias 'package-menu-mark-delete #[(num) "\300 \301\230\203 \302\303!\207\304y\207" [package-menu-get-status "installed" package-menu-mark-internal "D" nil] 2 (#$ . 38779) "p"])
#@60 Mark a package for installation and move to the next line.
(defalias 'package-menu-mark-install #[(num) "\300 \301\230\203 \302\303!\207\304y\207" [package-menu-get-status "available" package-menu-mark-internal "I" nil] 2 (#$ . 39022) "p"])
#@57 Clear any marks on a package and move to the next line.
(defalias 'package-menu-mark-unmark #[(num) "\300\301!\207" [package-menu-mark-internal " "] 2 (#$ . 39270) "p"])
#@55 Back up one line and clear any marks on that package.
(defalias 'package-menu-backup-unmark #[nil "\300y\210\301\302!\210\300y\207" [-1 package-menu-mark-internal " "] 2 (#$ . 39446) nil])
#@42 Mark all obsolete packages for deletion.
(defalias 'package-menu-mark-obsolete-for-deletion #[nil "\212eb\210\300y\210m?\205\301\302!\203\303\304!\210\202\305y\210\202)\207" [2 looking-at ".*\\s obsolete\\s " package-menu-mark-internal "D" 1] 2 (#$ . 39641) 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 (#$ . 39919) 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-package #[nil "\212\300 \210\301\302!\205 \303\304!)\207" [beginning-of-line looking-at ". \\([^ ]*\\)" match-string-no-properties 1] 2])
(defalias 'package-menu-get-version #[nil "\212\300 \210\301\302!\205 \303\304!)\207" [beginning-of-line looking-at ". [^ ]*[ ]*\\([0-9.]*\\)" match-string 1] 2])
(defalias 'package-menu-get-status #[nil "\212\300\301!\203 \302\303!\202\304)\207" [looking-at ". [^ ]*[ ]*[^ ]*[ ]*\\([^ ]*\\)" match-string 1 ""] 2])
#@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\211\211\212eb\210m\2049\306f\211\307=\2043\310=\203(\311 \312 B B\2023\313=\2033\311 \nB\306y\210\202\n) \203\202\314 G\315U\203U\316\317 \211@@) @A#\202_\316\320 G\321\322 \323##!\203~ \306\211\203z @\324\325\326\217\210 A\211\204k*\202\202\327\330!\210\n\203\301\314\nG\315U\203\226\316\331\n@\"\202\240\316\332\nG\321\333\n\323##!\203\301\n\306\211\"\203\300\"@\334\335\f!!\210\"A\211\"\204\255* \203\314\n\204\314\336 \210 \204\324\n\203\331\337 \202\334\340\341!+\207" [cmd delete-list install-list x elt #1=#:--cl-dolist-temp-- nil 32 68 package-menu-get-package package-menu-get-version 73 yes-or-no-p 1 format "Delete package `%s-%s'? " "Delete these %d packages (%s)? " mapconcat #[(elt) "@\301AQ\207" [elt "-"] 3] ", " err (byte-code "\301@A\"\207" [elt package-delete] 3) ((error (byte-code "\302\211A@)!\207" [err x message] 3))) error "Aborted" "Install package `%s'? " "Install these %d packages (%s)? " identity package-install intern package-initialize package-menu-revert message "No operations specified." #2=#:--cl-dolist-temp--] 9 (#$ . 40776) nil])
(defalias 'package-print-package #[(package version key desc) "\306\230\203\n\307\2023\310\230\203\311\2023\312\230\203\313\2023\314\230\203(\315\2023\316\230\2032\317\2023\315\320\321\322 #c\210\323\324\n!\301\325\326\327\330\n\331\332& \210\333\334\335\"\210\320\336 !\322 #c\210\333\337\335\"\210\320\322 #c\210\f\203\333\340\335\"\210`\320\f\322 #c\210\341 ` T^\"\210)\342c)\207" [key face package version desc opoint "built-in" font-lock-builtin-face "available" default "held" font-lock-constant-face "disabled" font-lock-warning-face "installed" font-lock-comment-face propertize " " font-lock-face insert-text-button symbol-name link follow-link t package-symbol action #[(button) "\301\302\303\"!\207" [button describe-package button-get package-symbol] 4] indent-to 20 1 package-version-join 32 43 upcase-region "\n"] 10])
(defalias 'package-list-maybe-add #[(package version status description result) "\305 B\n\"\204 B \fE\nB\n\207" [package version result status description assoc] 3])
#@103 List of packages to display in the Package Menu buffer.
A value of nil means to display all packages.
(defvar package-menu-package-list nil (#$ . 43116))
#@47 Sort key for the current Package Menu buffer.
(defvar package-menu-sort-key nil (#$ . 43276))
#@43 Populate the current Package Menu buffer.
(defalias 'package--generate-package-list #[nil "\306\307\211\211\211\211\310 \210\307\211 \203a @\211@!\203. !>\203XA \"\236\211#A@)\311 \n\211\312H) ;\203N\313\202O\314\n\211\315H)\f% A\211 \204*$\307\211%\203\246%@\211@\211\316=\204\235!\203\207 !>\203\235A\311 \n\211\312H)\317\n\211\315H)\f%%A\211%\204m*&\307\211'\203\376'@\211@A \"\236!\203\317 !>\203\365\311 \n\211\312H) \203\351 \211#A@)\204\351\320\202\352\321A\211\315H)\f%'A\211'\204\262*\322\323(\"\210\324\f)\325\230\203\326\202))\327\230\203\330\202))\331\230\203(\332\202)\333\"\211\307\211*\203W*@\334@@@AA@AA@$\210*A\211*\2045*eb\210\335\307!\210p.\207" [builtin hold desc name info-list inhibit-read-only t nil erase-buffer package-list-maybe-add 0 "held" "installed" 2 emacs "built-in" "disabled" "available" mapc #[(elt) "\301\302A\"\207" [elt mapc #[(inner-elt) "\304@ A\211\305H)\306 A\211\307H) %\211\207" [elt inner-elt desc info-list package-list-maybe-add 0 "obsolete" 2] 7]] 3] sort "Package" package-menu--name-predicate "Version" package-menu--version-predicate "Description" package-menu--description-predicate package-menu--status-predicate package-print-package set-buffer-modified-p package-alist elt #1=#:--cl-dolist-temp-- package-menu-package-list package-load-list x package--builtins #2=#:--cl-dolist-temp-- package-archive-contents #3=#:--cl-dolist-temp-- package-obsolete-alist package-menu-sort-key #4=#:--cl-dolist-temp--] 8 (#$ . 43376)])
(defalias 'package-menu--version-predicate #[(left right) "@A\206\304 @A\206\305\306 \n\"\203\307 \"\202\"\310 \n\"*\207" [left right vright vleft (0) (0) version-list-= package-menu--name-predicate version-list-<] 3])
(defalias 'package-menu--status-predicate #[(left right) "\211A@)\n\211A@)\211 \230\203\305\n\"\202\202\f\306\230\203%\307\202\202 \306\230\203/\310\202\202\f\311\230\2039\307\202\202 \311\230\203C\310\202\202\f\312\230\203M\307\202\202 \312\230\203W\310\202\202\f\313\230\203a\307\202\202 \313\230\203k\310\202\202\f\314\230\203u\307\202\202 \314\230\203\310\202\202\f \231*\207" [left x right sright sleft package-menu--name-predicate "available" t nil "installed" "held" "built-in" "obsolete"] 4])
(defalias 'package-menu--description-predicate #[(left right) "\211AA)@\n\211AA)@\211 \230\203\305\n\"\202 \f \231*\207" [left x right sright sleft package-menu--name-predicate] 4])
(defalias 'package-menu--name-predicate #[(left right) "\303\211@@)!\303\n\211@@)!\231\207" [left x right symbol-name] 4])
#@59 Sort the package menu by the column of the mouse click E.
(defalias 'package-menu-sort-by-column #[(&optional e) "\211:\203 A@\202\306 `\307\310F)\211\211\311 8)\206& \312 8))\211\2036\313\fA\314\f@#\202S\313\n\315 8\206P A@:\203M A@@\202P A@)\314\"\316\211:\203b A@\202h\306 `\307\310F)\211@)!rq\210\317=\205\201 \320 -\207" [e event pos position obj col selected-window (0 . 0) 0 7 4 get-text-property column-name 5 window-buffer package-menu-mode package--generate-package-list buf major-mode package-menu-sort-key] 6 (#$ . 46061) "e"])
#@169 Generate and pop to the *Packages* buffer.
Optional PACKAGES is a list of names of packages (symbols) to
list; the default is to display everything in `package-alist'.
(defalias 'package--list-packages #[(&optional packages) "\303\304\305\306#\210r\307\310!q\210\311 \210\312\301!\210\312\302!\210\305\313 \210\314p!)\207" [packages package-menu-package-list package-menu-sort-key require finder-inf nil t get-buffer-create "*Packages*" package-menu-mode make-local-variable package--generate-package-list pop-to-buffer] 4 (#$ . 46641)])
#@139 Display a list of packages.
Fetches the updated list of packages before displaying.
The list is displayed in a buffer named `*Packages*'.
(defalias 'list-packages #[nil "\204\301\302!\210\303 \210\304 \207" [package--initialized package-initialize t package-refresh-contents package--list-packages] 2 (#$ . 47189) nil])
(defalias 'package-list-packages 'list-packages)
#@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 \207" [package--list-packages] 1 (#$ . 47568) nil])
(provide 'package)