Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/package.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\310\311\312\313\314\315\316\317&\210\320\321\322\323\324DD\325\326\327\316\317&\210\320\330\322\323\331DD\332\326\333\334\335\316\317& \210\320\336\322\323\337DD\340\326\341\334\335\316\342& \210\320\343\322\323\344DD\345\326\346\316\347&\210\320\350\322\323\351DD\352\326\353\334\335\316\347& \210\320\354\322\323\355DD\356\326\357\334\335\316\360& \210\320\300\322\323\361DD\362\326\363\334\335\316\317& \210\320\364\322\323\365DD\366\326\367\334\335\316\317& \210\320\370\322\323\371DD\372\326\373\374\375\376\377\201@ \"F\201A BB\334\335\316\342& \210\320\201B \322\323\201C DD\201D \326\201E \334\335\316\201F & \207" [package-user-dir require cl-lib seq tabulated-list macroexp url-handlers browse-url custom-declare-group package nil "Manager for Emacs Lisp packages." :group applications :version "24.1" custom-declare-variable package-enable-at-startup funcall function #[0 "\300\207" [t] 1] "Whether to make installed packages available when Emacs starts.\nIf non-nil, packages are made available before reading the init\nfile (but after reading the early init file). This means that if\nyou wish to set this variable, you must do so in the early init\nfile. Regardless of the value of this variable, packages are not\nmade available if `user-init-file' is nil (e.g. Emacs was started\nwith \"-q\").\n\nEven if the value is nil, you can type \\[package-initialize] to\nmake installed packages available at any time, or you can\ncall (package-initialize) in your init-file." :type boolean package-load-list #[0 "\300\207" [(all)] 1] "List of packages for `package-initialize' to make available.\nEach element in this list should be a list (NAME VERSION), or the\nsymbol `all'. The symbol `all' says to make available the latest\ninstalled versions of all packages not specified by other\nelements.\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, the most recent version is made available.\nIf VERSION is a string, only that version is ever made available.\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 made available (it is \"disabled\")." (repeat (choice (const all) (list :tag "Specific package" (symbol :tag "Package name") (choice :tag "Version" (const :tag "disable" nil) (const :tag "most recent" t) (string :tag "specific version"))))) :risky t package-archives #[0 "\300\301\302\303 \203\f \304\202
\305\"BC\207" ["gnu" format "http%s://elpa.gnu.org/packages/" gnutls-available-p "s" ""] 4] "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(s):\", it is treated as an HTTP(S) 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.\n\nHTTPS URLs should be used where possible, as they offer superior\nsecurity." (alist :key-type (string :tag "Archive name") :value-type (string :tag "URL or directory name")) "26.1" package-menu-hide-low-priority #[0 "\300\207" [archive] 1] "If non-nil, hide low priority packages from the packages menu.\nA package is considered low priority if there's another version\nof it available such that:\n (a) the archive of the other package is higher priority than\n this one, as per `package-archive-priorities';\n or\n (b) they both have the same archive priority but the other\n package has a higher version number.\n\nThis variable has three possible values:\n nil: no packages are hidden;\n `archive': only criterion (a) is used;\n t: both criteria are used.\n\nThis variable has no effect if `package-menu--hide-packages' is\nnil, so it can be toggled with \\<package-menu-mode-map>\\[package-menu-toggle-hiding]." (choice (const :tag "Don't hide anything" nil) (const :tag "Hide per package-archive-priorities" archive) (const :tag "Hide per archive and version number" t)) "25.1" package-archive-priorities #[0 "\300\207" [nil] 1] "An alist of priorities for packages.\n\nEach element has the form (ARCHIVE-ID . PRIORITY).\n\nWhen installing packages, the package with the highest version\nnumber from the archive with the highest priority is\nselected. When higher versions are available from archives with\nlower priorities, the user has to select those manually.\n\nArchives not in this list have the priority 0, as have packages\nthat are already installed. If you use negative priorities for\nthe archives, they will not be upgraded automatically.\n\nSee also `package-menu-hide-low-priority'." (alist :key-type (string :tag "Archive name") :value-type (integer :tag "Priority (default is 0)")) package-pinned-packages #[0 "\300\207" [nil] 1] "An alist of packages that are pinned to specific archives.\nThis can be useful if you have multiple package archives enabled,\nand want to control which archive a given package gets installed from.\n\nEach element of the alist has the form (PACKAGE . ARCHIVE), where:\n PACKAGE is a symbol representing a package\n ARCHIVE is a string representing an archive (it should be the car of\nan element in `package-archives', e.g. \"gnu\").\n\nAdding an entry to this variable means that only ARCHIVE will be\nconsidered as a source for PACKAGE. If other archives provide PACKAGE,\nthey are ignored (for this package). If ARCHIVE does not contain PACKAGE,\nthe package will be unavailable." (alist :key-type (symbol :tag "Package") :value-type (string :tag "Archive name")) "24.4" #[0 "\300\301!\207" [locate-user-emacs-file "elpa"] 2] "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'." directory package-directory-list #[0 "\301\211\203$ \211@\211;\203 \302!\303\232\203 \304\305\"B\262A\266\202\202 \210\211\237\207" [load-path nil file-name-nondirectory "site-lisp" expand-file-name "elpa"] 6] "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) package-gnupghome-dir #[0 "\301\302\"\207" [package-user-dir expand-file-name "gnupg"] 3] "Directory containing GnuPG keyring or nil.\nThis variable specifies the GnuPG home directory used by package.\nThat directory is passed via the option \"--homedir\" to GnuPG.\nIf nil, do not use the option \"--homedir\", but stick with GnuPG's\ndefault directory." choice const :tag "Default Emacs package management GnuPG home directory" expand-file-name "gnupg" ((const :tag "Default GnuPG directory (GnuPG option --homedir not used)" nil) (directory :tag "A specific GnuPG --homedir")) package-check-signature #[0 "\300\207" [allow-unsigned] 1] "Non-nil means to check package signatures when installing.\nMore specifically the value can be:\n- nil: package signatures are ignored.\n- `allow-unsigned': install a package even if it is unsigned, but\n if it is signed, we have the key for it, and OpenGPG is\n installed, verify the signature.\n- t: accept a package only if it comes with at least one verified signature.\n- `all': same as t, except when the package has several signatures,\n in which case we verify all the signatures.\n\nThis also applies to the \"archive-contents\" file that lists the\ncontents of the archive." (choice (const nil :tag "Never") (const allow-unsigned :tag "Allow unsigned") (const t :tag "Check always") (const all :tag "Check all signatures")) "27.1"] 12)
#@213 Check whether we have a usable OpenPGP configuration.
If so, and variable `package-check-signature' is
`allow-unsigned', return `allow-unsigned', otherwise return the
value of variable `package-check-signature'.
(defalias 'package-check-signature #[0 "\301=\203 \302\303!\210\304\305!\205 \301\207\207" [package-check-signature allow-unsigned require epg-config epg-find-configuration OpenPGP] 2 (#$ . 8391)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\312\317\306\320&\210\300\321\302\303\322DD\323\306\324\312\317&\207" [custom-declare-variable package-unsigned-archives funcall function #[0 "\300\207" [nil] 1] "List of archives where we do not check for package signatures.\nThis should be a list of strings matching the names of package\narchives in the variable `package-archives'." :type (repeat (string :tag "Archive name")) :risky t :version "24.4" package-selected-packages #[0 "\300\207" [nil] 1] "Store here packages installed explicitly by user.\nThis variable is fed automatically by Emacs when installing a new package.\nThis variable is used by `package-autoremove' to decide\nwhich packages are no longer needed.\nYou can use it to (re)install packages on other machines\nby running `package-install-selected-packages'.\n\nTo check if a package is contained in this list here, use\n`package--user-selected-p', as it may populate the variable with\na sane initial value." "25.1" (repeat symbol) package-menu-async #[0 "\300\207" [t] 1] "If non-nil, package-menu will use async operations when possible.\nCurrently, only the refreshing of archive contents supports\nasynchronous operations. Package transactions are still done\nsynchronously." boolean] 10)
(defvar package--default-summary "No description available.")
#@71 compiler-macro for inlining `package-desc-p'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-p (and (memq (type-of cl-x) cl-struct-package-desc-tags) t)) nil] 9 (#$ . 10190)])
(put 'package-desc-p 'compiler-macro 'package-desc-p--cmacro)
#@13
(fn CL-X)
(defalias 'package-desc-p #[257 "\301!>\205 \302\207" [cl-struct-package-desc-tags type-of t] 3 (#$ . 10537)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put package-desc-p side-effect-free error-free put package-desc cl-deftype-satisfies] 5)
#@74 compiler-macro for inlining `package-desc-name'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-name (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 1))) nil] 9 (#$ . 10820)])
(put 'package-desc-name 'compiler-macro 'package-desc-name--cmacro)
#@62 Access slot "name" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 1] 5 (#$ . 11229)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-name side-effect-free t] 4)
#@77 compiler-macro for inlining `package-desc-version'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-version (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 2))) nil] 9 (#$ . 11572)])
(put 'package-desc-version 'compiler-macro 'package-desc-version--cmacro)
#@65 Access slot "version" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-version #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 2] 5 (#$ . 11996)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-version side-effect-free t] 4)
#@77 compiler-macro for inlining `package-desc-summary'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-summary--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-summary (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 3))) nil] 9 (#$ . 12348)])
(put 'package-desc-summary 'compiler-macro 'package-desc-summary--cmacro)
#@65 Access slot "summary" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-summary #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 3] 5 (#$ . 12772)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-summary side-effect-free t] 4)
#@74 compiler-macro for inlining `package-desc-reqs'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-reqs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-reqs (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 4))) nil] 9 (#$ . 13124)])
(put 'package-desc-reqs 'compiler-macro 'package-desc-reqs--cmacro)
#@62 Access slot "reqs" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-reqs #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 4] 5 (#$ . 13533)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-reqs side-effect-free t] 4)
#@74 compiler-macro for inlining `package-desc-kind'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-kind--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-kind (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 5))) nil] 9 (#$ . 13876)])
(put 'package-desc-kind 'compiler-macro 'package-desc-kind--cmacro)
#@62 Access slot "kind" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-kind #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 5] 5 (#$ . 14285)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-kind side-effect-free t] 4)
#@77 compiler-macro for inlining `package-desc-archive'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-archive--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-archive (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 6))) nil] 9 (#$ . 14628)])
(put 'package-desc-archive 'compiler-macro 'package-desc-archive--cmacro)
#@65 Access slot "archive" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-archive #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 6] 5 (#$ . 15052)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-archive side-effect-free t] 4)
#@73 compiler-macro for inlining `package-desc-dir'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-dir--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-dir (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 7))) nil] 9 (#$ . 15404)])
(put 'package-desc-dir 'compiler-macro 'package-desc-dir--cmacro)
#@61 Access slot "dir" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-dir #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 7] 5 (#$ . 15808)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-dir side-effect-free t] 4)
#@76 compiler-macro for inlining `package-desc-extras'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-extras--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-extras (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 8))) nil] 9 (#$ . 16148)])
(put 'package-desc-extras 'compiler-macro 'package-desc-extras--cmacro)
#@64 Access slot "extras" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-extras #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 8] 5 (#$ . 16567)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-extras side-effect-free t] 4)
#@76 compiler-macro for inlining `package-desc-signed'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package-desc-signed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package-desc-signed (progn (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 9))) nil] 9 (#$ . 16916)])
(put 'package-desc-signed 'compiler-macro 'package-desc-signed--cmacro)
#@64 Access slot "signed" of `package-desc' struct CL-X.
(fn CL-X)
(defalias 'package-desc-signed #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 9] 5 (#$ . 17335)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put package-desc-signed side-effect-free t defalias copy-package-desc copy-sequence] 4)
#@139 compiler-macro for inlining `package-desc-create'.
(fn CL-WHOLE &cl-quote &key NAME VERSION SUMMARY REQS KIND ARCHIVE DIR EXTRAS SIGNED)
(defalias 'package-desc-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"\206 \304A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300\311\"A@\300 \312\"A@ \211\203k \211@\313>\203S \211AA\262\202@ \314 >A@\203b \315\262\202@ \316\317@\"\210\202@ \210\320\321\322\315\315&\207" [plist-member :name :version :summary (nil package--default-summary) :reqs :kind :archive :dir :extras :signed (:name :version :summary :reqs :kind :archive :dir :extras :signed :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :version :summary :reqs :kind :archive :dir :extras :signed)" cl--defsubst-expand (name version summary reqs kind archive dir extras signed) (cl-block package-desc-create (record 'package-desc name version summary reqs kind archive dir extras signed))] 26 (#$ . 17736)])
(put 'package-desc-create 'compiler-macro 'package-desc-create--cmacro)
#@117 Constructor for objects of type `package-desc'.
(fn &key NAME VERSION SUMMARY REQS KIND ARCHIVE DIR EXTRAS SIGNED)
(defalias 'package-desc-create #[128 "\301\302\"A@\301\303\"A@\301\304\"\206 \305DA@\301\306\"A@\301\307\"A@\301\310\"A@\301\311\"A@\301\312\"A@\301 \313\"A@ \211\203m \211@\314>\203U \211AA\262\202B \315 >A@\203d \305\262\202B \316\317@\"\210\202B \210\320\321\n\n\n\n\n\n\n\n\n&\n\207" [package--default-summary plist-member :name :version :summary nil :reqs :kind :archive :dir :extras :signed (:name :version :summary :reqs :kind :archive :dir :extras :signed :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :version :summary :reqs :kind :archive :dir :extras :signed)" record package-desc] 21 (#$ . 18814)])
(byte-code "\300\301\302\303#\300\207" [function-put package-desc-create side-effect-free t] 4)
#@130 Constructor for objects of type `package-desc'.
(fn NAME-STRING VERSION-STRING &optional SUMMARY REQUIREMENTS &rest REST-PLIST)
(defalias 'package-desc-from-define #[642 "\211\203
\211A\262\242\202 \211A\262\242\301!\302!\303\304@\305=\203) A@\202* \"\306\307\"\306\310\"\311\203k @\312>\204b A@\211\203a @\242\305=\203[ A@\202\\ BB\262\210AA\262 \2026 \211\262\313\314 \311 \311&\n\207" [package--default-summary intern version-to-list mapcar #[257 "\211@\300A@!D\207" [version-to-list] 4 "\n\n(fn ELT)"] quote plist-get :kind :archive nil (:kind :archive) record package-desc] 22 (#$ . 19708)])
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put package-desc-from-define side-effect-free t cl-struct-define package-desc "Structure containing information about an individual package.\nSlots:\n\n`name' Name of the package, as a symbol.\n\n`version' Version of the package, as a version list.\n\n`summary' Short description of the package, typically taken from\n the first line of the file.\n\n`reqs' Requirements of the package. A list of (PACKAGE\n VERSION-LIST) naming the dependent package and the minimum\n required version.\n\n`kind' The distribution format of the package. Currently, it is\n either `single' or `tar'.\n\n`archive' The name of the archive (as a string) whence this\n package came.\n\n`dir' The directory where the package is installed (if installed),\n `builtin' if it is built-in, or nil otherwise.\n\n`extras' Optional alist of additional keyword-value pairs.\n\n`signed' Flag to indicate that the package is signed by provider." cl-structure-object record nil ((cl-tag-slot) (name) (version) (summary package--default-summary) (reqs) (kind) (archive) (dir) (extras) (signed)) cl-struct-package-desc-tags] 11)
#@107 Create a `package-desc' object from BI-DESC.
BI-DESC should be a `package--bi-desc' object.
(fn BI-DESC)
(defalias 'package--from-builtin #[257 "\300\301\211A\262\242\302\303!\304\305!\306\307&\207" [package-desc-create :name :version package--bi-desc-version :summary package--bi-desc-summary :dir builtin] 10 (#$ . 21580)])
#@240 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.)
(fn VLIST)
(defalias 'package-version-join #[257 "\211\204 \300\207\301\302@!DA\211\203\202 \211@\211\303Y\203) \302!B\262\301B\262\202{ \211\304W\2037 \305\306\"\210\202{ @\301\232\203E A\262\202R \307\310@\"\204R \305\306\"\210\211\311U\203\\ \312\202w \211\313U\203f \314\202w \211\315U\203p \316\202w \211\304U\205w \317B\262A\266\202\202 \210\211@\301\232\203\216 \211A\262\320\321\237\"\207" ["" "." int-to-string 0 -4 error "Invalid version list `%s'" string-match "[0-9]+" -1 "pre" -2 "beta" -3 "alpha" "snapshot" apply concat] 7 (#$ . 21920)])
#@125 Return full name of package-desc object PKG-DESC.
This is the name of the package with its version appended.
(fn PKG-DESC)
(defalias 'package-desc-full-name #[257 "\301\302\303!>\204 \304\305\306D\"\210\307H\310\303!>\204% \304\305\306D\"\210\311H!#\207" [cl-struct-package-desc-tags format "%s-%s" type-of signal wrong-type-argument package-desc 1 package-version-join 2] 9 (#$ . 22728)])
#@249 Return file-name extension of package-desc object PKG-DESC.
Depending on the `package-desc-kind' of PKG-DESC, this is one of:
'single - ".el"
'tar - ".tar"
'dir - ""
Signal an error if the kind is none of the above.
(fn PKG-DESC)
(defalias 'package-desc-suffix #[257 "\301!>\204 \302\303\304D\"\210\211\305H\211\306\267\202$ \307\202+ \310\202+ \311\202+ \211\312\313\"\262\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 5 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (single 24 tar 28 dir 32)) ".el" ".tar" "" error "Unknown package kind: %s"] 6 (#$ . 23136)])
#@195 Return keywords of package-desc object PKG-DESC.
These keywords come from the foo-pkg.el file, and in general
corresponds to the keywords in the "Keywords" header of the
package.
(fn PKG-DESC)
(defalias 'package-desc--keywords #[257 "\301\302\303!>\204 \304\305\306D\"\210\307H\"A\211\242\310=\203# \211A@\202$ \211\207" [cl-struct-package-desc-tags assoc :keywords type-of signal wrong-type-argument package-desc 8 quote] 7 (#$ . 23804)])
#@84 Return the priority of the archive of package-desc object PKG-DESC.
(fn PKG-DESC)
(defalias 'package-desc-priority #[257 "\301\302!>\204 \303\304\305D\"\210\306H!\207" [cl-struct-package-desc-tags package-archive-priority type-of signal wrong-type-argument package-desc 6] 6 (#$ . 24256)])
#@81 compiler-macro for inlining `package--bi-desc-version'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--bi-desc-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--bi-desc-version (progn (aref cl-x 0))) nil] 9 (#$ . 24558)])
(put 'package--bi-desc-version 'compiler-macro 'package--bi-desc-version--cmacro)
#@69 Access slot "version" of `package--bi-desc' struct CL-X.
(fn CL-X)
(defalias 'package--bi-desc-version #[257 "\211\300H\207" [0] 3 (#$ . 24919)])
(byte-code "\300\301\302\303#\300\207" [function-put package--bi-desc-version side-effect-free t] 4)
#@78 compiler-macro for inlining `package--bi-desc-reqs'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--bi-desc-reqs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--bi-desc-reqs (progn (aref cl-x 1))) nil] 9 (#$ . 25173)])
(put 'package--bi-desc-reqs 'compiler-macro 'package--bi-desc-reqs--cmacro)
#@66 Access slot "reqs" of `package--bi-desc' struct CL-X.
(fn CL-X)
(defalias 'package--bi-desc-reqs #[257 "\211\300H\207" [1] 3 (#$ . 25519)])
(byte-code "\300\301\302\303#\300\207" [function-put package--bi-desc-reqs side-effect-free t] 4)
#@81 compiler-macro for inlining `package--bi-desc-summary'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--bi-desc-summary--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--bi-desc-summary (progn (aref cl-x 2))) nil] 9 (#$ . 25764)])
(put 'package--bi-desc-summary 'compiler-macro 'package--bi-desc-summary--cmacro)
#@69 Access slot "summary" of `package--bi-desc' struct CL-X.
(fn CL-X)
(defalias 'package--bi-desc-summary #[257 "\211\300H\207" [2] 3 (#$ . 26125)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put package--bi-desc-summary side-effect-free t defalias copy-package--bi-desc copy-sequence] 4)
#@105 compiler-macro for inlining `make-package--bi-desc'.
(fn CL-WHOLE &cl-quote &key VERSION REQS SUMMARY)
(defalias 'make-package--bi-desc--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312\313\306\306&\207" [plist-member :version :reqs :summary (:version :reqs :summary :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:version :reqs :summary)" cl--defsubst-expand (version reqs summary) (cl-block make-package--bi-desc (vector version reqs summary))] 14 (#$ . 26435)])
(put 'make-package--bi-desc 'compiler-macro 'make-package--bi-desc--cmacro)
#@85 Constructor for objects of type `package--bi-desc'.
(fn &key VERSION REQS SUMMARY)
(defalias 'make-package--bi-desc #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311#\207" [plist-member :version :reqs :summary (:version :reqs :summary :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:version :reqs :summary)" vector] 8 (#$ . 27137)])
(byte-code "\300\301\302\303#\300\207" [function-put make-package--bi-desc side-effect-free t] 4)
#@88 compiler-macro for inlining `package-make-builtin'.
(fn CL-WHOLE-ARG VERSION SUMMARY)
(defalias 'package-make-builtin--cmacro #[771 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (version summary) (cl-block package-make-builtin (vector version nil summary)) nil] 11 (#$ . 27711)])
(put 'package-make-builtin 'compiler-macro 'package-make-builtin--cmacro)
#@75 Constructor for objects of type `package--bi-desc'.
(fn VERSION SUMMARY)
(defalias 'package-make-builtin #[514 "\300\301#\207" [vector nil] 6 (#$ . 28084)])
(byte-code "\300\301\302\303#\304\305\306\307\310\307\311\312\305\307& \207" [function-put package-make-builtin side-effect-free t cl-struct-define package--bi-desc "Package descriptor format used in finder-inf.el and package--builtins." nil vector ((version) (reqs) (summary)) cl-struct-package--bi-desc-tags] 11)
#@313 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 . PACKAGE-BI-DESC), where PKG is a package
name (a symbol) and DESC is a `package--bi-desc' structure.
(defvar package--builtins nil (#$ . 28566))
(put 'package--builtins 'risky-local-variable t)
#@405 Alist of all packages available for activation.
Each element has the form (PKG . DESCS), where PKG is a package
name (a symbol) and DESCS is a non-empty list of `package-desc'
structures, sorted by decreasing versions.
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 (#$ . 28978))
(put 'package-alist 'risky-local-variable t)
#@52 List of the names of currently activated packages.
(defvar package-activated-list nil (#$ . 29473))
(put 'package-activated-list 'risky-local-variable t)
#@422 Process define-package expression EXP and push it to `package-alist'.
EXP should be a form read from a foo-pkg.el file.
Convert EXP into a `package-desc' object using the
`package-desc-from-define' constructor before pushing it to
`package-alist'.
If there already exists a package by the same name in
`package-alist', insert this object there such that the packages
are sorted with the highest version first.
(fn EXP)
(defalias 'package-process-define-package #[257 "\211\242\302=\205z \303\304A\"\305!>\204 \306\307\310D\"\210\211\311H\305!>\204- \306\307\310D\"\210\312H \236\211\204@ D B\202w \211A\203j \313A@\305!>\204Y \306\307\310D\"\210\211\312H\262\"\203j \211A\211\262\202t \211\211AB\241\266\314\204@ \266\204\207" [cl-struct-package-desc-tags package-alist define-package apply package-desc-from-define type-of signal wrong-type-argument package-desc 1 2 version-list-< nil] 12 (#$ . 29634)])
#@148 Load the package description file in directory PKG-DIR.
Create a new `package-desc' object, add it to `package-alist' and
return it.
(fn PKG-DIR)
(defalias 'package-load-descriptor #[257 "\301\302!\"\303P\304!\205n \305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316!\210eb\210\317\320p!!\2065 \321\322\"\323!>\204D \324\325\326D\"\210\211\211\327I\266\304!\203h \323!>\204a \324\325\326D\"\210\211\211\330\331I\266\211\262*\262\207" [cl-struct-package-desc-tags expand-file-name package--description-file ".signed" file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents package-process-define-package read error "Can't find define-package in %s" type-of signal wrong-type-argument package-desc 7 9 t] 10 (#$ . 30573)])
#@378 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'.
(defalias 'package-load-all-descriptors #[0 " B\211\205< \211@\302!\2035 \303!\211\2034 \211@\211\304\232\204- \305\"\302!\203, \306!\210\210A\266\202\202 \210A\266\202\202 \207" [package-user-dir package-directory-list file-directory-p directory-files ".." expand-file-name package-load-descriptor] 7 (#$ . 31430)])
#@55 Return `package-alist', after computing it if needed.
(defalias 'package--alist #[0 "\206 \301 \210\207" [package-alist package-load-all-descriptors] 1 (#$ . 32141)])
#@478 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.
(fn NAME-STRING VERSION-STRING &optional DOCSTRING REQUIREMENTS &rest EXTRA-PROPERTIES)
(defalias 'define-package #[1154 "\300\301!\207" [error "Don't call me!"] 7 (#$ . 32318)])
#@304 Return whether PKG-NAME at VERSION can be activated.
The decision is made according to `package-load-list'.
Return nil if the package can be activated.
Return t if the package is completely disabled.
Return the max version (as a string) if the package is held at a lower version.
(fn PKG-NAME VERSION)
(defalias 'package-disabled-p #[514 "\236\211\204 \301>?\202; \211A@\211\262\204 \302\202; \211\302=\203% \303\202; \211;\2038 \304\305!\"?\205; \211\202; \306\307!\207" [package-load-list all t nil version-list-= version-to-list error "Invalid element in `package-load-list'"] 7 (#$ . 32893)])
#@191 Return non-nil if PACKAGE is built-in to Emacs.
Optional arg MIN-VERSION, if non-nil, should be a version list
specifying the minimum acceptable version.
(fn PACKAGE &optional MIN-VERSION)
(defalias 'package-built-in-p #[513 "\303!>\203 \303!>\204 \304\305\306D\"\210\307H\310=\207 \236\211\203, \311A\"\202@ \312\313\"\2037 \314\202@ \315\316\314\317#\210\n\236\207" [cl-struct-package-desc-tags package--builtin-versions package--builtins type-of signal wrong-type-argument package-desc 7 builtin version-list-<= remove 0 nil require finder-inf t] 7 (#$ . 33506)])
#@117 Return the absolute name of the autoloads file, sans extension.
PKG-DESC is a `package-desc' object.
(fn PKG-DESC)
(defalias 'package--autoloads-file-name #[257 "\301\302\303\304!>\204 \305\306\307D\"\210\310H\"\304!>\204& \305\306\307D\"\210\311H\"\207" [cl-struct-package-desc-tags expand-file-name format "%s-autoloads" type-of signal wrong-type-argument package-desc 1 7] 8 (#$ . 34094)])
#@113 Load the autoloads file and add package dir to `load-path'.
PKG-DESC is a `package-desc' object.
(fn PKG-DESC)
(defalias 'package--activate-autoloads-and-load-path #[257 "\302! >\204 \303\304\305D\"\210\306H\307!\3101% \311\312!\313\314#0\202+ \315\316\"\262\210=\205D \235\206; \211\235?\205D B\211\207" [load-path cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 7 file-name-as-directory (debug error) load package--autoloads-file-name nil t message "Error loading autoloads: %s"] 8 (#$ . 34505)])
#@64 If set to a list, we're computing the set of pkgs to activate.
(defvar package--quickstart-pkgs t (#$ . 35056))
#@238 Load files for activating a package given by PKG-DESC.
Load the autoloads file, and ensure `load-path' is setup. If
RELOAD is non-nil, also load all files in the package that
correspond to previously loaded files.
(fn PKG-DESC RELOAD)
(defalias 'package--load-files-for-activation #[514 "\211\205 \301\302!>\204 \303\304\305D\"\210\306H!\307!\210\31010 \311\312\313\314\315!!\"\"0\2028 \316\317\"\210\320\262\207" [cl-struct-package-desc-tags package--list-loaded-files type-of signal wrong-type-argument package-desc 7 package--activate-autoloads-and-load-path (debug error) mapc #[257 "\300\301\302#\207" [load nil t] 5 "\n\n(fn FEATURE)"] remove file-truename package--autoloads-file-name message "Error in package--load-files-for-activation: %s" nil] 9 (#$ . 35175)])
#@350 Activate package given by PKG-DESC, even if it was already active.
If DEPS is non-nil, also activate its dependencies (unless they
are already activated).
If RELOAD is non-nil, also `load' any files inside the package which
correspond to previously loaded files (those returned by
`package--list-loaded-files').
(fn PKG-DESC &optional RELOAD DEPS)
(defalias 'package-activate-1 #[769 "\304!>\204 \305\306\307D\"\210\310H\304!>\204\" \305\306\307D\"\210\311H\211\2041 \312\313\314!\"\210\3152\235 \203r \304!>\204I \305\306\307D\"\210\316H\211\203q \211@\317@!\204j \320\321@\322A@!$\210\323\315\324\"\210A\266\202\202L \210 <\203~ B\202\203 \325\"\210\326\327\330\"!\203\227 \331\332!\210\333 \210\211\nB B\3340\207" [cl-struct-package-desc-tags package--quickstart-pkgs Info-directory-list package-activated-list type-of signal wrong-type-argument package-desc 1 7 error "Internal error: unable to find directory for `%s'" package-desc-full-name exit 4 package-activate message "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package-version-join throw nil package--load-files-for-activation file-exists-p expand-file-name "dir" require info info-initialize t] 13 (#$ . 35969)])
#@189 Recursively list all files in DIR which correspond to loaded features.
Returns the `file-name-sans-extension' of each file, relative to
DIR, sorted by most recently loaded last.
(fn DIR)
(defalias 'package--list-loaded-files #[257 "\302\303\304\305\"\"\306!\302\303\304\307\310\311\312\313 \"\314\"\315\316%\317\320\"\"\"\321!\304\322\323\324\"\")\207" [load-history default-directory delq nil mapcar #[257 "\211@\211;\205\n \300!\207" [file-name-sans-extension] 4 "\n\n(fn X)"] file-truename make-byte-code 257 "\302\301\"\3031 \304\305\306!!!0\202 \210\307\211\205 \211\300\235\211\205& \304!GB\207" vconcat vector [file-relative-name (error) file-name-sans-extension file-truename find-library-name nil] 6 "\n\n(fn X)" directory-files-recursively "\\`[^\\.].*\\.el\\'" file-name-as-directory #[257 "\300@!\207" [file-truename] 3 "\n\n(fn X)"] sort #[514 "AAW\207" [] 4 "\n\n(fn X Y)"]] 13 (#$ . 37217)])
#@187 Activate the package named PACKAGE.
If FORCE is true, (re-)activate it if it's already activated.
Newer versions are always activated, regardless of FORCE.
(fn PACKAGE &optional FORCE)
(defalias 'package-activate #[513 "\236A\211\2034 \303@! >\204 \304\305\306@D\"\210\211@\307H\310\"\206( \311\"\262\2034 \211A\262\202 \211\204> \311!\202R \n>\203L \204L \312\202R \313@\314\315#\207" [package-alist cl-struct-package-desc-tags package-activated-list type-of signal wrong-type-argument package-desc 2 package-disabled-p package-built-in-p t package-activate-1 nil deps] 7 (#$ . 38152)])
#@161 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.
(fn DIR)
(defalias 'package-untar-buffer #[257 "\302\303!\210\303 \210\304\305\306!!\307Q\310! \211\203B \211@\306\311!!\312\"\204: \230\2034 \313!\314=\204: \315\316\"\210\210A\266\202\202 \210)\210\317 \207" [case-fold-search tar-parse-info require tar-mode "\\`" regexp-quote expand-file-name "/" file-name-case-insensitive-p tar-header-name string-match tar-header-link-type 5 error "Package does not untar cleanly into directory %s/" tar-untar-buffer] 8 (#$ . 38764)])
#@14
(fn ALIST)
(defalias 'package--alist-to-plist-args #[257 "\300\301\302\303\300\304\"\"\"\207" [mapcar macroexp-quote apply nconc #[257 "\211@AD\207" [] 3 "\n\n(fn PAIR)"]] 8 (#$ . 39408)])
#@73 Install the contents of the current buffer as a package.
(fn PKG-DESC)
(defalias 'package-unpack #[257 "\303!>\204 \304\305\306D\"\210\211\307H\310!\311 \"\303!>\204) \304\305\306D\"\210\312H\211\313\267\202\246 \314\315\"\210\316\n\317\320\321$\211\211\203Y \211@\311\322!\"\323\315#\266A\266\202\202> \210\303!>\204k \304\305\306D\"\210\211\312G\307V\203y \324\202z \325I\266\202\255 \314 \315\"\210\326 !\327!\210)\202\255 \311\330\331\"\"\314\315\"\210\332!\266\202\255 \211\333\334\"\266\210\335\"\210\336!\310!\310!\232\204\314 \333\337\310!\310!#\210\340\341\342#\203\335 \343!\210\344\341\"\210\210\207" [cl-struct-package-desc-tags package-user-dir default-directory type-of signal wrong-type-argument package-desc 1 package-desc-full-name expand-file-name 5 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dir 50 tar 128 single 145)) make-directory t directory-files full "\\`[^.].*\\.el\\'" nosort file-name-nondirectory copy-file tar single file-name-as-directory package-untar-buffer format "%s.el" package--write-file-no-coding error "Unknown package kind: %S" package--make-autoloads-and-stuff package-load-descriptor "The retrieved package (`%s') doesn't match what the archive offered (`%s')" package-activate-1 :reload :deps package--compile package--load-files-for-activation] 13 (#$ . 39608)])
#@95 Create the foo-pkg.el file PKG-FILE for single-file package PKG-DESC.
(fn PKG-DESC PKG-FILE)
(defalias 'package-generate-description-file #[514 "\304!>\204 \305\306\307D\"\210\310H\311\312\311\313\314\315\316\317\320!#\321\322\323\324!\325\304 !>\204; \305\306\307
D\"\210\n\326H!\304 !>\204Q \305\306\307
D\"\210\n\327H\304\f!>\204f \305\306\307D\"\210 \330H\331\332\333\"D\262\257\334\304\n!>\204\206 \305\306\307\fD\"\210 \335H!\244!\336\260\311\311\337%+\207" [cl-struct-package-desc-tags print-length print-quoted print-level type-of signal wrong-type-argument package-desc 1 nil t write-region ";;; Generated package description from " replace-regexp-in-string "-pkg\\.el\\'" ".el" file-name-nondirectory " -*- no-byte-compile: t -*-\n" prin1-to-string define-package symbol-name package-version-join 2 3 4 quote mapcar #[257 "\211@\300A@!D\207" [package-version-join] 4 "\n\n(fn ELT)"] package--alist-to-plist-args 8 "\n" silent] 17 (#$ . 41016)])
#@79 Make sure that the autoload file FILE exists and if not create it.
(fn FILE)
(defalias 'package-autoload-ensure-default-file #[257 "\300!\204 \301\302!\210\303\304\305\306#\306\306\307%\210\207" [file-exists-p require autoload write-region autoload-rubric "package" nil silent] 7 (#$ . 42014)])
#@74 Generate autoloads in PKG-DIR for package named NAME.
(fn NAME PKG-DIR)
(defalias 'package-generate-autoloads #[514 "\304\305\"\306\"\307\310\311\312!\210\313!\210\314!\211\203\" \315!\210\210,\211\207" [generated-autoload-file autoload-timestamps backup-inhibited version-control format "%s-autoloads.el" expand-file-name nil t never package-autoload-ensure-default-file update-directory-autoloads find-buffer-visiting kill-buffer] 6 (#$ . 42320)])
#@103 Generate autoloads, description file, etc., for PKG-DESC installed at PKG-DIR.
(fn PKG-DESC PKG-DIR)
(defalias 'package--make-autoloads-and-stuff #[514 "\301\302!>\204 \303\304\305D\"\210\306H\"\210\307\310!\"\311!?\205' \312\"\207" [cl-struct-package-desc-tags package-generate-autoloads type-of signal wrong-type-argument package-desc 1 expand-file-name package--description-file file-exists-p package-generate-description-file] 7 (#$ . 42789)])
#@140 Byte-compile installed package PKG-DESC.
This assumes that `pkg-desc' has already been activated with
`package-activate-1'.
(fn PKG-DESC)
(defalias 'package--compile #[257 "\303\304\305!\n>\204 \306\307\310D\"\210\311H\312\313#*\207" [load-path warning-minimum-level cl-struct-package-desc-tags :error byte-recompile-directory type-of signal wrong-type-argument package-desc 7 0 t] 6 (#$ . 43256)])
#@95 Read a Lisp expression from STR.
Signal an error if the entire string was not used.
(fn STR)
(defalias 'package-read-from-string #[257 "\300!\211@A\211\3011 \300\"\210\302\303!0\202 \210\211\266\202\207" [read-from-string (end-of-file) error "Can't read whole string"] 9 (#$ . 43669)])
#@233 Turn DEPS into an acceptable list of dependencies.
Any parts missing a version string get a default version string
of "0" (meaning any version) and an appropriate level of lists
is wrapped around any parts requiring it.
(fn DEPS)
(defalias 'package--prepare-dependencies #[257 "\211<\204\n \300\301\"\207\302\303\"\207" [error "Invalid requirement specifier: %S" mapcar #[257 "\2119\203 \211\300B\207\211;\203 \301\302\"\207\211<\203\" \211A\204\" \211@\303D\207\207" [("0") error "Invalid requirement specifier: %S" "0"] 4 "\n\n(fn DEP)"]] 4 (#$ . 43971)])
#@210 Return a `package-desc' describing the package in the current buffer.
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 #[0 "eb\210\300\301\302\303#\204 \304\305!\210\306\307!\306\310!\311 \312\313\314Q!\204& \315\316\317\320#\210\302y\210\211`}\210\321\322!\210\323\324\325!!\206> \323\324\326!!\327 \330 \204J \304\331!\210\332\333\334!\211\205` \335\336\337\340\341#!!\262\342\343\344\345 \346\347 \350\351 &\266\203\207" [re-search-forward "^;;; \\([^ ]*\\)\\.el ---[ ]*\\(.*?\\)[ ]*\\(-\\*-.*-\\*-[ ]*\\)?$" nil t error "Package lacks a file header" match-string-no-properties 1 2 line-beginning-position search-forward ";;; " ".el ends here" lwarn (package package-format) :warning "Package lacks a terminating comment" require lisp-mnt package-strip-rcs-id lm-header "package-version" "version" lm-keywords-list lm-homepage "Package lacks a \"Version\" or \"Package-Version\" header" package-desc-from-define lm-header-multiline "package-requires" package--prepare-dependencies package-read-from-string mapconcat identity " " :kind single :url :keywords :maintainer lm-maintainer :authors lm-authors] 21 (#$ . 44543)])
#@109 Read a `define-package' form in current buffer.
Return the pkg-desc, with desc-kind set to KIND.
(fn KIND)
(defalias 'package--read-pkg-desc #[257 "eb\210\301\216\302p!\211@\303=\205 \304\305\306A!\"\211\2051 \307!>\204) \310\311\312D\"\210\211\211\313I\266\211\266\202)\207" [cl-struct-package-desc-tags #[0 "\300\207" [nil] 1] read define-package apply package-desc-from-define append type-of signal wrong-type-argument package-desc 5] 7 (#$ . 45813)])
#@81 Find package information for a tar file.
The return result is a `package-desc'.
(defalias 'package-tar-file-info #[0 "\301\302!\204\n \303\304!\210\305\306@!!\307!\310P!\211\204 \311\312!\210r\313!q\210\314\216\315\316!\2064 \311\317\306!\"*\207" [tar-parse-info derived-mode-p tar-mode cl--assertion-failed (derived-mode-p 'tar-mode) file-name-directory tar-header-name package--description-file tar-get-file-descriptor error "No package descriptor file found" tar--extract #[0 "\300p!\207" [kill-buffer] 2] package--read-pkg-desc tar "Can't find define-package in %s"] 7 (#$ . 46282)])
#@82 Find package information for a directory.
The return result is a `package-desc'.
(defalias 'package-dir-info #[0 "\302\303!\204\n \304\305!\210\306!\307!\2033 \310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321!\210\322\323!*\262\202\225 \324\325\326\325$\327\203\212 \310\311!r\211q\210\312\313\314\315\316!\330\"\320$\216\321\211A\262\242!\210\3311d \332 0\202f \210\327\211\262\203\205 \327\262\333! >\204~ \334\335\336D\"\210\211\337\323I\266*\210\202: \211\204\223 \340\341\"\210\262\207" [default-directory cl-struct-package-desc-tags derived-mode-p dired-mode cl--assertion-failed (derived-mode-p 'dired-mode) package--description-file file-readable-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents package--read-pkg-desc dir directory-files t "\\.el\\'" nil [buffer-name kill-buffer] (error) package-buffer-info type-of signal wrong-type-argument package-desc 5 error "No .el files with package headers in `%s'"] 10 (#$ . 46883)])
#@76 Write file FILE-NAME without encoding using coding system.
(fn FILE-NAME)
(defalias 'package--write-file-no-coding #[257 "\301\302ed\303\304%)\207" [buffer-file-coding-system no-conversion write-region nil silent] 7 (#$ . 47949)])
#@65 Return t if FILE exists in remote LOCATION.
(fn LOCATION FILE)
(defalias 'package--archive-file-exists-p #[514 "\300\301\"\211\203 \302\303!\210\304P!\202 \305\306\"!\207" [string-match "\\`https?:" require url-http url-http-file-exists-p file-exists-p expand-file-name] 7 (#$ . 48189)])
#@148 Show error details with CONTEXT for failed verification of SIG-FILE.
The details are shown in a new buffer called "*Error".
(fn CONTEXT SIG-FILE)
(defalias 'package--display-verify-error #[514 "\306!>\204 \307\310\311D\"\210\312H\313\232?\205~ r\314\315!q\210p\316 \210\317\211\320\211\320 \321 \210\322\323!\210+\211 r q\210\324\325\"\203Z \326\327\"\330\331\324\325\"\332#\261\210\202` \326\333\"c\210\334\306!>\204q \307\310\311D\"\210\312H\261)\335!\210)\266\202\207" [cl-struct-epg-context-tags default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks type-of signal wrong-type-argument epg-context 21 "" get-buffer-create "*Error*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook epg-context-result-for verify format "Failed to verify signature %s:\n" mapconcat epg-signature-to-string "\n" "Error while verifying signature %s:\n" "\nCommand output:\n" internal-temp-output-buffer-show inhibit-read-only standard-output] 11 (#$ . 48492)])
#@475 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.
(fn LOCATION FILE &rest BODY)
(defalias 'package--with-work-buffer '(macro . #[642 "\300\301\302\303E\304\305ED\306\307D\310\311\nEE\312\313\nED\257BB\207" [with-temp-buffer if string-match-p "\\`https?:" url-insert-file-contents concat unless file-name-absolute-p error "Archive location %s is not an absolute file name" insert-file-contents expand-file-name] 12 (#$ . 49541)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\301\310\311#\207" [function-put package--with-work-buffer lisp-indent-function 2 put edebug-form-spec t make-obsolete package--with-response-buffer "25.1"] 5)
#@476 Access URL and run BODY in a buffer containing the response.
Point is after the headers when BODY runs.
FILE, if provided, is added to URL.
URL can be a local file name, which must be absolute.
ASYNC, if non-nil, runs the request asynchronously.
ERROR-FORM is run only if a connection error occurs. If NOERROR
is non-nil, don't propagate connection errors (does not apply to
errors signaled by ERROR-FORM or by BODY).
(fn URL &key ASYNC FILE ERROR-FORM NOERROR &rest BODY)
(defalias 'package--with-response-buffer '(macro . #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305@!\203' AA\262\202 \306\307\310BB\302\301 \311\307\310 E\304\n\257 \207" [plist-member :async :file :error-form :noerror keywordp package--with-response-buffer-1 lambda nil :error-function] 17 (#$ . 50600)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put package--with-response-buffer lisp-indent-function defun put edebug-form-spec t] 5)
#@31
(fn BODY &rest BEFORE-BODY)
(defalias 'package--unless-error '(macro . #[385 "\300\301!\302\303\304\305\306\307\310\"B\311\312\313\314\315\316\fD\317
DEEEF\320DEE\207" [make-symbol "err" with-temp-buffer (set-buffer-multibyte nil) when condition-case progn append (t) error (funcall error-function) unless noerror signal car cdr funcall] 17 (#$ . 51567)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put package--unless-error edebug-form-spec t function-put lisp-indent-function 1] 4)
#@74
(fn URL BODY &key ASYNC FILE ERROR-FUNCTION NOERROR &allow-other-keys)
(defalias 'package--with-response-buffer-1 #[642 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\306\307\310\311#)\266\203\203\347 P\203\204 \312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\323\307!\210\3241j \325\314\326\327\317\320 $\330\"\331\332%\307\333$\210\3100\202z \210?\205x \334@A\"\262\205~ \307*\262\202\342 \312\313!r\211q\210\314\315\316\317\320!\335\"\322$\216\323\307!\210\3361\311 \337!\211\204\255 \334\340\341D\"\210\342\343!\203\270 \343\"\210\344!\210\345!\210eb\266\3100\202\331 \210?\205\327 \334@A\"\262\205\337 *\262\262\2025\312\313!r\211q\210\314\315\316\317\320!\346\"\322$\216\323\307!\210\3471 \350 \"\351!\204\352\353\"\210\354!\266\3100\202, \210?\205*\334@A\"\262\2052 *\262\207" [inhibit-changing-match-data plist-member :async :file :error-function :noerror "\\`https?:" nil t string-match generate-new-buffer #1=" *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte (error) url-retrieve 257 "p\304\305!\210\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320!\210\3211U \322\323\"\211\203. \324\325\303#\210\210rq\210eb\210\326\327\320\330#\204D \324\325\303\331#\210)\332!\210\333!\210eb\210\3300\202e \301 \210\302?\205c \334@A\"\262\205j \300 *\262\207" [require url-handlers generate-new-buffer #1# make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil (error) plist-get :error error "Error retrieving: %s %S" search-forward-regexp "^
?\n
?" t "incomprehensible buffer" url-insert kill-buffer signal] 9 "\n\n(fn STATUS)" silent signal [buffer-name kill-buffer] (error) url-retrieve-synchronously file-error "No Data" fboundp url-http--insert-file-helper url-insert kill-buffer [buffer-name kill-buffer] (error) expand-file-name file-name-absolute-p error "Location %s is not a url nor an absolute file name" insert-file-contents-literally] 20 (#$ . 52085)])
(define-error 'bad-signature "Failed to verify signature")
#@153 Check signature CONTENT against STRING.
SIG-FILE is the name of the signature file, used when signaling
errors.
(fn CONTENT STRING &optional SIG-FILE)
(defalias 'package--check-signature-content #[770 "\303\304!\203 \305! >\204 \306\307\310D\"\210\211\211\311I\266\3121* \313#0\2025 \314\"\210\306\315\"\262\210\316\211\317\320\"\211\203\211 \211@\305!\n>\204Q \306\307\321D\"\210\211\322H\323=\203a \211B\262\202\202 \324 \325=\203 \305!\n>\204w \306\307\321D\"\210\211\322H\326=\204\202 \327\262A\266\202\202< \210\203\231 \324 \330=\203\244 \211\203\244 \314\"\210\306\315C\"\210\266\202\207" [package-gnupghome-dir cl-struct-epg-context-tags cl-struct-epg-signature-tags epg-make-context OpenPGP type-of signal wrong-type-argument epg-context 3 (error) epg-verify-string package--display-verify-error bad-signature nil epg-context-result-for verify epg-signature 1 good package-check-signature allow-unsigned no-pubkey t all] 12 (#$ . 54254)])
#@823 Check signature of the current buffer.
Download the signature file from LOCATION by appending ".sig"
to FILE.
GnuPG keyring location depends on `package-gnupghome-dir'.
STRING is the string to verify, it defaults to `buffer-string'.
If ASYNC is non-nil, the download of the signature file is
done asynchronously.
If the signature does not verify, signal an error.
If the signature is verified and CALLBACK was provided, `funcall'
CALLBACK with the list of good signatures as argument (the list
can be empty).
If no signatures file is found, and `package-check-signature' is
`allow-unsigned', call CALLBACK with a nil argument.
Otherwise, an error is signaled.
UNWIND, if provided, is a function to be called after everything
else, even if an error is signaled.
(fn LOCATION FILE &optional STRING ASYNC CALLBACK UNWIND)
(defalias 'package--check-signature #[1538 "\300P\206 \301 \302\303\304\305\306\307\n\n\n\n$\310\"\311$\312\313\n\314\303\304\315\306\307$\316\"\317$\320\321&\n\207" [".sig" buffer-string package--with-response-buffer-1 make-byte-code 0 "\304\305\306\307\310\301!\311\"\312$\216\313`d{\303\302#\300\203 \300!\210\211\262)\207" vconcat vector [make-byte-code 0 "\300\205 \300 \207" vconcat vector [] 1 package--check-signature-content] 6 :file :async :error-function "\304 \305=\302\203 \211\203 \302\306!\210\303\203 \303 \210\211?\205! \307\310\301\300#\207" [package-check-signature allow-unsigned nil error "Unsigned file `%s' at %s"] 5 :noerror t] 25 (#$ . 55239)])
#@134 Version number of the package archive understood by package.el.
Lower version numbers than this will probably be understood as well.
(defconst package-archive-version 1 (#$ . 56764))
#@160 Cache of the contents of all archives in `package-archives'.
This is an alist mapping package names (symbols) to
non-empty lists of `package-desc' structures.
(defvar package-archive-contents nil (#$ . 56954))
(put 'package-archive-contents 'risky-local-variable t)
#@506 Hash table connecting package names to their compatibility.
Each key is a symbol, the name of a package.
The value is either nil, representing an incompatible package, or
a version list, representing the highest compatible version of
that package which is available.
A package is considered incompatible if it requires an Emacs
version higher than the one being used. To check for package
(in)compatibility, don't read this table directly, use
`package--incompatible-p' which also checks dependencies.
(defvar package--compatibility-table nil (#$ . 57227))
#@60 Build `package--compatibility-table' with `package--mapc'.
(defalias 'package--build-compatibility-table #[0 "\301\302\303\304#\210\305\306\307\"\310\311!\207" [package--compatibility-table require finder-inf nil t make-hash-table :test eq package--mapc package--add-to-compatibility-table] 4 (#$ . 57793)])
#@194 If PKG is compatible (without dependencies), add to the compatibility table.
PKG is a package-desc object.
Only adds if its version is higher than what's already stored in
the table.
(fn PKG)
(defalias 'package--add-to-compatibility-table #[257 "\302\303\"?\205F \304!>\204 \305\306\307D\"\210\211\310H\304!>\204) \305\306\307D\"\210\311H\2060 \312\313 \"\211\203? \314\"\205D \315 #\266\203\207" [cl-struct-package-desc-tags package--compatibility-table package--incompatible-p shallow type-of signal wrong-type-argument package-desc 1 2 (0) gethash version-list-< puthash] 8 (#$ . 58109)])
#@81 compiler-macro for inlining `package--ac-desc-version'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--ac-desc-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--ac-desc-version (progn (aref cl-x 0))) nil] 9 (#$ . 58722)])
(put 'package--ac-desc-version 'compiler-macro 'package--ac-desc-version--cmacro)
#@69 Access slot "version" of `package--ac-desc' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-version #[257 "\211\300H\207" [0] 3 (#$ . 59083)])
(byte-code "\300\301\302\303#\300\207" [function-put package--ac-desc-version side-effect-free t] 4)
#@78 compiler-macro for inlining `package--ac-desc-reqs'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--ac-desc-reqs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--ac-desc-reqs (progn (aref cl-x 1))) nil] 9 (#$ . 59337)])
(put 'package--ac-desc-reqs 'compiler-macro 'package--ac-desc-reqs--cmacro)
#@66 Access slot "reqs" of `package--ac-desc' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-reqs #[257 "\211\300H\207" [1] 3 (#$ . 59683)])
(byte-code "\300\301\302\303#\300\207" [function-put package--ac-desc-reqs side-effect-free t] 4)
#@81 compiler-macro for inlining `package--ac-desc-summary'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--ac-desc-summary--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--ac-desc-summary (progn (aref cl-x 2))) nil] 9 (#$ . 59928)])
(put 'package--ac-desc-summary 'compiler-macro 'package--ac-desc-summary--cmacro)
#@69 Access slot "summary" of `package--ac-desc' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-summary #[257 "\211\300H\207" [2] 3 (#$ . 60289)])
(byte-code "\300\301\302\303#\300\207" [function-put package--ac-desc-summary side-effect-free t] 4)
#@78 compiler-macro for inlining `package--ac-desc-kind'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--ac-desc-kind--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--ac-desc-kind (progn (aref cl-x 3))) nil] 9 (#$ . 60543)])
(put 'package--ac-desc-kind 'compiler-macro 'package--ac-desc-kind--cmacro)
#@66 Access slot "kind" of `package--ac-desc' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-kind #[257 "\211\300H\207" [3] 3 (#$ . 60889)])
(byte-code "\300\301\302\303#\300\207" [function-put package--ac-desc-kind side-effect-free t] 4)
#@80 compiler-macro for inlining `package--ac-desc-extras'.
(fn CL-WHOLE-ARG CL-X)
(defalias 'package--ac-desc-extras--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block package--ac-desc-extras (progn (aref cl-x 4))) nil] 9 (#$ . 61134)])
(put 'package--ac-desc-extras 'compiler-macro 'package--ac-desc-extras--cmacro)
#@68 Access slot "extras" of `package--ac-desc' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-extras #[257 "\211\300H\207" [4] 3 (#$ . 61490)])
(byte-code "\300\301\302\303#\300\207" [function-put package--ac-desc-extras side-effect-free t] 4)
#@117 compiler-macro for inlining `make-package--ac-desc'.
(fn CL-WHOLE &cl-quote &key VERSION REQS SUMMARY KIND EXTRAS)
(defalias 'make-package--ac-desc--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314\315\310\n\310\n\n\n\n\n&\n\207" [plist-member :version :reqs :summary :kind :extras (:version :reqs :summary :kind :extras :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:version :reqs :summary :kind :extras)" cl--defsubst-expand (version reqs summary kind extras) (cl-block make-package--ac-desc (vector version reqs summary kind extras))] 18 (#$ . 61742)])
(put 'make-package--ac-desc 'compiler-macro 'make-package--ac-desc--cmacro)
#@97 Constructor for objects of type `package--ac-desc'.
(fn &key VERSION REQS SUMMARY KIND EXTRAS)
(defalias 'make-package--ac-desc #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313%\207" [plist-member :version :reqs :summary :kind :extras (:version :reqs :summary :kind :extras :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:version :reqs :summary :kind :extras)" vector] 12 (#$ . 62560)])
(byte-code "\300\301\302\303#\300\207" [function-put make-package--ac-desc side-effect-free t] 4)
#@105 compiler-macro for inlining `package-make-ac-desc'.
(fn CL-WHOLE-ARG VERSION REQS SUMMARY KIND EXTRAS)
(defalias 'package-make-ac-desc--cmacro #[1542 "\300\301\302\303\211\211\n\n\n\n\n&\n\207" [cl--defsubst-expand (version reqs summary kind extras) (cl-block package-make-ac-desc (vector version reqs summary kind extras)) nil] 17 (#$ . 63219)])
(put 'package-make-ac-desc 'compiler-macro 'package-make-ac-desc--cmacro)
#@92 Constructor for objects of type `package--ac-desc'.
(fn VERSION REQS SUMMARY KIND EXTRAS)
(defalias 'package-make-ac-desc #[1285 "\300%\207" [vector] 11 (#$ . 63652)])
(byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306& \207" [function-put package-make-ac-desc side-effect-free t cl-struct-define package--ac-desc nil vector ((version) (reqs) (summary) (kind) (extras)) cl-struct-package--ac-desc-tags] 11)
#@280 Append an entry for PKG-DESC to the start of ALIST and return it.
This entry takes the form (`package-desc-name' PKG-DESC).
If ALIST already has an entry with this name, destructively add
PKG-DESC to the cdr of this entry instead, sorted by version
number.
(fn PKG-DESC ALIST)
(defalias 'package--append-to-alist #[514 "\301!>\204 \302\303\304D\"\210\305H\306!\236\211\204$ DB\202K \211A\203< \307\306A@!\"\203< \211A\211\262\202G \211\211AB\241\266\310\204$ \207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 1 package-desc-priority-version version-list-< nil] 9 (#$ . 64091)])
#@199 Add the PACKAGE from the given ARCHIVE if necessary.
PACKAGE should have the form (NAME . PACKAGE--AC-DESC).
Also, add the originating archive to the `package-desc' structure.
(fn PACKAGE ARCHIVE)
(defalias 'package--add-to-archive-contents #[514 "@A\302H\303\304A\305HA\306H A\307H \310\fAG\311V\205* \fA\311H\310&\n\312\"\211\205: \211A\232??\205D \313 \"\211\207" [package-pinned-packages package-archive-contents 0 record package-desc 2 1 3 nil 4 assoc package--append-to-alist] 15 (#$ . 64730)])
#@175 Read cached archive FILE data, if it exists.
Return the data from the file, or nil if the file does not exist.
If the archive version is too new, signal an error.
(fn FILE)
(defalias 'package--read-archive-file #[257 "\303\"\304!\205< \305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316\317!\210)\320p!\211@\nV\2035 \321\322@\n#\210\211A\262*\262\207" [package-user-dir coding-system-for-read package-archive-version expand-file-name file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 utf-8 insert-file-contents read error "Package archive version %d is higher than %d"] 9 (#$ . 65256)])
#@277 Read cached archive file for ARCHIVE.
If successful, set or update the variable `package-archive-contents'.
ARCHIVE should be a string matching the name of a package archive
in the variable `package-archives'.
If the archive version is too new, signal an error.
(fn ARCHIVE)
(defalias 'package-read-archive-contents #[257 "\300\301\"\302!\211\2050 \211\211\205. \211@\211\203 \303\"\210\202' \304\305\306\307$\210A\266\202\202\f \262\207" [format "archives/%s/archive-contents" package--read-archive-file package--add-to-archive-contents lwarn (package refresh) :warning "Ignoring `nil' package on `%s' package archive"] 10 (#$ . 65953)])
#@251 Store currently used `package-archive-priorities'.
This is the value of `package-archive-priorities' last time
`package-read-all-archive-contents' was called. It can be used
by arbitrary functions to decide whether it is necessary to call
it again.
(defvar package--old-archive-priorities nil (#$ . 66610))
#@123 Read cached archive file for all archives in `package-archives'.
If successful, set or update `package-archive-contents'.
(defalias 'package-read-all-archive-contents #[0 "\304 \211\205 \211@\305@!\210A\266\202\202 \207" [package-archive-contents package-archive-priorities package--old-archive-priorities package-archives nil package-read-archive-contents] 4 (#$ . 66925)])
#@47 Non-nil if `package-initialize' has been run.
(defvar package--initialized nil (#$ . 67313))
#@49 Non-nil if `package-activate-all' has been run.
(defvar package--activated nil (#$ . 67412))
#@712 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.
It is not necessary to adjust `load-path' or `require' the
individual packages after calling `package-initialize' -- this is
taken care of by `package-initialize'.
If `package-initialize' is called twice during Emacs startup,
signal a warning, since this is a bad idea except in highly
advanced use cases. To suppress the warning, remove the
superfluous call to `package-initialize' from your init-file. If
you have code which must run before `package-initialize', put
that code in the early init-file.
(fn &optional NO-ACTIVATE)
(defalias 'package-initialize #[256 "\203 \204 \303\304\305\306#\210\307\310 \210\311 \210\312\211\204 \313 \210\314 \207" [package--initialized after-init-time package-alist lwarn (package reinitialization) :warning "Unnecessary call to `package-initialize' in init file" nil package-load-all-descriptors package-read-all-archive-contents t package-activate-all package--build-compatibility-table] 5 (#$ . 67512) nil])
#@100 Activate all installed packages.
The variable `package-load-list' controls which packages to load.
(defalias 'package-activate-all #[0 "\303\304 !\203 \305\306 \305\307#)\207\310 \211\2055 \211@\3111% \312@!0\202- \313\314\315!\"\262\210A\266\202\202 \207" [package--activated package-quickstart-file load-source-file-function t file-readable-p nil load nomessage package--alist (error) package-activate message "%s" error-message-string] 7 (#$ . 68657)])
#@45 List of in-progress asynchronous downloads.
(defvar package--downloads-in-progress nil (#$ . 69127))
#@45 Import keys from FILE.
(fn &optional FILE)
(defalias 'package-import-keyring #[256 "\302!\262\303\304!\203; \305 \306\307\310\311\312!\313\"\314$\216\315\316!\210\317\320\"\210)\210\321! >\2044 \322\323\324D\"\210\211\211\325I\266\326\327\330!\"\210\331\"\210\326\332\330!\"\207" [package-gnupghome-dir cl-struct-epg-context-tags expand-file-name epg-make-context OpenPGP default-file-modes make-byte-code 0 "\301\300!\207" vconcat vector [set-default-file-modes] 2 set-default-file-modes 448 make-directory t type-of signal wrong-type-argument epg-context 3 message "Importing %s..." file-name-nondirectory epg-import-keys-from-file "Importing %s...done"] 9 (#$ . 69234) "fFile: "])
#@158 Hook run after the archive contents are downloaded.
Don't run this hook directly. It is meant to be run as part of
`package--update-downloads-in-progress'.
(defvar package--post-download-archives-hook nil (#$ . 69939))
(put 'package--post-download-archives-hook 'risky-local-variable t)
#@126 Remove ENTRY from `package--downloads-in-progress'.
Once it's empty, run `package--post-download-archives-hook'.
(fn ENTRY)
(defalias 'package--update-downloads-in-progress #[257 "\301\"\211?\205 \302 \210\303 \210\304\305!\210\306\307!\207" [package--downloads-in-progress remove package-read-all-archive-contents package--build-compatibility-table message "Package refresh done" run-hooks package--post-download-archives-hook] 5 (#$ . 70234)])
#@264 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/FILE" in `package-user-dir'.
(fn ARCHIVE FILE &optional ASYNC)
(defalias 'package--download-one-archive #[770 "\300A\301\302\303\304\305 #\306\"\307$\310\311\312\301\302\313\304\305!\314\"\315$\316\317&\n\207" [package--with-response-buffer-1 make-byte-code 0 "\300A\300@\306 \307\310P \"\307\301\"\311!<\205b \312\313\"\210\314 \203' \f\235\203A
\203/ \315\316!\210\317 !\320\321\321\322%\210)\323\300!\202b \324\301\302\325\326\327\330\331\f \"\332\"\333\334%\325\335\336\330\331\300!\337\"\340$&\207" vconcat vector [package-user-dir package-unsigned-archives enable-multibyte-characters buffer-string expand-file-name "archives/" read make-directory t package-check-signature cl--assertion-failed (not enable-multibyte-characters) binary write-region nil silent package--update-downloads-in-progress package--check-signature make-byte-code 256 "\n\203 \304\305!\210\306\307\300\310\301\310\311%\210)\211\205$ \307\312\313\314#\310\301\315P\310\311%\207" vconcat vector [enable-multibyte-characters coding-system-for-write cl--assertion-failed (not enable-multibyte-characters) binary write-region nil silent mapconcat epg-signature-to-string "\n" ".signed"] 7 "\n\n(fn &optional GOOD-SIGS)" 0 "\301\300!\207" [package--update-downloads-in-progress] 2 coding-system-for-write] 17 :file :async :error-function "\301\300!\207" [package--update-downloads-in-progress] 2 :noerror nil] 17 (#$ . 70692)])
#@217 Download descriptions of all `package-archives' and read them.
Populate `package-archive-contents' with the result.
If optional argument ASYNC is non-nil, perform the downloads
asynchronously.
(fn &optional ASYNC)
(defalias 'package--download-and-read-archives #[256 "\211\203 \211@\211 \235\203 \202 \211 BA\266\202\202 \210\211\205? \211@\30211 \303\304#0\2027 \210\305\306@\"\210A\266\202\202 \207" [package-archives package--downloads-in-progress (debug error) package--download-one-archive "archive-contents" message "Failed to download `%s' archive."] 7 (#$ . 72328)])
#@332 Download descriptions of all configured ELPA packages.
For each archive configured in the variable `package-archives',
inform Emacs about the latest versions of all packages it offers,
and make them available for download.
Optional argument ASYNC specifies whether to perform the
downloads in the background.
(fn &optional ASYNC)
(defalias 'package-refresh-contents #[256 "\303!\204 \304\305\"\210\306\307 \"\n\206 \310 \2033 \303!\2033 \3111+ \312!0\2022 \313\314A\"\262\210)\210\315!\207" [package-user-dir data-directory inhibit-message file-exists-p make-directory t expand-file-name "package-keyring.gpg" package-check-signature (debug error) package-import-keyring message "Cannot import default keyring: %S" package--download-and-read-archives] 6 (#$ . 72926) nil])
#@644 Return a list of packages to be installed, including PACKAGES.
PACKAGES should be a list of `package-desc'.
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.
SEEN is used internally to detect infinite recursion.
(fn PACKAGES REQUIREMENTS &optional SEEN)
(defalias 'package-compute-transaction #[770 "\211\203\\\211@\211@A@\302\211\2036 \211@\303!>\204% \304\305\306D\"\210\307H=\203/ \211\262A\266\202\202 \210\211\203\217 \310\303!>\204L \304\305\306D\"\210\311H\"\203q \211>\203d \312\313\314!\"\210\202\217 \315 \"\262\302\262\202\217 \316\317\320!\320\303!>\204\211 \304\305\306D\"\210\311H!$\210\211\204S\321\"\204S \236A\302\211\211\203\204\211A\262\242\303!>\204\276 \304\305\306D\"\210\211\311H\322 \"\323\n\"\203\332 \204\320!\262\202\211\203\376 \204\211;\203\364 \324\325 \320
!$\202\371 \324\326 \"\262\202\262\266\202\241 \2042\211\203\316\327\"\210\2022\203(\316\330\320 !$\210\2022\316\331\320 !#\210\332
B\303!>\204G\304\305\306D\"\210\333H
B#\262\f\266\266A\266\202\202 \210\207" [cl-struct-package-desc-tags package-archive-contents nil type-of signal wrong-type-argument package-desc 1 version-list-<= 2 message "Dependency cycle going through %S" package-desc-full-name delq error "Need package `%s-%s', but only %s is being installed" package-version-join package-installed-p package-disabled-p version-list-< format-message "Package `%s' held at version %s, but version %s required" "Required package `%s' is disabled" "%s" "Need package `%s-%s', but only %s is available" "Package `%s-%s' is unavailable" package-compute-transaction 4] 21 (#$ . 73718)])
#@199 Return a list of installed packages which are not dependencies.
Finds all packages in `package-alist' which are not dependencies
of any other packages.
Used to populate `package-selected-packages'.
(defalias 'package--find-non-dependencies #[0 "\301\302\303\304\305\"\"!\306\211\211:\203, @\262@\262>\204% B\262A\262\202
\211\237\266\204\207" [package-alist delete-dups apply append mapcar #[257 "\301\302A@\303!>\204 \304\305\306D\"\210\211\307H\262\"\207" [cl-struct-package-desc-tags mapcar car type-of signal wrong-type-argument package-desc 4] 8 "\n\n(fn P)"] nil] 7 (#$ . 75795)])
#@74 Set and save `package-selected-packages' to VALUE.
(fn &optional VALUE)
(defalias 'package--save-selected-packages #[256 "\211\203 \211 \203 \302\300\"\207\303\304\305\"\207" [package-selected-packages after-init-time customize-save-variable add-hook after-init-hook package--save-selected-packages] 4 (#$ . 76409)])
#@183 Return non-nil if PKG is a package was installed by the user.
PKG is a package name.
This looks into `package-selected-packages', populating it first
if it is still empty.
(fn PKG)
(defalias 'package--user-selected-p #[257 ":\204\n \301\302 !\210\211>\207" [package-selected-packages package--save-selected-packages package--find-non-dependencies] 3 (#$ . 76738)])
#@13
(fn PKGS)
(defalias 'package--get-deps #[257 "\302\203? \211A\262\242\211>\204; \211\236A@\211\203: B\262\303\304\305\306! >\2042 \307\310\311D\"\210\312H\"\"\262\210\210\202 \211\207" [package-alist cl-struct-package-desc-tags nil append mapcar car type-of signal wrong-type-argument package-desc 4] 11 (#$ . 77112)])
#@212 Return non-nil if PACKAGE is a user-installed package.
PACKAGE is the package name, a symbol. Check whether the package
was installed into `package-user-dir' where we assume to have
control over.
(fn PACKAGE)
(defalias 'package--user-installed-p #[257 "\211\236A@\303! >\204 \304\305\306D\"\210\211\307H\310\n\"\207" [package-alist cl-struct-package-desc-tags package-user-dir type-of signal wrong-type-argument package-desc 7 file-in-directory-p] 6 (#$ . 77455)])
#@165 Return a list of names of packages no longer needed.
These are packages which are neither contained in
`package-selected-packages' nor a dependency of one that is.
(defalias 'package--removable-packages #[0 "\302!\303\304 \"\305\211:\203* @\262>\204# \306!\203# B\262A\262\202 \211\237\266\203\207" [package-selected-packages package-alist package--get-deps mapcar car nil package--user-installed-p] 6 (#$ . 77934)])
#@315 Non-nil if PKG-DESC is a dependency of a package in PKG-LIST.
Return the first package found in PKG-LIST of which PKG is a
dependency. If ALL is non-nil, return all such packages instead.
When not specified, PKG-LIST defaults to `package-alist'
with PKG-DESC entry removed.
(fn PKG-DESC &optional PKG-LIST ALL)
(defalias 'package--used-elsewhere-p #[769 "\302!\303\230?\205\247 \304!>\204 \305\306\307D\"\210\310H\206% \311 \236 \"\203f \211\312\211:\203_ @\262A@\304!>\204H \305\306\307D\"\210\211\313H\262\236\203X A@B\262A\262\202, \211\237\266\203\202\245 \211\312\314\312:\203\243 @\262A@\304!>\204\206 \305\306\307D\"\210\211\313H\262\236\205\222 A@\211\262?\211\262\203\243 A\262\202j \266\203\266\202\207" [cl-struct-package-desc-tags package-alist package-desc-status "obsolete" type-of signal wrong-type-argument package-desc 1 remove nil 4 t] 15 (#$ . 78371)])
#@311 Return a list of dependencies for PACKAGE sorted by dependency.
PACKAGE is included as the first element of the returned list.
ONLY is an alist associating package names to package objects.
Only these packages will be in the return value and their cdrs are
destructively set to nil in ONLY.
(fn PACKAGE ONLY)
(defalias 'package--sort-deps-in-alist #[514 "\301\302!>\204 \303\304\305D\"\210\306H\211\203? \211@\211@\236\211\205# \211\243\211\2036 \301\241\210\307\310\"\"\262\266A\266\202\202 \210B\207" [cl-struct-package-desc-tags nil type-of signal wrong-type-argument package-desc 4 append package--sort-deps-in-alist] 11 (#$ . 79290)])
#@356 Return PACKAGE-LIST sorted by dependence.
That is, any element of the returned list is guaranteed to not
directly depend on any elements that come before it.
PACKAGE-LIST is a list of `package-desc' objects.
Indirect dependencies are guaranteed to be returned in order only
if all the in-between dependencies are also in PACKAGE-LIST.
(fn PACKAGE-LIST)
(defalias 'package--sort-by-dependence #[257 "\300\301\"\302\211\203( \211@\211A\211\203 \302\241\210\303\304\"\"\262\210A\266\202\202 \262\207" [mapcar #[257 "\301!>\204 \302\303\304D\"\210\211\305HB\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 1] 5 "\n\n(fn P)"] nil append package--sort-deps-in-alist] 10 (#$ . 79956)])
#@50 Return the package described by DESC.
(fn DESC)
(defalias 'package-archive-base #[257 "\302\303!>\204 \304\305\306D\"\210\307H \"A\207" [cl-struct-package-desc-tags package-archives assoc type-of signal wrong-type-argument package-desc 6] 6 (#$ . 80695)])
#@72 Download and install a tar package defined by PKG-DESC.
(fn PKG-DESC)
(defalias 'package-install-from-archive #[257 "\301!>\204 \302\303\304D\"\210\211\305H\306=\203 \307\310!\210\311!\312!\313!P\314\315\316\317\320\321 #\322\"\323$\324\325\326\327\330\331\326&\n\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 5 dir error "Can't install directory package from archive" package-archive-base package-desc-full-name package-desc-suffix package--with-response-buffer-1 make-byte-code 0 "\306 \203 \307\300! >\204 \310\311\312\300D\"\210\300\313H\f\235\203# \314 \315\300!)\207\316 \317\301\302\320\321\322\323\324\325\300 \"\326\"\327\330%%\207" vconcat vector [cl-struct-package-desc-tags package-unsigned-archives save-silently package-check-signature type-of signal wrong-type-argument package-desc 6 t package-unpack buffer-string package--check-signature nil make-byte-code 256 "\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320!\210\321\301!\203! \322\323!\210\301c\210\324\325\300!\210+\210\211\205\215 \326\327\330\331#\320\332\333\300!\334P \"\320\335%\210\336\300!\f>\204R \337\340\341\300D\"\210\300\211\342\324I\266\336\300!\f>\204h \337\340\341\300D\"\210\300\343H
\236A\211\205\213 \336@!\f>\204\203 \337\340\341@D\"\210\211@\211\342\324I\262\262\207" vconcat vector [save-silently package-user-dir cl-struct-package-desc-tags package-alist generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil multibyte-string-p cl--assertion-failed (not (multibyte-string-p content)) t package-unpack write-region mapconcat epg-signature-to-string "\n" expand-file-name package-desc-full-name ".signed" silent type-of signal wrong-type-argument package-desc 9 1] 8 "\n\n(fn &optional GOOD-SIGS)"] 13 :file :async nil :error-function #[0 "\300\207" [nil] 1] :noerror] 14 (#$ . 80963)])
#@256 Return non-nil if PACKAGE, of MIN-VERSION or newer, is installed.
If PACKAGE is a symbol, it is the package name and MIN-VERSION
should be a version list.
If PACKAGE is a `package-desc' object, MIN-VERSION is ignored.
(fn PACKAGE &optional MIN-VERSION)
(defalias 'package-installed-p #[513 "\303!>\203# \303!>\204 \304\305\306D\"\210\307H\211;\205\" \310!\207 \2043 \211\2043 \n\2033 \n>\207\311 \236A\211\205T \312\303@!>\204O \304\305\306@D\"\210@\313H\"\262\206] \314\"\207" [cl-struct-package-desc-tags package--initialized package-activated-list type-of signal wrong-type-argument package-desc 7 file-exists-p package--alist version-list-<= 2 package-built-in-p] 9 (#$ . 82921)])
#@259 Download and install all the packages in PACKAGES.
PACKAGES should be a list of `package-desc'.
This function assumes that all package requirements in
PACKAGES are satisfied, i.e. that PACKAGES is computed
using `package-compute-transaction'.
(fn PACKAGES)
(defalias 'package-download-transaction #[257 "\300\301\"\207" [mapc package-install-from-archive] 4 (#$ . 83633)])
#@565 Install the package PKG.
PKG can be a `package-desc' or a symbol naming one of the
available packages in an archive in `package-archives'. When
called interactively, prompt for the package name.
Mark the installed package as selected by adding it to
`package-selected-packages'.
When called from Lisp and optional argument DONT-SELECT is
non-nil, install the package but do not add it to
`package-selected-packages'.
If PKG is a `package-desc' and it is already installed, don't try
to install it but still mark it as selected.
(fn PKG &optional DONT-SELECT)
(defalias 'package-install #[513 "\302\303\304\"\210\305!>\203\" \305!>\204 \306\307\310D\"\210\311H\202# \2043 \312!\2043 \313 B!\210\305!>\203\\ \314!?\205b \315C\305!>\204U \306\307\310D\"\210\316H\"\202b \315\317CC\"\211\203o \320!\210\321 \202s \322\323\"\262\207" [cl-struct-package-desc-tags package-selected-packages add-hook post-command-hook package-menu--post-refresh type-of signal wrong-type-argument package-desc 1 package--user-selected-p package--save-selected-packages package-installed-p package-compute-transaction 4 nil package-download-transaction package--quickstart-maybe-refresh message "`%s' is already installed"] 9 (#$ . 84015) (byte-code "\204 \302\303!\210 \204 \304 \210\305\306\307\310\311\312\313 \"\"\311\303$!\311D\207" [package--initialized package-archive-contents package-initialize t package-refresh-contents intern completing-read "Install package: " delq nil mapcar #[257 "\300@!?\205\f \301@!\207" [package-installed-p symbol-name] 3 "\n\n(fn ELT)"]] 8)])
#@145 Strip RCS version ID from the version string STR.
If the result looks like a dotted numeric version, return it.
Otherwise return nil.
(fn STR)
(defalias 'package-strip-rcs-id #[257 "\211\205! \300\301\"\203 \302\303\225\"\262\3041 \305!\205 \2110\207\210\306\207" [string-match "\\`[ ]*[$]Revision:[ ]+" substring 0 (error) version-to-list nil] 4 (#$ . 85612)])
#@430 Install a package from the current buffer.
The current buffer is assumed to be a single .el or .tar file or
a directory. These must follow the packaging guidelines (see
info node `(elisp)Packaging').
Specially, if current buffer is a directory, the -pkg.el
description file is not mandatory, in which case the information
is derived from the main .el file in the directory.
Downloads and installs required packages as needed.
(defalias 'package-install-from-buffer #[0 "\302\303!\203 \304 \202 \302\305!\203 \306 \202 \212\307 )\310!>\204) \311\312\313D\"\210\211\314H\310!>\204; \311\312\313D\"\210\315H\316\317\"\320!\266\321!\210\322!\204W \323 B!\210\207" [cl-struct-package-desc-tags package-selected-packages derived-mode-p dired-mode package-dir-info tar-mode package-tar-file-info package-buffer-info type-of signal wrong-type-argument package-desc 1 4 package-compute-transaction nil package-download-transaction package-unpack package--user-selected-p package--save-selected-packages] 6 (#$ . 85991) nil])
#@112 Install a package from FILE.
The file can either be a tar file, an Emacs Lisp file, or a
directory.
(fn FILE)
(defalias 'package-install-file #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\203! \313 \210\202/ \314!\210\315\316\"\203/ \317 \210\320 *\207" [default-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 file-directory-p dired-mode insert-file-contents-literally string-match "\\.tar\\'" tar-mode package-install-from-buffer] 8 (#$ . 87035) "fPackage file name: "])
#@123 Ensure packages in `package-selected-packages' are installed.
If some packages are not installed propose to install them.
(defalias 'package-install-selected-packages #[0 "\204 \301\302!\207\303\304\"\305\306\"GGZ\2030 \307\310\311G\312\313\314##!\205@ \315\316\"\202@ \211\317V\203= \301\320\"\202@ \301\321!\207" [package-selected-packages message "`package-selected-packages' is empty, nothing to install" seq-remove package-installed-p seq-filter #[257 "\211\236\207" [package-archive-contents] 3 "\n\n(fn P)"] y-or-n-p format "Packages to install: %d (%s), proceed? " mapconcat symbol-name " " mapc #[257 "\300\301\"\207" [package-install dont-select] 4 "\n\n(fn P)"] 0 "Packages that are not available: %d (the rest is already installed), maybe you need to `M-x package-refresh-contents'" "All your packages are already installed"] 11 (#$ . 87627) nil])
#@70 Return non-nil if PKG is the newest package with its name.
(fn PKG)
(defalias 'package--newest-p #[257 "\302!>\204 \303\304\305D\"\210\211\306H \236A@\232\207" [cl-struct-package-desc-tags package-alist type-of signal wrong-type-argument package-desc 1] 5 (#$ . 88507)])
#@472 Delete package PKG-DESC.
Argument PKG-DESC is a full description of package as vector.
Interactively, prompt the user for the package name and version.
When package is used elsewhere as dependency of another package,
refuse deleting it and return an error.
If prefix argument FORCE is non-nil, package will be deleted even
if it is used elsewhere.
If NOSAVE is non-nil, the package is not removed from
`package-selected-packages'.
(fn PKG-DESC &optional FORCE NOSAVE)
(defalias 'package-delete #[769 "\304!>\204 \305\306\307D\"\210\310H\304!>\204\" \305\306\307D\"\210\311H\312\204> \313!\203> \314!\203> \315\316 \"!\210\317\320\321\n!!\321!\"\204U \322\323\324!\"\202\356 \204\200 \325!\211\262\203\200 \322\326\324!\304!>\204y \305\306\307D\"\210\311H#\202\356 \327\330\331\"\210\332\333\"\210\334\211\203\317 \211@\335\304 !>\204\243 \305\306\307 D\"\210\336H!\337\230\203\262 \202\272 \340\341G[#P\342!\203\306 \343!\210\266A\266\202\202\213 \210 \236\344\"\210\211A\204\343 \345 \"\210\346 \210\347\350\324!\"\207" [cl-struct-package-desc-tags package-selected-packages package-user-dir package-alist type-of signal wrong-type-argument package-desc 7 1 nil package--user-selected-p package--newest-p package--save-selected-packages remove string-prefix-p file-name-as-directory expand-file-name error "Package `%s' is a system package, not deleting" package-desc-full-name package--used-elsewhere-p "Package `%s' is used by `%s' as dependency, not deleting" add-hook post-command-hook package-menu--post-refresh delete-directory t (".signed" "readme.txt") package-version-join 2 ".signed" substring 0 file-exists-p delete-file delete delq package--quickstart-maybe-refresh message "Package `%s' deleted."] 13 (#$ . 88791) (byte-code "\301\302\303\304\301\305\306\307\301\310\311 \"\"\"\"\"\312\313\301\314\"\304\315$\316\"A\304E\207" [current-prefix-arg mapcar #[257 "\300!B\207" [package-desc-full-name] 3 "\n\n(fn P)"] delq nil #[257 "\300!?\205 \211\207" [package-built-in-p] 3 "\n\n(fn P)"] apply append cdr package--alist completing-read "Delete package: " car t assoc] 11)])
#@111 Reinstall package PKG.
PKG should be either a symbol, the package name, or a `package-desc'
object.
(fn PKG)
(defalias 'package-reinstall #[257 "\302\303!>\203
\202 \236A@\304\305#\210\306\307\"\207" [cl-struct-package-desc-tags package-alist package-delete type-of force nosave package-install dont-select] 5 (#$ . 90949) (byte-code "\301\302\303\304\305\304\306\"\"\"!C\207" [package-alist intern completing-read "Reinstall package: " mapcar symbol-name car] 8)])
#@167 Remove packages that are no longer needed.
Packages that are no more needed by other packages in
`package-selected-packages' and their dependencies
will be deleted.
(defalias 'package-autoremove #[0 "\204\f \301\302\303!!\205. \304 \211\203) \305\306\307G\310\311\312##!\205, \313\314\"\202, \315\316!\262\207" [package-selected-packages yes-or-no-p format-message "`package-selected-packages' is empty! Really remove ALL packages? " package--removable-packages y-or-n-p format "Packages to delete: %d (%s), proceed? " mapconcat symbol-name " " mapc #[257 "\301\236A@\302\"\207" [package-alist package-delete t] 4 "\n\n(fn P)"] message "Nothing to autoremove"] 9 (#$ . 91432) nil])
#@69 Display the full documentation of PACKAGE (a symbol).
(fn PACKAGE)
(defalias 'describe-package #[257 "\306!>\204 \211\203 \2119\204 \307\310!\207\311\312D\313\314!\"\210 \315\211\223\210\316\nB\317 B\320 \321 \322!\211 \315\211r
q\210\323!)\262rq\210\324\315\"\262)\325\326!\203Y \326\"\202Z \211)\266\204*\207" [cl-struct-package-desc-tags help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output type-of message "No package specified" help-setup-xref describe-package called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup describe-package-1 temp-buffer-window-show functionp help-window-setup] 8 (#$ . 92129) (byte-code "\304 \206 \305 \306\307\310\311#\210\204 \312\311!\210\313\314\315 \"\314\315\n\"\314\315 \"#>\204, \310\262\314\316\"\262\317\203> \320\321\"\202? \322\310\311\310\211\205M \316 !&\211G\323V\205Y \324!C\262\262\207" [package--initialized package-alist package-archive-contents package--builtins function-called-at-point symbol-at-point require finder-inf nil t package-initialize append mapcar car symbol-name completing-read format "Describe package (default %s): " "Describe package: " 0 intern] 11)])
(custom-declare-face 'package-help-section-name '((t :inherit (bold font-lock-function-name-face))) "Face used on section names in package description buffers." :version "25.1")
#@175 Print "NAME: ", right aligned to the 13th column.
If more STRINGS are provided, insert them followed by a newline.
Otherwise no newline is inserted.
(fn NAME &rest STRINGS)
(defalias 'package--print-help-section #[385 "\300\301\302\303!Z]\304\"\305\306P\307\310#\261\210\211\205 \311\312\"\210\313c\207" [make-string 0 11 string-width 32 propertize ": " font-lock-face package-help-section-name apply insert "\n"] 7 (#$ . 93613)])
(byte-code "\300\301\302\303#\300\207" [function-put package--print-help-section lisp-indent-function 1] 4)
#@139 Return a string containing the long description of the package DESC.
The description is read from the installed package files.
(fn DESC)
(defalias 'package--get-description #[257 "\301\302\303!>\204 \304\305\306D\"\210\307H\302\203Q \211\204Q \211A\262\242\262\310\311\"!\203 \312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\323\311\"!\210\324 \262*\210\202 \211\206\267 \311\325\326\303!>\204i \304\305\306\nD\"\210\327H\"\"\310!\205\265 \312\313!r\211q\210\314\315\316\317\320!\330\"\322$\216\331!\206\220 \332c\210eb\210\333\334\302\335#\203\241 \336\332!\210\333\337\302\335#\203\260 \336\332!\210\202\241 \324 *\262\262\207" [cl-struct-package-desc-tags ("README-elpa" "README-elpa.md" "README" "README.rst" "README.org") nil type-of signal wrong-type-argument package-desc 7 file-readable-p expand-file-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-string format "%s.el" 1 [buffer-name kill-buffer] lm-commentary "" re-search-forward "^;;; Commentary:\n" t replace-match "^\\(;+ ?\\)"] 13 (#$ . 94165)])
#@91 Insert the package description for PKG.
Helper function for `describe-package'.
(fn PKG)
(defalias 'describe-package-1 #[257 "\306\307!\210\310!>\203 \211\206, \211 \236A@\206, \211\n\236\211\203% \311!\202* \236A@\262\211\203E \310!>\204? \312\313\314D\"\210\211\315H\202F \205\\ \310!>\204Y \312\313\314D\"\210\316H\205r \310!>\204o \312\313\314D\"\210\317H\205{ \320\321\322#\205\222 \310!>\204\217 \312\313\314D\"\210\323H\205\252 \310!>\204\247 \312\313\314D\"\210\324H\205\304 \310!>\204\300 \312\313\314 D\"\210\325H\326\327\"A\326\330\"A \205\327 \331\n!\332=\205\341 \211?\f\203\355 \333
!\202\356 \334\335!\205\f\310!>\204\312\313\314D\"\210\336H\326\337\n\"A\326\340 \"A\341\230\203!\342\262\203(\343\262\344\345\346#!\210\347\350!\210\203J\351\352!\353\354#\355\261\210\202<\203\337\351\356\235\203Z\357\202^\352!\353\354#c\210\360\361!c\210\362\363\364\f\"\203z\365\f\"\202|!!\366\367#\266\370!\203\244\370\"\204\244\360\371!\351\372\353\354#\261\210\202\251\360\373!c\210\203\263\355c\210\202\266\374c\210\310!>\203<
\204<\375\235\203<\376c\210\377\201D \201E \201F \314%\210\202<\203\351\201G \353
#\201H \261\210;\203 \201I \355\261\210\202<\201J c\210\202<\2035\352!c\210\201K \345\201L \"\261\210\201M c\210\377\201N \201E \201O \314%\210\202<\352!\355\261\210\201P c\210\203K \203Y\347\201Q
\206W\201R \"\210\f\203j\347\201S \201T !\"\210\203w\347\201U \n\"\210\203\231\347\201V \310!>\204\221\312\313\314D\"\210\201W H\"\210\205\263\310!>\204\257\312\313\314D\"\210\317H\262\203:\347\201X !\210\201Y \211\2033\211@\211@A@\345\201Z \201[ !\201T !# <\203\362\n\236\203\362\201\\ \202\365\201] \203 \321\262\202 \201^ \323iGG$\201_ Y\203\201` c\210\202 \201a c\210\366\201b #\210\211c\266A\266\202\202\305\210\201P c\266
\203\245\347\201c !\210\201Y \211\203\236\211@\201d !\203_\321\262\202|\201^ \323iG#\201_ Y\203w\201` c\210\202|\201a c\210\366\201b \310!>\204\221\312\313\314D\"\210\315H#\266A\266\202\202J\210\201P c\266 \203 \201e \n\321\201Y @\201f #)\266\203\203\364\326\201g A\"A\211\203\363\201h \321\201Y @\201f #)\266\203\203\363\201i \201j \201k
#\262 \210\347\201l !\210\366\n\201m \f#\210\201P c\210\203:\347\201n !\210\211\2034\211@\377\201o \201E \201p %\210\376c\210A\266\202\202\210\201P c\210\203J\347\201q !\210\201r !\210\211\203\215\347G\315U\203\\\201s \202_\201t !\210\201r \211A\262\242!\210\211\211\203\214\211@\201u \201v \201w \"c\210\201r !\210A\266\202\202m\210\201x \236A \236A\n\236\211\205\246\311!C\262#\201y \"\211\203\306\347\201z \201{ \201| \201a #\355#\210\266\201P c\210`\203)\201} \345\201~ \"BC#`\201 !\206\356\201] c\210\212\211b\210\201\200 \201\201 \321\201Y #\203\n\201\202 \201] !\210\201\200 \201\203 \321\201Y #\203#\201\202 \201] !\210\202\n)\266\202\211\201\204 !\203=\201\205 !c\210\202\211\345\201\206 \"\321C\201\207 \201\210 !\201\211 \201\212 \201\213 \201\214 \201\215 !\201\216 \"\324$\201\217 \201\220 \321\201\221 \201\222 \201\223 \201Y &\n\210\211\242\206\206\201\224 c\266\211b\210\201\225 \262\207" [cl-struct-package-desc-tags package-alist package--builtins package-archive-contents package-user-dir font-lock-warning-face require lisp-mnt type-of package--from-builtin signal wrong-type-argument package-desc 1 7 4 package--used-elsewhere-p nil all 2 6 8 assoc :url :commit package-desc--keywords builtin package-desc-status "orphan" package--incompatible-p 9 :maintainer :authors "avail-obso" "available obsolete" "incompatible" princ format "Package %S is %s.\n\n" package--print-help-section "Status" propertize capitalize font-lock-face package-status-built-in "." ("unsigned" "dependency") "Installed" substitute-command-keys " in `" abbreviate-file-name file-name-as-directory file-in-directory-p file-relative-name help-insert-xref-button help-package-def package-built-in-p "',\n shadowing a " "built-in package" "'" " (unsigned)." ("unsigned" "installed") " " package-make-button inhibit-changing-match-data package-archives load-path load-file-rep-suffixes "Delete" action package-delete-button-action "Incompatible" " because it depends on " "Emacs " "uninstallable packages." " from " "%s" " -- " "Install" package-install-button-action "\n" "Archive" "n/a" "Version" package-version-join "Commit" "Summary" 3 "Requires" t "%s-%s" symbol-name " (not available)" "" + window-width ",\n " ", " help-package "Required by" package-desc-full-name "^http://\\(elpa\\|www\\)\\.gnu\\.org/" string-match "gnu" "^https" replace-regexp-in-string "^http" "https" "Homepage" help-url "Keywords" package-keyword package-keyword-button-action "Maintainer" package--print-email-button "Author" "Authors" make-string 13 32 append delete "Other versions" mapconcat #[257 "\301!>\204 \302\303\304D\"\210\211\305H\301!>\204! \302\303\304D\"\210\306H\301!>\2043 \302\303\304D\"\210\307H\206C \211;\203B \310\202C \211\204N \311\312\"\202l \311\313\314\315!\316\317\320\321\322\323\324\325\326\327\330!\331\"\332\333%&#\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 2 7 6 "installed" format "%s" "%s (%s)" make-text-button package-version-join nil font-lock-face link follow-link t action make-byte-code 257 "\301\300!\207" vconcat vector [describe-package] 3 "\n\n(fn BUTTON)"] 20 "\n\n(fn OPKG)"] locate-file "%s.el" lm-commentary re-search-forward "^;;; Commentary:\n" replace-match "^\\(;+ ?\\)" package-installed-p package--get-description "%s-readme.txt" package--with-response-buffer-1 package-archive-base make-byte-code 0 "\212db\210n\204 \302c\210) \203 \303\304!\210\300\305ed\306\307$\240\210\307\207" vconcat vector [enable-multibyte-characters 10 cl--assertion-failed (not enable-multibyte-characters) decode-coding-region utf-8 t] :file :async :error-function #[0 "\300\207" [nil] 1] :noerror "This package does not provide a description." browse-url-add-buttons] 33 (#$ . 95326)])
#@156 Run `package-install' on the package BUTTON points to.
Used for the `action' property of buttons in the buffer created by
`describe-package'.
(fn BUTTON)
(defalias 'package-install-button-action #[257 "\300\301\"\302\303\304\305!\"!\205 \306\307\"\210\310\307\311\"\210eb\207" [button-get package-desc y-or-n-p format-message "Install package `%s'? " package-desc-full-name package-install nil revert-buffer t] 7 (#$ . 101531)])
#@155 Run `package-delete' on the package BUTTON points to.
Used for the `action' property of buttons in the buffer created by
`describe-package'.
(fn BUTTON)
(defalias 'package-delete-button-action #[257 "\300\301\"\302\303\304\305!\"!\205 \306!\210\307\310\311\"\210eb\207" [button-get package-desc y-or-n-p format-message "Delete package `%s'? " package-desc-full-name package-delete revert-buffer nil t] 7 (#$ . 101972)])
#@215 Show filtered "*Packages*" buffer for BUTTON.
The buffer is filtered by the `package-keyword' property of BUTTON.
Used for the `action' property of buttons in the buffer created by
`describe-package'.
(fn BUTTON)
(defalias 'package-keyword-button-action #[257 "\300\301\"\302\303C\"\207" [button-get package-keyword package-show-package-list t] 5 (#$ . 102404)])
#@215 Insert button labeled TEXT with button PROPERTIES at point.
PROPERTIES are passed to `insert-text-button', for which this
function is a convenience wrapper used by `describe-package-1'.
(fn TEXT &rest PROPERTIES)
(defalias 'package-make-button #[385 "\300 \203 \202
\301\302Q\300 \203 \303\202 \304\305\306\307\310\311 &\207" [display-graphic-p "[" "]" (:box (:line-width 2 :color "dark grey") :background "light grey" :foreground "black") link apply insert-text-button face follow-link t] 12 (#$ . 102777)])
#@205 Insert a button whose action will send an email to RECIPIENT.
NAME should have the form (FULLNAME . EMAIL) where FULLNAME is
either a full name or nil, and EMAIL is a valid email address.
(fn RECIPIENT)
(defalias 'package--print-email-button #[257 "\211@\203 \211@c\210\211@\203 \211A\203 \300c\210\211A\2036 \301c\210\302A\303\304\305\306\307\310\311\312\n!\313\"\314\315%%\210\316c\210\317c\207" [" " "<" insert-text-button follow-link t action make-byte-code 257 "\301\302\303\300@\300A#!\207" vconcat vector [compose-mail format "%s <%s>"] 6 "\n\n(fn _)" ">" "\n"] 12 (#$ . 103304)])
#@47 Local keymap for `package-menu-mode' buffers.
(defvar package-menu-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\305#\210\303\341\342#\210\211\207" [tabulated-list-mode-map make-sparse-keymap 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" revert-buffer "/k" package-menu-filter-by-keyword "/n" package-menu-filter-by-name "//" package-menu-clear-filter "~" package-menu-mark-obsolete-for-deletion "x" package-menu-execute "h" package-menu-quick-help "H" package-menu-hide-package "?" "(" package-menu-toggle-hiding] 5) (#$ . 103904))
#@31 Menu for `package-menu-mode'.
(defvar package-menu-mode-menu nil (#$ . 104869))
(easy-menu-do-define 'package-menu-mode-menu package-menu-mode-map "Menu for `package-menu-mode'." '("Package" ["Describe Package" package-menu-describe-package :help "Display information about this package"] ["Help" package-menu-quick-help :help "Show short key binding help for package-menu-mode"] "--" ["Refresh Package List" revert-buffer :help "Redownload the package archive(s)" :active (not package--downloads-in-progress)] ["Execute Marked Actions" package-menu-execute :help "Perform all the marked actions"] "--" ["Mark All Available Upgrades" package-menu-mark-upgrades :help "Mark packages that have a newer version for upgrading" :active (not package--downloads-in-progress)] ["Mark All Obsolete for Deletion" package-menu-mark-obsolete-for-deletion :help "Mark all obsolete packages for deletion"] ["Mark for Install" package-menu-mark-install :help "Mark a package for installation and move to the next line"] ["Mark for Deletion" package-menu-mark-delete :help "Mark a package for deletion and move to the next line"] ["Unmark" package-menu-mark-unmark :help "Clear any marks on a package and move to the next line"] "--" ("Filter Packages" ["Filter by Keyword" package-menu-filter-by-keyword :help "Filter packages by keyword"] ["Filter by Name" package-menu-filter-by-name :help "Filter packages by name"] ["Clear Filter" package-menu-clear-filter :help "Clear package list filter"]) ["Hide by Regexp" package-menu-hide-package :help "Hide all packages matching a regexp"] ["Display Older Versions" package-menu-toggle-hiding :style toggle :selected (not package-menu--hide-packages) :help "Display package even if a newer version is already installed"] "--" ["Quit" quit-window :help "Quit package selection"] ["Customize" (customize-group 'package)]))
#@73 List of newly-available packages since `list-packages' was last called.
(defvar package-menu--new-package-list nil (#$ . 106727))
#@50 Mode-line status of ongoing package transaction.
(defvar package-menu--transaction-status nil (#$ . 106863))
(defvar package-menu-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [package-menu-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar package-menu-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [package-menu-mode-abbrev-table package-menu-mode-map variable-documentation put purecopy "Keymap for `package-menu-mode'." boundp package-menu-mode-syntax-table definition-name package-menu-mode (lambda (#1=#:def-tmp-var) (defvar package-menu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `package-menu-mode'." (lambda (#1#) (defvar package-menu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `package-menu-mode'." derived-mode-parent tabulated-list-mode] 5)
#@343 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 or penultimate step
during initialization.
(defalias 'package-menu-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
.=\204R \326
\325.C#\210\327 !\210\330\f!\210
.\331/\332\333\334\335\336\3370A\205m \340\341\"BBB\"1\3422\343\344B3\345\346\347\344\307$\210\350 \210\3514\3525\3536)\354\355!\207" [delay-mode-hooks major-mode mode-name package-menu-mode-map package-menu-mode-syntax-table package-menu-mode-abbrev-table 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--downloads-in-progress ":Loading") (package-menu--transaction-status package-menu--transaction-status)) apply vector ("Package" 18 package-menu--name-predicate) ("Version" 13 package-menu--version-predicate) ("Status" 10 package-menu--status-predicate) append (("Archive" 10 package-menu--archive-predicate)) (("Description" 0 package-menu--description-predicate)) 2 "Status" nil add-hook tabulated-list-revert-hook package-menu--refresh tabulated-list-init-header package-menu--refresh-contents package--imenu-prev-index-position-function package--imenu-extract-index-name-function run-mode-hooks package-menu-mode-hook local-abbrev-table mode-line-process package-archives tabulated-list-format tabulated-list-padding tabulated-list-sort-key revert-buffer-function imenu-prev-index-position-function imenu-extract-index-name-function] 8 (#$ . 108217) nil])
#@206 Convenience macro for `package-menu--generate'.
If the alist stored in the symbol LISTNAME lacks an entry for a
package PKG-DESC, add one. The alist is keyed with PKG-DESC.
(fn PKG-DESC STATUS LISTNAME)
(defalias 'package--push '(macro . #[771 "\300\301E\302\303EEE\207" [unless assoc push cons] 9 (#$ . 110250)]))
(make-obsolete 'package--push nil "27.1")
#@76 If non-nil, include packages that don't have a version in `list-packages'.
(defvar package-list-unversioned nil (#$ . 110622))
#@78 If non-nil, mention in the list which packages were installed w/o signature.
(defvar package-list-unsigned nil (#$ . 110755))
#@50 The value of variable `emacs-version' as a list.
(defvar package--emacs-version-list (version-to-list emacs-version) (#$ . 110887))
#@63 Signal a user-error if major mode is not `package-menu-mode'.
(defalias 'package--ensure-package-menu-mode #[0 "\300\301!?\205\n \302\303!\207" [derived-mode-p package-menu-mode user-error "The current buffer is not a Package Menu"] 2 (#$ . 111025)])
#@566 Return non-nil if PKG has no chance of being installable.
PKG is a `package-desc' object.
If SHALLOW is non-nil, this only checks if PKG depends on a
higher `emacs-version' than the one being used. Otherwise, also
checks the viability of dependencies, according to
`package--compatibility-table'.
If PKG requires an incompatible Emacs version, the return value
is this version (as a string).
If PKG requires incompatible packages, the return value is a list
of these dependencies, similar to the list returned by
`package-desc-reqs'.
(fn PKG &optional SHALLOW)
(defalias 'package--incompatible-p #[513 "\303!>\204 \304\305\306D\"\210\307H\310\236A@\211\203( \311 \"\203( \312!\202w ?\205w \313\303!>\204> \304\305\306D\"\210\307H\211\203r \211@\211@\211\310=\204j \314\n\"\311\206Y \315A@\206` \316\"\203i B\262\210\210A\266\202\202A \262\262\207" [cl-struct-package-desc-tags package--emacs-version-list package--compatibility-table type-of signal wrong-type-argument package-desc 4 emacs version-list-< package-version-join nil gethash (0) (0)] 12 (#$ . 111283)])
#@69 Return the status of `package-desc' object PKG-DESC.
(fn PKG-DESC)
(defalias 'package-desc-status #[257 "\306!>\204 \307\310\311D\"\210\211\312H\306!>\204! \307\310\311D\"\210\313H \236\211A@\306!>\204: \307\310\311D\"\210\314H\n?\206V \306!>\204S \307\310\311D\"\210\315H\316=\203` \317\202\203l \204l \320\202;\203\225 ;\205y \321!\322\"\203\204 \323\202\220 \324\"\203\217 \325\202\220 \320\262\202\203\325 \326!\204\243 \327\202\330 \"\204\256 \331\202\f\236A@=\203\321 \211\204\302 \332\202\333!\203\315 \334\202\335\202\325\202\336!\203\340 \337\202\f\236A@\211\205\373 \306!>\204\370 \307\310\311D\"\210\211\314H\203\n\340\"\203\n\341\202
>\203\342\202\343\266\202\207" [cl-struct-package-desc-tags package-load-list package-list-unsigned package-user-dir package-alist package-menu--new-package-list type-of signal wrong-type-argument package-desc 1 7 2 9 builtin "built-in" "disabled" version-to-list version-list-= "held" version-list-< "obsolete" file-exists-p "deleted" file-in-directory-p "external" "unsigned" package--user-selected-p "installed" "dependency" package--incompatible-p "incompat" version-list-<= "avail-obso" "new" "available"] 12 (#$ . 112383)])
#@181 Whether available obsolete packages should be hidden.
Can be toggled with \<package-menu-mode-map> \[package-menu-toggle-hiding].
Installed obsolete packages are always displayed.
(defvar package-menu--hide-packages t (#$ . 113646))
#@229 In Package Menu, toggle visibility of obsolete available packages.
Also hide packages whose name matches a regexp in user option
`package-hidden-regexps' (a list). To add regexps to this list,
use `package-menu-hide-package'.
(defalias 'package-menu-toggle-hiding #[0 "\301 \210?\211\203 \302\303!\210\202 \302\304!\210\305\306\307\"\207" [package-menu--hide-packages package--ensure-package-menu-mode message "Hiding obsolete or unwanted packages" "Displaying all packages" revert-buffer nil no-confirm] 4 (#$ . 113886) nil])
#@289 Filter PKG-LIST according to `package-archive-priorities'.
PKG-LIST must be a list of `package-desc' objects, all with the
same name, sorted by decreasing `package-desc-priority-version'.
Return a list of packages tied for the highest priority according
to their archives.
(fn PKG-LIST)
(defalias 'package--remove-hidden #[257 "\211\205\304 \204 \207\304@! >\204 \305\306\307@D\"\210\211@\310H\n\236A@\211\203L \304! >\2045 \305\306\307D\"\210\211\311H\312\313\314\315\316\317!\320\"\321\322%\"\262\262 \204T \202\224 \323=\203\215 \324\211\203\206 \211A\262\242\325!\203y \211W\203y \324\262\202\201 B\262\211\262\266\202\\ \211\237\266\202\202\224 \205\224 @C\204\234 \211\202\300 \304! >\204\253 \305\306\307D\"\210\311H\312\313\314\315\316\317!\326\"\321\322%\"\262\262\262\207" [package-menu--hide-packages cl-struct-package-desc-tags package-alist package-menu-hide-low-priority type-of signal wrong-type-argument package-desc 1 2 cl-remove-if make-byte-code 257 "\302\303! >\204 \304\305\306D\"\210\307H\300\"\207" vconcat vector [cl-struct-package-desc-tags version-list-< type-of signal wrong-type-argument package-desc 2] 6 "\n\n(fn P)" archive nil package-desc-priority [cl-struct-package-desc-tags version-list-= type-of signal wrong-type-argument package-desc 2]] 11 (#$ . 114426)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable package-hidden-regexps funcall function #[0 "\300\207" [nil] 1] "List of regexps matching the name of packages to hide.\nIf the name of a package matches any of these regexps it is\nomitted from the package menu. To toggle this, type \\[package-menu-toggle-hiding].\n\nValues can be interactively added to this list by typing\n\\[package-menu-hide-package] on a package." :version "25.1" :type (repeat (regexp :tag "Hide packages with name matching"))] 8)
#@195 Re-populate the `tabulated-list-entries'.
PACKAGES should be nil or t, which means to display all known packages.
KEYWORDS should be nil or a list of keywords.
(fn &optional PACKAGES KEYWORDS)
(defalias 'package-menu--refresh #[512 "\204 \306\262\307\310\311#\312 \211\203J \211@\211@\306=\204$ \211>\203B A\211\203A \211@\313 \"\203: \211B\262A\266\202\202& \210\210A\266\202\202 \210\n\211\203\214 \211@\314!@\211\315=\204\203 \313\"\203\203 \204p A\316H\203\203 \306=\204~ \211>\203\203 B\262\266A\266\202\202L \210\f
\232\204\226 \317 \210\211\203\350 \211@\211@\306=\204\256 \211>\203\340 \203\300 \203\300 \320\321!\"\204\340 \322A!\211\203\337 \211@\313 \"\203\330 \211B\262A\266\202\202\304 \210\210A\266\202\202\230 \210\323 \210\324\325\"\211\207" [package-hidden-regexps package-alist package--builtins package-list-unversioned package--old-archive-priorities package-archive-priorities t mapconcat identity "\\|" nil package--has-keyword-p package--from-builtin emacs 0 package-read-all-archive-contents string-match symbol-name package--remove-hidden tabulated-list-init-header mapcar package-menu--print-info-simple package-archive-contents package-menu--hide-packages tabulated-list-entries] 12 (#$ . 116316)])
#@31 Collect all package keywords.
(defalias 'package-all-keywords #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\211\242\207" [nil package--mapc make-byte-code 257 "\300\301\302!\300\242\"\240\207" vconcat vector [append package-desc--keywords] 5 "\n\n(fn DESC)"] 8 (#$ . 117604)])
#@228 Call FUNCTION for all known PACKAGES.
PACKAGES can be nil or t, which means to display all known
packages, or a list of packages.
Built-in packages are converted with `package--from-builtin'.
(fn FUNCTION &optional PACKAGES)
(defalias 'package--mapc #[513 "\211\204 \305\262\306\211\203, \211@\211@\262\305=\204 >\203% \307A\"\210A\266\202\202 \210 \211\203b \211@\211@\262\310=\204[ \n\204I \211A\311H\203[ \305=\204U >\203[ \312!!\210A\266\202\202. \210 \211\205\277 \211@\211@\262\305=\204z >\203\270 \211A\211\203\267 \211@\313\314!\f>\204\222 \315\316\317D\"\210\320H\314!\f>\204\244 \315\316\317D\"\210\321H\"\204\260 !\210A\266\202\202| \210A\266\202\202d \262\207" [package-alist package--builtins package-list-unversioned package-archive-contents cl-struct-package-desc-tags t nil mapc emacs 0 package--from-builtin package-installed-p type-of signal wrong-type-argument package-desc 1 2] 13 (#$ . 117901)])
#@125 Test if package DESC has any of the given KEYWORDS.
When none are given, the package matches.
(fn DESC &optional KEYWORDS)
(defalias 'package--has-keyword-p #[513 "\211\203J \205 \301!\302\211\204I \203I \211A\262\242\211\303\304!>\204- \305\306\307 D\"\210\310HP\230\206D \211\311\312!P\230\206D \211\235\266\202\202\f \207\313\207" [cl-struct-package-desc-tags package-desc--keywords nil "arc:" type-of signal wrong-type-argument package-desc 6 "status:" package-desc-status t] 11 (#$ . 118863)])
#@314 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.
With KEYWORDS given, only packages with those keywords are
shown.
(fn REMEMBER-POS PACKAGES &optional KEYWORDS)
(defalias 'package-menu--generate #[770 "\301\"\210\302H\211\203 \303\304\305#\306\307Q\262\202 \310\240\266\311 \210\312!\207" [tabulated-list-format package-menu--refresh 0 mapconcat identity "," "Package[" "]" "Package" tabulated-list-init-header tabulated-list-print] 9 (#$ . 119385)])
#@156 Return a package entry suitable for `tabulated-list-entries'.
PKG has the form (PKG-DESC . STATUS).
Return (PKG-DESC [NAME VERSION STATUS DOC]).
(fn PKG)
(defalias 'package-menu--print-info #[257 "\300@!\207" [package-menu--print-info-simple] 3 (#$ . 120006)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\303%\210\304\311\312\313\310\303%\210\304\314\315\316\310\303%\210\304\317\320\321\310\303%\210\304\322\323\324\310\303%\210\304\325\326\327\310\303%\210\304\330\331\332\310\303%\210\304\333\334\335\310\303%\210\304\336\337\340\310\303%\210\304\341\342\343\310\303%\210\304\344\345\346\310\303%\210\304\347\350\351\310\303%\210\304\352\353\354\310\303%\207" [make-obsolete package-menu--print-info package-menu--print-info-simple "25.1" custom-declare-face package-name ((t :inherit link)) "Face used on package names in the package menu." :version package-description ((t :inherit default)) "Face used on package description summaries in the package menu." package-status-built-in ((t :inherit font-lock-builtin-face)) "Face used on the status and version of built-in packages." package-status-external ((t :inherit package-status-built-in)) "Face used on the status and version of external packages." package-status-available ((t :inherit default)) "Face used on the status and version of available packages." package-status-new ((t :inherit (bold package-status-available))) "Face used on the status and version of new packages." package-status-held ((t :inherit font-lock-constant-face)) "Face used on the status and version of held packages." package-status-disabled ((t :inherit font-lock-warning-face)) "Face used on the status and version of disabled packages." package-status-installed ((t :inherit font-lock-comment-face)) "Face used on the status and version of installed packages." package-status-dependency ((t :inherit package-status-installed)) "Face used on the status and version of dependency packages." package-status-unsigned ((t :inherit font-lock-warning-face)) "Face used on the status and version of unsigned packages." package-status-incompat ((t :inherit error)) "Face used on the status and version of incompat packages." package-status-avail-obso ((t :inherit package-status-incompat)) "Face used on the status and version of avail-obso packages."] 6)
#@150 Return a package entry suitable for `tabulated-list-entries'.
PKG is a `package-desc' object.
Return (PKG-DESC [NAME VERSION STATUS DOC]).
(fn PKG)
(defalias 'package-menu--print-info-simple #[257 "\302!\211\303\267\2025 \304\2026 \305\2026 \306\2026 \307\2026 \310\2026 \311\2026 \312\2026 \313\2026 \314\2026 \315\2026 \316\2026 \317\320\321\322\323!>\204K \324\325\326 D\"\210\327H!\330\331\332\331\333\334\326
\335BBBBBBBBB\336\337\323 !>\204v \324\325\326 D\"\210\340H!\332#\336\332#\341 A\205\253 \336\323 !>\204\236 \324\325\326
D\"\210\n\342H\206\246 \343\332\n#C\336\323\f!>\204\275 \324\325\326D\"\210 \344H\332\345#C\"BBB\"D\207" [cl-struct-package-desc-tags package-archives package-desc-status #s(hash-table size 11 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("built-in" 9 "external" 13 "available" 17 "avail-obso" 21 "new" 25 "held" 29 "disabled" 33 "installed" 37 "dependency" 41 "unsigned" 45 "incompat" 49)) package-status-built-in package-status-external package-status-available package-status-avail-obso package-status-new package-status-held package-status-disabled package-status-installed package-status-dependency package-status-unsigned package-status-incompat font-lock-warning-face apply vector symbol-name type-of signal wrong-type-argument package-desc 1 face package-name font-lock-face follow-link t (action package-menu-describe-package) propertize package-version-join 2 append 6 "" 3 package-description] 16 (#$ . 122310)])
#@55 `package-archive-contents' before the latest refresh.
(defvar package-menu--old-archive-contents nil (#$ . 123829))
#@332 In Package Menu, download the Emacs Lisp package archive.
Fetch the contents of each archive specified in
`package-archives', and then refresh the package menu.
`package-menu-mode' sets `revert-buffer-function' to this
function. The args ARG and NOCONFIRM, passed from
`revert-buffer', are ignored.
(fn &optional ARG NOCONFIRM)
(defalias 'package-menu--refresh-contents #[512 "\304 \210\305\306 !\207" [package-archive-contents package-menu--old-archive-contents package-menu--new-package-list package-menu-async package--ensure-package-menu-mode nil package-refresh-contents] 4 (#$ . 123952)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias package-menu-refresh revert-buffer nil make-obsolete "27.1"] 4)
#@425 Hide in Package Menu packages that match a regexp.
Prompt for the regexp to match against package names.
The default regexp will hide only the package whose name is at point.
The regexp is added to the list in the user option
`package-hidden-regexps' and saved for future sessions.
To unhide a package, type
`\[customize-variable] RET package-hidden-regexps'.
Type \[package-menu-toggle-hiding] to toggle package hiding.
(defalias 'package-menu-hide-package #[0 "\303 \210\304\305!\205/ \306\307\310\311\312\206 `\313\"\262\314!>\204& \315\316\317D\"\210\211\320H\262!!\321Q\322\323\"\324\325\"\210\211 B\326\301 \"\210\327 \210\330\331\332\333\334\335!\336\"\337\340%\n\"\341\342G\343\344!\343\345!$\262\207" [cl-struct-package-desc-tags package-hidden-regexps package-archive-contents package--ensure-package-menu-mode derived-mode-p package-menu-mode "\\`" regexp-quote symbol-name nil get-text-property tabulated-list-id type-of signal wrong-type-argument package-desc 1 "\\'" read-string "Hide packages matching regexp: " string-match "" customize-save-variable package-menu--post-refresh cl-remove-if-not make-byte-code 257 "\301\300\302@!\"\207" vconcat vector [string-match symbol-name] 5 "\n\n(fn E)" message "Packages to hide: %d. Type `%s' to toggle or `%s' to customize" substitute-command-keys "\\[package-menu-toggle-hiding]" "\\[customize-variable] RET package-hidden-regexps"] 9 (#$ . 124690) nil])
#@122 Describe the current package.
If optional arg BUTTON is non-nil, describe its associated package.
(fn &optional BUTTON)
(defalias 'package-menu-describe-package #[256 "\211\203 \300\301\"\202 \302\303\206 `\304\"\262\211\203 \305!\202# \306\307!\207" [button-get package-desc nil get-text-property tabulated-list-id describe-package user-error "No package here"] 5 (#$ . 126131) nil])
#@76 Mark a package for deletion and move to the next line.
(fn &optional NUM)
(defalias 'package-menu-mark-delete #[256 "\300 \210\301 \302\235\203 \303\304\305\"\207\306y\207" [package--ensure-package-menu-mode package-menu-get-status ("installed" "dependency" "obsolete" "unsigned") tabulated-list-put-tag "D" t nil] 4 (#$ . 126531) "p"])
#@80 Mark a package for installation and move to the next line.
(fn &optional NUM)
(defalias 'package-menu-mark-install #[256 "\300 \210\301 \302\235\203 \303\304\305\"\207\306y\207" [package--ensure-package-menu-mode package-menu-get-status ("available" "avail-obso" "new" "dependency") tabulated-list-put-tag "I" t nil] 4 (#$ . 126876) "p"])
#@77 Clear any marks on a package and move to the next line.
(fn &optional NUM)
(defalias 'package-menu-mark-unmark #[256 "\300 \210\301\302\303\"\207" [package--ensure-package-menu-mode tabulated-list-put-tag " " t] 4 (#$ . 127223) "p"])
#@55 Back up one line and clear any marks on that package.
(defalias 'package-menu-backup-unmark #[0 "\300 \210\301y\210\302\303!\207" [package--ensure-package-menu-mode -1 tabulated-list-put-tag " "] 2 (#$ . 127464) nil])
#@42 Mark all obsolete packages for deletion.
(defalias 'package-menu-mark-obsolete-for-deletion #[0 "\300 \210\212eb\210m?\205! \301 \302\232\203 \303\304\305\"\210\202 \306y\210\202 )\207" [package--ensure-package-menu-mode package-menu-get-status "obsolete" tabulated-list-put-tag "D" t 1] 3 (#$ . 127688) nil])
(defvar package--quick-help-keys '(("install," "delete," "unmark," ("execute" . 1)) ("next," "previous") ("Hide-package," "(-toggle-hidden") ("g-refresh-contents," "/-filter," "help")))
#@58 Prettify DESC to be displayed as a help menu.
(fn DESC)
(defalias 'package--prettify-quick-help-key #[257 "\211<\203 \211A<\203 \300\301\302#\207\211A\303@!\304\211T\305$\210\207\301\306B!\207" [mapconcat package--prettify-quick-help-key " " copy-sequence add-text-properties (face (bold font-lock-warning-face)) 0] 8 (#$ . 128193)])
#@113 Show short key binding help for `package-menu-mode'.
The full list of keys can be viewed with \[describe-mode].
(defalias 'package-menu-quick-help #[0 "\301 \210\302\303\304\305#!\207" [package--quick-help-keys package--ensure-package-menu-mode message mapconcat package--prettify-quick-help-key "\n"] 5 (#$ . 128544) 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)
#@57 Return status text of package at point in Package Menu.
(defalias 'package-menu-get-status #[0 "\301 \210\302\303\206\n `\304\"\262\211\205 \305\"\211\203\" \211A@\306H\202# \307\207" [tabulated-list-entries package--ensure-package-menu-mode nil get-text-property tabulated-list-id assoc 2 ""] 4 (#$ . 129029)])
#@167 Return the priority of ARCHIVE.
The archive priorities are specified in
`package-archive-priorities'. If not given there, the priority
defaults to 0.
(fn ARCHIVE)
(defalias 'package-archive-priority #[257 "\301\"A\206 \302\207" [package-archive-priorities assoc 0] 4 (#$ . 129353)])
#@220 Return the version PKG-DESC with the archive priority prepended.
This allows for easy comparison of package versions from
different archives if archive priorities are meant to be taken in
consideration.
(fn PKG-DESC)
(defalias 'package-desc-priority-version #[257 "\301!\302!>\204 \303\304\305D\"\210\306HB\207" [cl-struct-package-desc-tags package-desc-priority type-of signal wrong-type-argument package-desc 2] 6 (#$ . 129649)])
#@229 In Package Menu, return an alist of packages that can be upgraded.
The alist has the same form as `package-alist', namely a list
of (PKG . DESCS), but where DESCS is the `package-desc' object
corresponding to the newer version.
(defalias 'package-menu--find-upgrades #[0 "\302\211\211\211\2030 \211@\211@A@\303H\211\304\267\202' B\262\202' \305\"\262\266A\266\202\202 \210\211\203n \211@\306! >\204G \307\310\311D\"\210\211\312H\211\236A@\211\203e \313\314!\314!\"\203e BB\262\266A\266\202\2022 \210\207" [tabulated-list-entries cl-struct-package-desc-tags nil 2 #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("installed" 23 "dependency" 23 "unsigned" 23 "available" 32 "new" 32)) package--append-to-alist type-of signal wrong-type-argument package-desc 1 version-list-< package-desc-priority-version] 11 (#$ . 130096)])
#@59 Whether mark-upgrades is waiting for a refresh to finish.
(defvar package-menu--mark-upgrades-pending nil (#$ . 130990))
#@99 Mark all upgradable packages in the Package Menu.
Implementation of `package-menu-mark-upgrades'.
(defalias 'package-menu--mark-upgrades-1 #[0 "\302\303 \211\204 \304\305!\202\\ ~\210\212eb\210m\204V \302\306\206 `\307\"\262\310! >\2042 \311\312\313D\"\210\211\314H\236A\211\204B \314y\210\202Q \232\203N \315 \210\202Q \316 \210\266\202 )\304\317G\"\207" [package-menu--mark-upgrades-pending cl-struct-package-desc-tags nil package-menu--find-upgrades message "No packages to upgrade" get-text-property tabulated-list-id type-of signal wrong-type-argument package-desc 1 package-menu-mark-install package-menu-mark-delete "Packages marked for upgrading: %d"] 6 (#$ . 131117)])
#@415 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.
If there's an async refresh operation in progress, the flags will
be placed as part of `package-menu--post-refresh' instead of
immediately.
(defalias 'package-menu-mark-upgrades #[0 "\302 \210\204\n \303 \207\304\305\306!\207" [package--downloads-in-progress package-menu--mark-upgrades-pending package--ensure-package-menu-mode package-menu--mark-upgrades-1 t message "Waiting for refresh to finish..."] 2 (#$ . 131815) nil])
#@230 Return a string listing PACKAGES that's usable in a prompt.
PACKAGES is a list of `package-desc' objects.
Formats the returned string to be usable in a minibuffer
prompt (see `package-menu--prompt-transaction-p').
(fn PACKAGES)
(defalias 'package-menu--list-to-prompt #[257 "\300\301G\302\303\304##\207" [format "%d (%s)" mapconcat package-desc-full-name " "] 8 (#$ . 132525)])
#@180 Prompt the user about DELETE, INSTALL, and UPGRADE.
DELETE, INSTALL, and UPGRADE are lists of `package-desc' objects.
Either may be nil, but not all.
(fn DELETE INSTALL UPGRADE)
(defalias 'package-menu--prompt-transaction-p #[771 "\300\205\f \301\302\303!\"\205 \301\304\303!\"\205\" \301\305\303!\"\306R!\207" [y-or-n-p format "Packages to delete: %s. " package-menu--list-to-prompt "Packages to install: %s. " "Packages to upgrade: %s. " "Proceed? "] 10 (#$ . 132913)])
#@386 Return an alist describing an INSTALL DELETE transaction.
Alist contains three entries, upgrade, delete, and install, each
with a list of package names.
The upgrade entry contains any `package-desc' objects in INSTALL
whose name coincides with an object in DELETE. The delete and
the install entries are the same as DELETE and INSTALL with such
objects removed.
(fn INSTALL DELETE)
(defalias 'package-menu--partition-transaction #[514 "\300\301\302$\303\301\302$\303\301\302$\304B\305B\306BE\207" [cl-intersection :key package-desc-name cl-set-difference delete install upgrade] 9 (#$ . 133406)])
#@89 Install packages in INSTALL-LIST and delete DELETE-LIST.
(fn INSTALL-LIST DELETE-LIST)
(defalias 'package-menu--perform-transaction #[514 "\2033 \303\304G\"\305\306\211\203/ \211@\303T\211\262\"\307 \210\310\311!\210\312\313\"\210A\266\202\202
\210)\266\314\307 \210\310\311!\210\315!\211\205j \211@\3161Y \206N \n\317\306\320#)0\202b \321\322\323!#\262\210A\266\202\202? \262)\207" [package-menu--transaction-status inhibit-message package-menu-async format ":Installing %%d/%d" 0 nil force-mode-line-update redisplay force package-install dont-select ":Deleting" package--sort-by-dependence (debug error) package-delete nosave message "Error trying to delete `%s': %S" package-desc-full-name] 10 (#$ . 134021)])
#@243 Update the `package-selected-packages' list according to ADD and REMOVE.
ADD and REMOVE must be disjoint lists of package names (or
`package-desc' objects) to be added and removed to the selected
packages list, respectively.
(fn ADD REMOVE)
(defalias 'package--update-selected-packages #[514 "\211\203= \211@\302!>\203$ \302!>\204 \303\304\305D\"\210\211\306H\202% \211\307 \"\2031 \210\2025 \211 B\210A\266\202\202 \210\211\211\203n \211@\310\302!>\203c \302!>\204] \303\304\305D\"\210\306H\202d \"A\266\202\202? \210\204w \211\205z \311 !\207" [cl-struct-package-desc-tags package-selected-packages type-of signal wrong-type-argument package-desc 1 memql remove package--save-selected-packages] 9 (#$ . 134765)])
#@239 Perform marked Package Menu actions.
Packages marked for installation are downloaded and installed;
packages marked for deletion are removed.
Optional argument NOQUERY non-nil means do not ask the user to confirm.
(fn &optional NOQUERY)
(defalias 'package-menu-execute #[256 "\301 \210\302\211\211\211\212eb\210m\204? \302f\262\303=\2049 \302\304\206 `\305\"\262\262\306\267\2029 \211B\262\2029 \211B\262\302y\210\202 )\204L \204L \307\310!\210\311\"\312\236A\313\236A\314\236A\204i \315#\205\266 \316\205s \317\320G\"\205| \317\321G\"\205\205 \317\322G\"\323\260\324\325\"\210\326\"\210\327 \"\210\205\264 \330 \211\203\256 \324\331G\332\333!#\202\262 \324\334\"\262\262\266\203\262\207" [package-selected-packages package--ensure-package-menu-mode nil 32 get-text-property tabulated-list-id #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (68 44 73 52)) user-error "No operations specified" package-menu--partition-transaction delete install upgrade package-menu--prompt-transaction-p "[ " format "Delete %d " "Install %d " "Upgrade %d " "]" message "Operation %s started" package--update-selected-packages package-menu--perform-transaction package--removable-packages "Operation finished. Packages that are no longer needed: %d. Type `%s' to remove them" substitute-command-keys "\\[package-autoremove]" "Operation %s finished"] 16 (#$ . 135511) nil])
#@137 Predicate to sort "*Packages*" buffer by the version column.
This is used for `tabulated-list-format' in `package-menu-mode'.
(fn A B)
(defalias 'package-menu--version-predicate #[514 "\300A@\301H!\206 \302\300A@\301H!\206 \303\304\"\203$ \305\"\202( \306\"\207" [version-to-list 1 (0) (0) version-list-= package-menu--name-predicate version-list-<] 7 (#$ . 136956)])
#@136 Predicate to sort "*Packages*" buffer by the status column.
This is used for `tabulated-list-format' in `package-menu-mode'.
(fn A B)
(defalias 'package-menu--status-predicate #[514 "A@\300HA@\300H\230\203 \301\"\202\362 \302\230\203! \303\202\362 \211\302\230\203+ \304\202\362 \305\306\"\203D \305\306\"\203@ \301\"\202\362 \303\202\362 \305\306\"\203O \304\202\362 \307\230\203Y \303\202\362 \211\307\230\203c \304\202\362 \310\230\203m \303\202\362 \211\310\230\203w \304\202\362 \311\230\203\201 \303\202\362 \211\311\230\203\213 \304\202\362 \312\230\203\225 \303\202\362 \211\312\230\203\237 \304\202\362 \313\230\203\251 \303\202\362 \211\313\230\203\263 \304\202\362 \314\230\203\275 \303\202\362 \211\314\230\203\307 \304\202\362 \315\230\203\321 \303\202\362 \211\315\230\203\333 \304\202\362 \316\230\203\345 \303\202\362 \211\316\230\203\357 \304\202\362 \231\207" [2 package-menu--name-predicate "new" t nil string-prefix-p "avail" "installed" "dependency" "unsigned" "held" "external" "built-in" "obsolete" "incompat"] 7 (#$ . 137342)])
#@141 Predicate to sort "*Packages*" buffer by the description column.
This is used for `tabulated-list-format' in `package-menu-mode'.
(fn A B)
(defalias 'package-menu--description-predicate #[514 "A@A\203\f \301\202
\302HA@A\203 \301\202 \302H\230\203) \303\"\202, \231\207" [package-archives 4 3 package-menu--name-predicate] 7 (#$ . 138425)])
#@134 Predicate to sort "*Packages*" buffer by the name column.
This is used for `tabulated-list-format' in `package-menu-mode'.
(fn A B)
(defalias 'package-menu--name-predicate #[514 "\301\302@!>\204 \303\304\305@D\"\210@\306H!\301\302@!>\204) \303\304\305@D\"\210@\306H!\231\207" [cl-struct-package-desc-tags symbol-name type-of signal wrong-type-argument package-desc 1] 8 (#$ . 138787)])
#@137 Predicate to sort "*Packages*" buffer by the archive column.
This is used for `tabulated-list-format' in `package-menu-mode'.
(fn A B)
(defalias 'package-menu--archive-predicate #[514 "\301@!>\204 \302\303\304@D\"\210@\305H\206 \306\301@!>\204* \302\303\304@D\"\210@\305H\2062 \306\230\203? \307\"\202B \231\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 6 "" package-menu--name-predicate] 7 (#$ . 139190)])
#@115 Decide which packages are new in `package-archive-contents'.
Store this list in `package-menu--new-package-list'.
(defalias 'package-menu--populate-new-package-list #[0 "\205\" \211\203 \211@\211@\236\204 \211@\nBA\266\202\202 \210\303\211\207" [package-menu--old-archive-contents package-archive-contents package-menu--new-package-list nil] 4 (#$ . 139657)])
#@41 Notify the user of upgradable packages.
(defalias 'package-menu--find-and-notify-upgrades #[0 "\300 \211\205 \301\302G\303\304!#\207" [package-menu--find-upgrades message "Packages that can be upgraded: %d; type `%s' to mark for upgrading." substitute-command-keys "\\[package-menu-mark-upgrades]"] 6 (#$ . 140032)])
#@357 Revert "*Packages*" buffer and check for new packages and upgrades.
Do nothing if there's no *Packages* buffer.
This function is called after `package-refresh-contents' and it
is added to `post-command-hook' by any function which alters the
package database (`package-install' and `package-delete'). When
run, it removes itself from `post-command-hook'.
(defalias 'package-menu--post-refresh #[0 "\300\301\302\"\210\303\304!\305!\205 r\211q\210\306 \210\307\310!\210\311\312\313\")\207" [remove-hook post-command-hook package-menu--post-refresh get-buffer "*Packages*" buffer-live-p package-menu--populate-new-package-list run-hooks tabulated-list-revert-hook tabulated-list-print remember update] 4 (#$ . 140358)])
#@321 If there's a *Packages* buffer, check for upgrades and possibly mark them.
Do nothing if there's no *Packages* buffer. If there are
upgrades, mark them if `package-menu--mark-upgrades-pending' is
non-nil, otherwise just notify the user that there are upgrades.
This function is called after `package-refresh-contents'.
(defalias 'package-menu--mark-or-notify-upgrades #[0 "\301\302!\303!\205 r\211q\210\203 \304 \202 \305 )\207" [package-menu--mark-upgrades-pending get-buffer "*Packages*" buffer-live-p package-menu--mark-upgrades-1 package-menu--find-and-notify-upgrades] 3 (#$ . 141085)])
#@305 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*', and
includes the package's version, availability status, and a
short description.
(fn &optional NO-FETCH)
(defalias 'list-packages #[256 "\303\304\305\306#\210\204 \307\306!\210\310\311\312\"\210\310\311\313\314#\210\315\316!r\211q\210\317\320 \210\204, \321 \210\n\2035 \322\305\306\"\210)\323!\207" [package--initialized buffer-file-coding-system package-menu-async require finder-inf nil t package-initialize add-hook package--post-download-archives-hook package-menu--post-refresh package-menu--mark-or-notify-upgrades append get-buffer-create "*Packages*" utf-8 package-menu-mode package-menu--refresh-contents package-menu--generate switch-to-buffer] 5 (#$ . 141690) "P"])
(defalias 'package-list-packages 'list-packages)
#@325 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).
When KEYWORDS are given, only packages with those KEYWORDS are
shown.
(fn &optional PACKAGES KEYWORDS)
(defalias 'package-show-package-list #[512 "\300\301\302\303#\210\304\305!\306!rq\210\307 \210\310\302#\210)\211\203$ \311!\202' \312!\207" [require finder-inf nil t get-buffer-create "*Packages*" get-buffer-window package-menu-mode package-menu--generate select-window switch-to-buffer] 8 (#$ . 142628) nil])
#@505 Filter the "*Packages*" buffer by KEYWORD.
Show only those items that relate to the specified KEYWORD.
KEYWORD can be a string or a list of strings. If it is a list, a
package will be displayed if it matches any of the keywords.
Interactively, it is a list of strings separated by commas.
KEYWORD can also be used to filter by status or archive name by
using keywords like "arc:gnu" and "status:available".
Statuses available include "incompat", "available",
"built-in" and "installed".
(fn KEYWORD)
(defalias 'package-menu-filter-by-keyword #[257 "\300 \210\301\302;\203 C\202 \"\207" [package--ensure-package-menu-mode package-show-package-list t] 4 (#$ . 143275) (byte-code "\300\301\302 \"C\207" [completing-read-multiple "Keywords (comma separated): " package-all-keywords] 3)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias package-menu-filter package-menu-filter-by-keyword nil make-obsolete "27.1"] 4)
#@178 Filter the "*Packages*" buffer by NAME.
Show only those items whose name matches the regular expression
NAME. If NAME is nil or the empty string, show all packages.
(fn NAME)
(defalias 'package-menu-filter-by-name #[257 "\302 \210\211\203 \211\211\303\230\262\203 \304\305\306\"\207\307\305\306\"\210\306\211\203M \211@\310@! >\2043 \311\312\313@D\"\210\211@\314H\315\316!\"\203E \211B\262\210A\266\202\202 \210\211\203Y \304\306\"\202\\ \317\320!\207" [tabulated-list-entries cl-struct-package-desc-tags package--ensure-package-menu-mode "" package-show-package-list t nil package-menu--refresh type-of signal wrong-type-argument package-desc 1 string-match symbol-name user-error "No packages found"] 9 (#$ . 144221) (byte-code "\300\301!C\207" [read-from-minibuffer "Filter by name (regexp): "] 2)])
#@64 Clear any filter currently applied to the "*Packages*" buffer.
(defalias 'package-menu-clear-filter #[0 "\300 \210\301\302\211\"\207" [package--ensure-package-menu-mode package-menu--generate t] 3 (#$ . 145045) nil])
#@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 #[0 "\300\301!\207" [list-packages t] 2 (#$ . 145269) nil])
#@235 Return the version number of the package in which this is used.
Assumes it is used from an Elisp file placed inside the top-level directory
of an installed ELPA package.
The return value is a string (or nil in case we can't find it).
(defalias 'package-get-version #[0 "\303\300!\203\n \206 \206 \n\211\204 \304\202b \305\306\"\203% \307\310\"\202b \311!\312\313!!\314\315P\"\316!\205` \317\320!\210\321\322!r\211q\210\323\324\325\326\327!\330\"\331$\216\332!\210\333\334!\206] \333\335!*\262\266\203\207" [byte-compile-current-file load-file-name buffer-file-name boundp nil string-match "/[^/]+-\\([0-9]\\(?:[0-9.]\\|pre\\|beta\\|alpha\\|snapshot\\)+\\)/[^/]+\\'" match-string 1 file-name-directory file-name-nondirectory directory-file-name expand-file-name ".el" file-readable-p require lisp-mnt generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents lm-header "package-version" "version"] 11 (#$ . 145523)])
(byte-code "\300\301\302\303#\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315&\207" [function-put package-get-version pure t custom-declare-variable package-quickstart funcall function #[0 "\300\207" [nil] 1] "Precompute activation actions to speed up startup.\nThis requires the use of `package-quickstart-refresh' every time the\nactivations need to be changed, such as when `package-load-list' is modified." :type boolean :version "27.1" package-quickstart-file #[0 "\300\301!\207" [locate-user-emacs-file "package-quickstart.el"] 2] "Location of the file used to speed up activation of packages at startup." file] 9)
(defalias 'package--quickstart-maybe-refresh #[0 "\203 \302 \207\303 !\207" [package-quickstart package-quickstart-file package-quickstart-refresh delete-file] 2])
#@45 (Re)Generate the `package-quickstart-file'.
(defalias 'package-quickstart-refresh #[0 "\306\307!\210\310\311!\210\312\211\313\314\f\211\2033 \211@\3151# \316@!0\202+ \317\320\321!\"\262\210A\266\202\202 \210 \237
\322\323!\324\325\326\327\330!\331\"\332$\216r\211q\210\333 \210\334c\210\335c\210 \211\203\244 \211@\336 >\337\340!!)\341!\342\343\261\210\344!\210\345\346\312\347#\203\222 \350\351 8\204q \352\353\225\203\212 \354\202\213 \355\211#\210\202q n\204\231 \356c\210\357c\266A\266\202\202U \210\360\361\302\362\363\364\365 \"D\366BBEp\"\210\367!\211\203\320 \360\370\371\372\361\300\362\363D\373BBEFp\"\210\210\374c)rq\210\375\312\211\312\325%\210*\266\202,\207" [Info-directory-list coding-system-for-write package-activated-list package--quickstart-pkgs package-alist package-quickstart-file package-initialize no-activate require info nil emacs-internal (#1="") (error) package-activate message "%s" error-message-string generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 emacs-lisp-mode ";;; Quickstart file to activate all packages at startup -*- lexical-binding:t -*-\n" ";; ¡¡ This file is autogenerated by `package-quickstart-refresh', DO NOT EDIT !!\n\n" (".el" ".elc") locate-library package--autoloads-file-name prin1-to-string "(let ((load-file-name " "))\n" insert-file-contents re-search-forward "#\\$\\|^;\\(.*\n\\)" move 8 syntax-ppss replace-match 1 #1# t "\n" ")\n" pp setq append quote mapcar package-desc-name (package-activated-list) butlast progn (require 'info) (info-initialize) (Info-directory-list) "\f\n;; Local Variables:\n;; version-control: never\n;; no-byte-compile: t\n;; no-update-autoloads: t\n;; End:\n" write-region load-suffixes] 12 (#$ . 147374) nil])
#@128 Move point to previous line in package-menu buffer.
This function is used as a value for
`imenu-prev-index-position-function'.
(defalias 'package--imenu-prev-index-position-function #[0 "o?\205 \300y\207" [-1] 1 (#$ . 149182)])
#@159 Return imenu name for line at point.
This function is used as a value for
`imenu-extract-index-name-function'. Point should be at the
beginning of the line.
(defalias 'package--imenu-extract-index-name-function #[0 "\301\302\206 `\303\"\262\304\305\306!>\204 \307\310\311D\"\210\312H\313\306!>\2040 \307\310\311D\"\210\314H!\306!>\204D \307\310\311D\"\210\315H$\207" [cl-struct-package-desc-tags nil get-text-property tabulated-list-id format "%s (%s): %s" type-of signal wrong-type-argument package-desc 1 package-version-join 2 3] 9 (#$ . 149418)])
(provide 'package)
Mini Shell