;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\306\307\310\311\312\313\314\315&\210\316\317\320\321\322DD\323\324\325\314\315&\210\316\326\320\321\327DD\330\324\331\332\333\314\315& \210\316\334\320\321\335DD\336\324\337\332\333\314\340& \210\316\341\320\321\342DD\343\324\344\314\345&\210\316\346\320\321\347DD\350\324\351\332\333\314\345& \210\316\352\320\321\353DD\354\324\355\332\333\314\356& \210\316\300\320\321\357DD\360\324\361\332\333\314\315& \210\316\362\320\321\363DD\364\324\365\332\333\314\315& \210\316\366\320\321\367DD\370\324\371\372\373\374\375\376\"F\377BB\332\333\314\340& \210\316\201@ \320\321\201A DD\201B \324\201C \332\333\314\356& \210\316\201D \320\321\201E DD\201F \324\201G \332\333\314\356& \210\316\201H \320\321\201I DD\201J \314\345\324\201K &\210\316\201L \320\321\201M DD\201N \324\325\314\345&\207" [package-user-dir require seq tabulated-list macroexp url-handlers 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 activate installed packages when Emacs starts.\nIf non-nil, packages are activated after reading the init file\nand before `after-init-hook'. Activation is not done if\n`user-init-file' is nil (e.g. Emacs was started with \"-q\").\n\nEven if the value is nil, you can type \\[package-initialize] to\nactivate the package system at any time." :type boolean package-load-list #[0 "\300\207" [(all)] 1] "List of packages for `package-initialize' to load.\nEach element in this list should be a list (NAME VERSION), or the\nsymbol `all'. The symbol `all' says to load the latest installed\nversions of all packages not specified by other elements.\n\nFor an element (NAME VERSION), NAME is a package name (a symbol).\nVERSION should be t, a string, or nil.\nIf VERSION is t, the most recent version is activated.\nIf VERSION is a string, only that version is ever loaded.\n Any other version, even if newer, is silently ignored.\n Hence, the package is \"held\" at that version.\nIf VERSION is nil, the package is not loaded (it is \"disabled\")." (repeat (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." (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.\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\301!\205
\302\303!\205
\304\207" [require epg-config epg-find-configuration OpenPGP allow-unsigned] 2] "Non-nil means to check package signatures when installing.\nThe value `allow-unsigned' means to still install a package even if\nit is unsigned.\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")) package-unsigned-archives #[0 "\300\207" [nil] 1] "List of archives where we do not check for package signatures." (repeat (string :tag "Archive name")) 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." (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."] 12)
(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 (#$ . 8722)])
(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 (#$ . 9068)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 1)) nil] 9 (#$ . 9350)])
(put 'package-desc-name 'compiler-macro 'package-desc-name--cmacro)
#@821 Access slot "name" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 9751)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 2)) nil] 9 (#$ . 10852)])
(put 'package-desc-version 'compiler-macro 'package-desc-version--cmacro)
#@824 Access slot "version" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 11269)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 3)) nil] 9 (#$ . 12380)])
(put 'package-desc-summary 'compiler-macro 'package-desc-summary--cmacro)
#@824 Access slot "summary" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 12797)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 4)) nil] 9 (#$ . 13908)])
(put 'package-desc-reqs 'compiler-macro 'package-desc-reqs--cmacro)
#@821 Access slot "reqs" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 14310)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 5)) nil] 9 (#$ . 15412)])
(put 'package-desc-kind 'compiler-macro 'package-desc-kind--cmacro)
#@821 Access slot "kind" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 15814)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 6)) nil] 9 (#$ . 16916)])
(put 'package-desc-archive 'compiler-macro 'package-desc-archive--cmacro)
#@824 Access slot "archive" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 17333)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 7)) nil] 9 (#$ . 18444)])
(put 'package-desc-dir 'compiler-macro 'package-desc-dir--cmacro)
#@820 Access slot "dir" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 18841)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 8)) nil] 9 (#$ . 19940)])
(put 'package-desc-extras 'compiler-macro 'package-desc-extras--cmacro)
#@823 Access slot "extras" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 20352)])
(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 (or (package-desc-p cl-x) (signal 'wrong-type-argument (list 'package-desc cl-x))) (aref cl-x 9)) nil] 9 (#$ . 21460)])
(put 'package-desc-signed 'compiler-macro 'package-desc-signed--cmacro)
#@823 Access slot "signed" of `(package-desc (:constructor package-desc-create) (:constructor package-desc-from-define (name-string version-string &optional summary requirements &rest rest-plist &aux (name (intern name-string)) (version (version-to-list version-string)) (reqs (mapcar (function (lambda (elt) (list (car elt) (version-to-list (cadr elt))))) (if (eq (quote quote) (car requirements)) (nth 1 requirements) requirements))) (kind (plist-get rest-plist :kind)) (archive (plist-get rest-plist :archive)) (extras (let (alist) (while rest-plist (unless (memq (car rest-plist) (quote (:kind :archive))) (let ((value (cadr rest-plist))) (when value (push (cons (car rest-plist) (if (eq (car-safe value) (quote quote)) (cadr value) value)) alist)))) (setq rest-plist (cddr rest-plist))) alist)))))' 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 (#$ . 21872)])
(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 (#$ . 23032)])
(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 (#$ . 24110)])
(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 (#$ . 25004)])
(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)
#@16
(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 (#$ . 26873)])
#@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 (#$ . 27122)])
#@17
(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 (#$ . 27929)])
#@17
(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 (#$ . 28228)])
#@17
(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 (#$ . 28663)])
#@70 Return the priority of the archive of package-desc object P.
(fn P)
(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 (#$ . 28937)])
#@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 (aref cl-x 0)) nil] 9 (#$ . 29225)])
(put 'package--bi-desc-version 'compiler-macro 'package--bi-desc-version--cmacro)
#@140 Access slot "version" of `(package--bi-desc (:constructor package-make-builtin (version summary)) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--bi-desc-version #[257 "\211\300H\207" [0] 3 (#$ . 29579)])
(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 (aref cl-x 1)) nil] 9 (#$ . 29904)])
(put 'package--bi-desc-reqs 'compiler-macro 'package--bi-desc-reqs--cmacro)
#@137 Access slot "reqs" of `(package--bi-desc (:constructor package-make-builtin (version summary)) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--bi-desc-reqs #[257 "\211\300H\207" [1] 3 (#$ . 30243)])
(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 (aref cl-x 2)) nil] 9 (#$ . 30559)])
(put 'package--bi-desc-summary 'compiler-macro 'package--bi-desc-summary--cmacro)
#@140 Access slot "summary" of `(package--bi-desc (:constructor package-make-builtin (version summary)) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--bi-desc-summary #[257 "\211\300H\207" [2] 3 (#$ . 30913)])
(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 (#$ . 31294)])
(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 (#$ . 31996)])
(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 (#$ . 32570)])
(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 (#$ . 32943)])
(byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306& \207" [function-put package-make-builtin side-effect-free t cl-struct-define package--bi-desc 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 (#$ . 33352))
(put 'package--builtins 'risky-local-variable t)
#@404 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' structure,
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 (#$ . 33764))
(put 'package-alist 'risky-local-variable t)
#@52 List of the names of currently activated packages.
(defvar package-activated-list nil (#$ . 34258))
(put 'package-activated-list 'risky-local-variable t)
#@12
(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 (#$ . 34418)])
#@63 Load the description file in directory PKG-DIR.
(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 (#$ . 34946)])
#@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 (#$ . 35718)])
#@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 (#$ . 36430)])
#@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 (#$ . 37005)])
#@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 (#$ . 37618)])
#@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 (#$ . 38206)])
#@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 (#$ . 38617)])
#@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 (#$ . 39169)])
#@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 "\303!>\204 \304\305\306D\"\210\307H\303!>\204\" \304\305\306D\"\210\310H\211\2041 \311\312\313!\"\210\3142\221 \203r \303!>\204I \304\305\306D\"\210\315H\211\203q \211@\316@!\204j \317\320@\321A@!$\210\322\314\323\"\210A\266\202\202L \210\324\"\210\325\326\327\"!\203\213 \330\331!\210\332 \210\211 B\nB\3330\207" [cl-struct-package-desc-tags 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 (#$ . 39963)])
#@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 \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 (#$ . 41165)])
#@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 (#$ . 42098)])
#@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 (#$ . 42710)])
#@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 (#$ . 43354)])
#@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 (#$ . 43554)])
#@78 Create the foo-pkg.el file for single-file packages.
(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\304 !>\2041 \305\306\307 D\"\210\321H!\304 !>\204G \305\306\307 D\"\210\322H\304\n!>\204\\ \305\306\307\fD\"\210 \323H\324\325\326\"D\262\257\327\304!>\204| \305\306\307\nD\"\210\330H!\244!\331Q\311\311\332%+\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 ";;; -*- 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] 15 (#$ . 44962)])
#@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 (#$ . 45801)])
#@21
(fn NAME PKG-DIR)
(defalias 'package-generate-autoloads #[514 "\306\307\"\310\"\311\n\312 \313 \314!\210\315!\210\316!\211\203$ \317!\210\210-\211\207" [generated-autoload-file autoload-timestamps inhibit-message noninteractive 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 (#$ . 46107)])
#@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 (#$ . 46556)])
#@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 "\305 \306\307!\f>\204 \310\311\312D\"\210\313H\314\315#+\207" [inhibit-message load-path save-silently warning-minimum-level cl-struct-package-desc-tags :error byte-recompile-directory type-of signal wrong-type-argument package-desc 7 0 t] 6 (#$ . 47023)])
#@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!\3011 \300A\302O!\210\3030\202 \210\302\211\203 \304\305!\202\" @\207" [read-from-string (end-of-file) nil t error "Can't read whole string"] 6 (#$ . 47468)])
#@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 (#$ . 47783)])
#@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$ \304\315!\210\302y\210\211`}\210\316\317!\210\320\321!\322\320\323!!\206? \322\320\324!!\325 \204I \304\326!\210\327\205Z \330\331!!\332\333\334\335\336 \337\340 &\f\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" "Package lacks a terminating comment" require lisp-mnt lm-header "package-requires" package-strip-rcs-id "package-version" "version" lm-homepage "Package lacks a \"Version\" or \"Package-Version\" header" package-desc-from-define package--prepare-dependencies package-read-from-string :kind single :url :maintainer lm-maintainer :authors lm-authors] 19 (#$ . 48355)])
#@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 (#$ . 49478)])
#@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 (#$ . 49947)])
#@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 (#$ . 50548)])
#@18
(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 (#$ . 51614)])
#@22
(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 (#$ . 51796)])
#@25
(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 20 "" 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 (#$ . 52055)])
#@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 (#$ . 52981)]))
(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!\2032 \211\2025 \307\310!\306!\203@ \211\202C \307\311!\307\312!\307\313!\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332D\330\333\332D\334BBBFCBF\335BBDCBEEC\336\337\340 E\317\341 EDC\336\315\342\343\f\344\345\317\346BC\347\315 \350\351\352\353\354BBBE\355\356\357\360\352\353 \361BBBEF\362E\363D\364BBBBBBFE\365BBBE\315\366
DEFE\315\317\367\370EDC\371BBEFE\266\202=\203\363 \211\202\372 \372DC\"\266\203=\203\211\202
\372DC\"\266\203\207" [plist-member :async :file :error-form :noerror keywordp macroexp-const-p make-symbol "url-1" "noerror-1" "url" "b-sym" cl-macrolet unless-error (body-2 &rest before-body) let ((err (make-symbol "err"))) \` with-temp-buffer when condition-case (\, err) (progn (\,@ before-body) t) \, list 'error quote 'unless (`(signal (car ,err) (cdr ,err))) ((\,@ body-2)) if string-match-p "\\`https?:" concat nil url-retrieve lambda (status) ((current-buffer)) (require 'url-handlers) when-let* ((er (plist-get status :error))) error "Error retrieving: %s %S" (er) with-current-buffer (goto-char (point-min)) unless (search-forward-regexp "^
?\n
?" nil 'noerror) ("incomprehensible buffer") url-insert-buffer-contents kill-buffer ((goto-char (point-min))) (nil 'silent) url-insert-file-contents url expand-file-name ((unless (file-name-absolute-p url) (error "Location %s is not a url nor an absolute file name" url)) (insert-file-contents url)) macroexp-let*] 41 (#$ . 54040)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put package--with-response-buffer lisp-indent-function defun put edebug-form-spec t define-error bad-signature "Failed to verify signature"] 5)
#@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 "\304\305!\203 \306! >\204 \307\310\311D\"\210\211\211\312I\266\3131* \314#0\2025 \315\"\210\307\316\"\262\210\317\211\320\321\"\211\203\210 \211@\306!\n>\204Q \307\310\322D\"\210\211\323H\324=\203a \211B\262\202\201 \325=\203~ \306!\n>\204v \307\310\322D\"\210\211\323H\326=\204\201 \327\262A\266\202\202< \210\203\221 \211\203\234 \315\"\210\307\316C\"\210\266\202\207" [package-gnupghome-dir cl-struct-epg-context-tags cl-struct-epg-signature-tags package-check-signature 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 allow-unsigned no-pubkey t] 12 (#$ . 56362)])
#@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 "\302P\206 \303 \304\305\306\307#)\266\203\203\211P\203\217 \310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\3211] \322\312\323\324\315\316&\325\"\326\327%\305\330$0\202\207 \331=\203n \211\203n \305!\210\203w \210\211?\205\203 \332\333
#\262\262\210*\305\262\202\310\311!r\211q\210\312\313\314\315\316!\334\"\320$\216\3351\257 \336!\210\3060\202\331 \331=\203\300 \211\203\300 \305!\210\203\311 \210\211\204\325 \332\333
#\210\210\305\262\205\377 \312\313\337\315\316\n!\340\"\341$\216\342`d{#\203\373 !\210\211\262)*\262\262\202\212\310\311!r\211q\210\312\313\314\315\316!\343\"\320$\216\34417\345\"\346!\204-\332\347\"\210\350!\266\3060\202a \331=\203H\211\203H\305!\210\203Q \210\211\204]\332\333\f#\210\210\305\262\205\207\312\313\337\315\316 !\340\"\341$\216\342`d{#\203\203!\210\211\262)*\262\262\207" [inhibit-changing-match-data package-check-signature ".sig" buffer-string "\\`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 (error) url-retrieve 257 "p\307\310!\210\311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\3221R \323\324\"\211\203* \325\326\306#\210\210rq\210eb\210\327\330\331\332#\204@ \325\326\306\333#\210)\334\306\"\210\335!\210eb\210\3360\202w %\337=\302\203b \211\203b \302\331!\210\303\203i \303 \210\211\204s \325\340\301\300#\210\210\331\262\205\231 \313\314\341\316\317\303!\342\"\343$\216\344`d{\305\304#\302\203\225 \302!\210\211\262)*\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 (error) plist-get :error error "Error retrieving: %s %S" search-forward-regexp "^
?\n
?" nil noerror "incomprehensible buffer" url-insert-buffer-contents kill-buffer t allow-unsigned #2="Unsigned file `%s' at %s" "\300\205 \300 \207" #3=[] 1 package--check-signature-content package-check-signature] 9 "\n\n(fn STATUS)" silent allow-unsigned error #2# [buffer-name kill-buffer] (error) url-insert-file-contents "\300\205 \300 \207" #3# 1 package--check-signature-content [buffer-name kill-buffer] (error) expand-file-name file-name-absolute-p "Location %s is not a url nor an absolute file name" insert-file-contents] 25 (#$ . 57320)])
#@133 Version number of the package archive understood by this file.
Lower version numbers than this will probably be understood as well.
(defconst package-archive-version 1 (#$ . 60591))
#@156 Cache of the contents of the Emacs Lisp Package Archive.
This is an alist mapping package names (symbols) to
non-empty lists of `package-desc' structures.
(defvar package-archive-contents nil (#$ . 60780))
(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 (#$ . 61049))
#@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 (#$ . 61615)])
#@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 (#$ . 61931)])
#@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 (aref cl-x 0)) nil] 9 (#$ . 62544)])
(put 'package--ac-desc-version 'compiler-macro 'package--ac-desc-version--cmacro)
#@171 Access slot "version" of `(package--ac-desc (:constructor package-make-ac-desc (version reqs summary kind extras)) (:copier nil) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-version #[257 "\211\300H\207" [0] 3 (#$ . 62898)])
(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 (aref cl-x 1)) nil] 9 (#$ . 63254)])
(put 'package--ac-desc-reqs 'compiler-macro 'package--ac-desc-reqs--cmacro)
#@168 Access slot "reqs" of `(package--ac-desc (:constructor package-make-ac-desc (version reqs summary kind extras)) (:copier nil) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-reqs #[257 "\211\300H\207" [1] 3 (#$ . 63593)])
(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 (aref cl-x 2)) nil] 9 (#$ . 63940)])
(put 'package--ac-desc-summary 'compiler-macro 'package--ac-desc-summary--cmacro)
#@171 Access slot "summary" of `(package--ac-desc (:constructor package-make-ac-desc (version reqs summary kind extras)) (:copier nil) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-summary #[257 "\211\300H\207" [2] 3 (#$ . 64294)])
(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 (aref cl-x 3)) nil] 9 (#$ . 64650)])
(put 'package--ac-desc-kind 'compiler-macro 'package--ac-desc-kind--cmacro)
#@168 Access slot "kind" of `(package--ac-desc (:constructor package-make-ac-desc (version reqs summary kind extras)) (:copier nil) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-kind #[257 "\211\300H\207" [3] 3 (#$ . 64989)])
(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 (aref cl-x 4)) nil] 9 (#$ . 65336)])
(put 'package--ac-desc-extras 'compiler-macro 'package--ac-desc-extras--cmacro)
#@170 Access slot "extras" of `(package--ac-desc (:constructor package-make-ac-desc (version reqs summary kind extras)) (:copier nil) (:type vector))' struct CL-X.
(fn CL-X)
(defalias 'package--ac-desc-extras #[257 "\211\300H\207" [4] 3 (#$ . 65685)])
(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 (#$ . 66039)])
(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 (#$ . 66857)])
(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 (#$ . 67516)])
(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 (#$ . 67949)])
(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 (#$ . 68388)])
#@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 (#$ . 69027)])
#@179 Re-read archive file FILE, if it exists.
Will return the data from the file, or nil if the file does not exist.
Will throw an error if the archive version is too new.
(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 (#$ . 69553)])
#@165 Re-read archive contents for ARCHIVE.
If successful, set the variable `package-archive-contents'.
If the archive version is too new, signal an error.
(fn ARCHIVE)
(defalias 'package-read-archive-contents #[257 "\300\301\"\302!\211\205! \211\211\205 \211@\303\"\210A\266\202\202\f \262\207" [format "archives/%s/archive-contents" package--read-archive-file package--add-to-archive-contents] 8 (#$ . 70254)])
#@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 (#$ . 70677))
#@90 Re-read `archive-contents', if it exists.
If successful, set `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 (#$ . 70991)])
(defvar package--initialized nil)
#@55 Whether we know the init file has package-initialize.
(defvar package--init-file-ensured nil (#$ . 71380))
#@585 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.
If `user-init-file' does not mention `(package-initialize)', add
it to the file.
If called as part of loading `user-init-file', set
`package-enable-at-startup' to nil, to prevent accidentally
loading packages twice.
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'.
(fn &optional NO-ACTIVATE)
(defalias 'package-initialize #[256 "\305 \203\f \306 \210\202 \307\305\310 \210\311 \210\211\204> \211\203= \211@\3121- \313@!0\2025 \314\315\316!\"\262\210A\266\202\202 \210\307\317 \207" [package-alist after-init-time package--init-file-ensured package-enable-at-startup package--initialized nil package--ensure-init-file t package-load-all-descriptors package-read-all-archive-contents (error) package-activate message "%s" error-message-string package--build-compatibility-table] 8 (#$ . 71494) nil])
#@45 List of in-progress asynchronous downloads.
(defvar package--downloads-in-progress nil (#$ . 72601))
#@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 (#$ . 72708) "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 (#$ . 73413))
(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 (#$ . 73708)])
#@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 "A\304\305\306\307#)\266\203\203\367 \211P\203a \310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\3211L \322\312\323\324\315\316\f\f\f $\325\"\326\327%\305\330$0\202Y \331!\210\332@A\"\262\210*\305\262\202\362 \310\311!r\211q\210\312\313\314\315\316!\333\"\320$\216\3341\201 \335!\210\3060\202\216 \331!\210\332@A\"\262\205\357 A@\336 \337\340\341\" \"\337 \"\342!<\205\355 \343\306\"\210\n\203\272 \235\203\311 \344\305\305\330%\210\331 !\202\355 \345 \f\312\346\347\315\316\f \"\350\"\351\352%\312\313\353\315\316!\354\"\320$&\266\205*\262\262\202\227\310\311!r\211q\210\312\313\314\315\316!\355\"\320$\216\3561'\337\"\357!\204 \360\361\"\210\362!\266\3060\2024\331!\210\332@A\"\262\205\224A@\336 \337\340\341\" \"\337\"\342!<\205\222\343\306\"\210\n\203_ \235\203n\344\305\305\330%\210\331\n!\202\222\345\n \312\346\347\315\316\f \"\363\"\351\352%\312\313\353\315\316!\364\"\320$&\266\205*\262\207" [inhibit-changing-match-data package-user-dir package-check-signature package-unsigned-archives "\\`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 (error) url-retrieve 257 "p\306\307!\210\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\3211R \322\323\"\211\203* \324\325\303#\210\210rq\210eb\210\326\327\330\331#\204@ \324\325\303\332#\210)\333\303\"\210\334!\210eb\210\3350\202^ \336\300!\210\337@A\"\262\205\272 \300A\300@\340 \341\342\343\"\f\"\341\301\"\344!<\205\270 \345\335\"\210
\203\211 0\235\203\227 \346\330\330\347%\210\336\300!\202\270 \350\301\302\312\351\352\315\316\f \"\353\"\354\355%\312\313\356\315\316\300!\357\"\320$&\266\205*\262\207" [package-user-dir package-check-signature require url-handlers generate-new-buffer #1# make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) plist-get :error error "Error retrieving: %s %S" search-forward-regexp "^
?\n
?" nil noerror "incomprehensible buffer" url-insert-buffer-contents kill-buffer t package--update-downloads-in-progress signal buffer-string expand-file-name format #2="archives/%s" read-from-string make-directory write-region silent package--check-signature 256 "\302\300\303\301\303\304%\210\211\205 \302\305\306\307#\303\301\310P\303\304%\207" [write-region nil silent mapconcat epg-signature-to-string #3="\n" #4=".signed"] 7 "\n\n(fn &optional GOOD-SIGS)" "\301\300!\207" [package--update-downloads-in-progress] package-unsigned-archives] 20 "\n\n(fn STATUS)" silent package--update-downloads-in-progress signal [buffer-name kill-buffer] (error) url-insert-file-contents buffer-string expand-file-name format #2# read-from-string make-directory write-region package--check-signature 256 "\302\300\303\301\303\304%\210\211\205 \302\305\306\307#\303\301\310P\303\304%\207" [write-region nil silent mapconcat epg-signature-to-string #3# #4#] 7 "\n\n(fn &optional GOOD-SIGS)" "\301\300!\207" [package--update-downloads-in-progress] [buffer-name kill-buffer] (error) file-name-absolute-p error "Location %s is not a url nor an absolute file name" insert-file-contents [write-region nil silent mapconcat epg-signature-to-string #3# #4#] [package--update-downloads-in-progress]] 23 (#$ . 74166)])
#@189 Download descriptions of all `package-archives' and read them.
This populates `package-archive-contents'. If 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 (#$ . 77840)])
#@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 "\304!\204 \305\306\"\210\307\310 \" \203. \304!\203. \3111& \312!0\202- \313\314A\"\262\210)\210\315!\207" [package-user-dir data-directory inhibit-message package-check-signature file-exists-p make-directory t expand-file-name "package-keyring.gpg" (debug error) package-import-keyring message "Cannot import default keyring: %S" package--download-and-read-archives] 6 (#$ . 78410) 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 (#$ . 79190)])
#@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 (#$ . 81267)])
#@74 Set and save `package-selected-packages' to VALUE.
(fn &optional VALUE)
(defalias 'package--save-selected-packages #[256 "\211\203 \211 \203 \n\304\300\")\207\305\306\307\"\207" [package-selected-packages after-init-time inhibit-message save-silently customize-save-variable add-hook after-init-hook package--save-selected-packages] 4 (#$ . 81881)])
#@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 (#$ . 82244)])
#@27
(fn PKG &optional ONLY)
(defalias 'package--get-deps #[513 "\236A@\302! >\204 \303\304\305D\"\210\211\306H\307\211\211:\2039 @\262@\262\236\2032 B\262A\262\202 \211\237\266\204\310=?\205f \311\307\211:\203a @\262\312\313!!\244\262A\262\202H \211\237\266\203!\314\267\202z \202\200 D\202\200 \211\202\200 \311\315\"!\207" [package-alist cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 4 nil direct delete-dups reverse package--get-deps #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (direct 108 separate 112 indirect 118)) append] 11 (#$ . 82618)])
#@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\211:\203$ @\262 \236\203 \303\304!B!\244\262A\262\202 \211\237\266\203\305\306 \"\302\211:\203I @\262>\204B B\262A\262\202. \211\237\266\203\207" [package-selected-packages package-alist nil reverse package--get-deps mapcar car] 7 (#$ . 83276)])
#@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 (#$ . 83765)])
#@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 (#$ . 84684)])
#@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 (#$ . 85350)])
#@60 Return the archive containing the package NAME.
(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 (#$ . 86089)])
#@52 Download and install a tar package.
(fn PKG-DESC)
(defalias 'package-install-from-archive #[257 "\305!>\204 \306\307\310D\"\210\211\311H\312=\203 \313\314!\210\315!\316!\317!P\320\321\322\323#)\266\203\203\256 \211P\324\325!r\211q\210\326\327\330\331\332!\333\"\334$\216\3351Y \336!\210\3220\202a \306@A\"\262\205\246 \n\203\201 \305!>\204y \306\307\310D\"\210\337H \235\203\213 \322 \340!)\202\246 \341 \342\321\326\343\344\331\332 \"\345\"\346\347%%\262*\262\262\202*\324\325!r\211q\210\326\327\330\331\332!\350\"\334$\216\3511\336 \352\"\353!\204\324 \313\354\"\210\355!\266\3220\202\346 \306@A\"\262\205'\n\203\305!>\204\375 \306\307\310D\"\210\337H \235\203\322 \340!)\202'\341 \342\321\326\343\344\331\332 \"\356\"\346\347%%\262*\262\262\207" [cl-struct-package-desc-tags inhibit-changing-match-data package-check-signature package-unsigned-archives save-silently 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 "\\`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 (error) url-insert-file-contents 6 package-unpack buffer-string package--check-signature 256 "\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\301c\210\317\320\300!\210+\210\211\205 \321\322\323\324#\325\326\327\300!\330P \"\325\331%\210\332\300!\f>\204D \333\334\335\300D\"\210\300\211\336\317I\266\332\300!\f>\204Z \333\334\335\300D\"\210\300\337H
\236A\211\205} \332@!\f>\204u \333\334\335@D\"\210\211@\211\336\317I\262\262\207" [save-silently package-user-dir cl-struct-package-desc-tags package-alist generate-new-buffer #1# make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t package-unpack write-region mapconcat epg-signature-to-string #2="\n" nil expand-file-name package-desc-full-name #3=".signed" silent type-of signal wrong-type-argument package-desc 9 1] 8 "\n\n(fn &optional GOOD-SIGS)" [buffer-name kill-buffer] (error) expand-file-name file-name-absolute-p "Location %s is not a url nor an absolute file name" insert-file-contents [save-silently package-user-dir cl-struct-package-desc-tags package-alist generate-new-buffer #1# make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t package-unpack write-region mapconcat epg-signature-to-string #2# nil expand-file-name package-desc-full-name #3# silent type-of signal wrong-type-argument package-desc 9 1]] 19 (#$ . 86367)])
#@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 "\204 \303\304!\210\305! >\203+ \305! >\204 \306\307\310D\"\210\311H\211;\205* \312!\207\n\236A\211\205K \313\305@! >\204F \306\307\310@D\"\210@\314H\"\262\206T \315\"\207" [package--initialized cl-struct-package-desc-tags package-alist error "package.el is not yet initialized!" type-of signal wrong-type-argument package-desc 7 file-exists-p version-list-<= 2 package-built-in-p] 9 (#$ . 89032)])
#@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 (#$ . 89746)])
#@245 Ensure that the user's init file has `package-initialize'.
`package-initialize' doesn't have to be called, as long as it is
present somewhere in the file, even as a comment. If it is not,
add a call to it along with some explanatory comments.
(defalias 'package--ensure-init-file #[0 ";\203\305 \204\305 \306!\203\305 \307!\203\305 \310!\311\2031 rq\210\212\214~\210eb\210\312\313\311\314#+\202S \315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216\326!\210eb\210\312\313\311\314#*\262\211\204\303 r\206d \327\211\330!*q\210\203t \331 \262\332\333!!\210\212\214~\210eb\210\334\327 \335!)\262\203\221 m\204\221 \336y\210\202{ \337\340\341\342\343\344\261\210\345\327 \335!)\262\204\251 \337c\210\327 \346 \210)\203\276 \332!\210\347\311!\210\202\302 \350p!\210+\266\327\211\207" [user-init-file package--init-file-ensured find-file-visit-truename delay-mode-hooks inhibit-changing-match-data file-precious-flag file-readable-p file-writable-p find-buffer-visiting nil re-search-forward "(package-initialize\\_>" noerror generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents t find-file-noselect buffer-file-name set-visited-file-name file-chase-links "[[:blank:]]*\\(;\\|$\\)" looking-at 1 "\n" ";; Added by Package.el. This must come before configurations of\n" ";; installed packages. Don't delete this line. If you don't want it,\n" ";; just comment it out by adding a semicolon to the start of the line.\n" ";; You may delete these explanatory comments.\n" "(package-initialize)\n" "$" save-buffer set-buffer-modified-p kill-buffer] 9 (#$ . 90128)])
#@409 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'. Interactively, prompt for its name.
If called interactively or if DONT-SELECT nil, add PKG 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\203l \320!\202p \321\322\"\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 message "`%s' is already installed"] 9 (#$ . 91809) (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 \211\302\225\303O\262\3041 \305!\205 \2110\207\210\303\207" [string-match "\\`[ ]*[$]Revision:[ ]+" 0 nil (error) version-to-list] 4 (#$ . 93207)])
#@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 (#$ . 93578) nil])
#@114 Install a package from a 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 (#$ . 94622) "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 "%s packages will be installed:\n%s, proceed?" mapconcat symbol-name ", " mapc #[257 "\300\301\"\207" [package-install dont-select] 4 "\n\n(fn P)"] 0 "%s packages are not available (the rest already installed), maybe you need to `M-x package-refresh-contents'" "All your packages are already installed"] 11 (#$ . 95216) 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 (#$ . 96093)])
#@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\351 \204\200 \325!\211\262\203\200 \322\326\324!\304!>\204y \305\306\307D\"\210\311H#\202\351 \327\330\331\"\210\332\333\"\210\334\211\203\315 \211@\335\304 !>\204\243 \305\306\307 D\"\210\336H!\337\230\203\262 \202\270 \340G[OP\341!\203\304 \342!\210\266A\266\202\202\213 \210 \236\343\"\210\211A\204\341 \344 \"\210\345\346\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" 0 file-exists-p delete-file delete delq message "Package `%s' deleted."] 13 (#$ . 96377) (byte-code "\204 \303\304!\210\305\306\307\310\305\311\312\313\305\314 \"\"\"\"\"\315\316\305\317\"\310\304$\320\"A\n\310E\207" [package--initialized package-alist current-prefix-arg package-initialize t 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 completing-read "Delete package: " car 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 (#$ . 98533) (byte-code "\301\302\303\304\305\304\306\"\"\"!C\207" [package-alist intern completing-read "Reinstall package: " mapcar symbol-name car] 8)])
#@165 Remove packages that are no more 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 "%s packages will be deleted:\n%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 (#$ . 99016) 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 (#$ . 99717) (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 !&\323!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: " 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 (#$ . 101183)])
(byte-code "\300\301\302\303#\300\207" [function-put package--print-help-section lisp-indent-function 1] 4)
#@12
(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\337\230\203\340\262\203 \341\262\342!\210\343\344!\210\343\345H\346>\2032\347\2023\350!\210\343!\210\343\351!\210\352\353!\210\203S\354\355!\356\357#\360\261\210\202N
\203\355\354\361\235\203c\362\202f\355!\356\357#c\210\363\364!c\210\365\366\367\f\"\203\202\370\f\"\202\204!!\371\372#\266\373!\203\254\373\f\"\204\254\363\374!\354\375\356\357#\261\210\202\261\363\376!c\210\211\203\273\360c\210\202\276\377c\210\310!>\203N \204N\201D \235\203N\201E c\210\201F \201G \201H \201I \314%\210\202N\203\354\201J \356
#\201K \261\210;\203\201L \360\261\210\202N\201M c\210\202N\203G\355!c\210\201N \201O \201P \f\"\261\210\201Q c\210\201F \201R \201H \201S \314%\210\202N\355!\360\261\210\201T c\210
\203] \203k\352\201U \206i\201V \"\210\n\203|\352\201W \201X
!\"\210\203\211\352\201Y \"\210\203\253\352\201Z \310!>\204\243\312\313\314D\"\210\201[ H\"\210\205\305\310!>\204\301\312\313\314D\"\210\317H\262
\f\203N\352\201\\ !\210\201]
\211\203G\211@\211@A@\201O \201^ \201_ !\201X !#<\203\236\203\201` \202 \201a \203\321\262\2023\201b \323iGG$\201c Y\203.\201d c\210\2023\201e c\210\371\201f #\210\211c\266A\266\202\202\327\210\201T c\266 \203\271\352\201g !\210\201] \f\211\203\262\211@\201h !\203s\321\262\202\220\201b \323iG#\201c Y\203\213\201d c\210\202\220\201e c\210\371\201f \310!>\204\245\312\313\314D\"\210\315H#\266A\266\202\202^\210\201T c\266\203 \201i \321\201] @\201j #)\266\203\203\326\201k A\"A\211\203\201l \321\201] @\201j #)\266\203\203\201m \201n \201o #\262 \210\352\201p !\210\371\201q \n#\210\201T c\210\203P\352\201r !\210\211\203J\211@\201F \201s \201H \201t %\210\201E c\210A\266\202\202(\210\201T c\210\201u \236A \236A\n\236\211\205i\311!C\262#\201v \"\211\203\211\352\201w \201x \201y \201e #\360#\210\266\201T c\210\203\354\201z \201O \201{ \"BC#`\201| !\206\261\201a c\210\212\211b\210\201} \201~ \321\201] #\203\315\201 \201a !\210\201} \201\200 \321\201] #\205\346\201 \201a !\210\202\315)\266\202\202=\201O \201\201 \"\201\202 \f\"\321C\310!>\204\312\313\314D\"\210\324H\203+\201\203 !\201\204 \321\201] @\201j #)\266\203\203\241\211P\201\205 \201\206 !r\211q\210\201\207 \345\201\210 \201\211 \201\212 !\201\213 \"\323$\216\201\214 1i\201\215 !\210\201] 0\202l\321\262\205\231\212db\210n\204|\201\216 c\210)\201\217 \321\211\201\202 \f\"\321\201\220 %\210\201\221 \240\210\201] *\262\262\202 \201\205 \201\206 !r\211q\210\201\207 \345\201\210 \201\211 \201\212 !\201\222 \"\323$\216\201\223 1\355\201\202 \"\201\224 !\204\337\201\225 \201\226 \"\210\201\227 !\266\201] 0\202\360\321\262\205 \212db\210n\204 \201\216 c\210)\201\217 \321\211\201\202 \f\"\321\201\220 %\210\201\221 \240\210\201] *\262\262\203+\211\242c\202;\201\230 !\205;\201\227 !\210db\266\203\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 "avail-obso" "available obsolete" "incompatible" prin1 princ " is " 0 (97 101 105 111 117) "an " "a " " package.\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)." inhibit-changing-match-data package-archives load-path load-file-rep-suffixes ("unsigned" "installed") " " package-make-button "Delete" action package-delete-button-action "Incompatible" " because it depends on " "Emacs " "uninstallable packages." " from " format "%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 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 "^\\(;+ ?\\)" "%s-readme.txt" expand-file-name package-archive-base "\\`https?:" generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] (error) url-insert-file-contents 10 write-region silent buffer-string [buffer-name kill-buffer] (error) file-name-absolute-p error "Location %s is not a url nor an absolute file name" insert-file-contents file-readable-p] 29 (#$ . 101735)])
#@15
(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 (#$ . 108127)])
#@15
(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 (#$ . 108426)])
#@15
(fn BUTTON)
(defalias 'package-keyword-button-action #[257 "\300\301\"\302\303C\"\207" [button-get package-keyword package-show-package-list t] 5 (#$ . 108717)])
#@25
(fn TEXT &rest PROPS)
(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 (#$ . 108889)])
#@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\305#\210\303\335\336#\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" package-menu-refresh "f" package-menu-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) (#$ . 109225))
#@31 Menu for `package-menu-mode'.
(defvar package-menu-mode-menu nil (#$ . 110085))
(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" package-menu-refresh :help "Redownload the ELPA archive" :active (not package--downloads-in-progress)] ["Redisplay buffer" revert-buffer :help "Update the buffer with current list of packages"] ["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 Package List" package-menu-filter :help "Filter package selection (q to go back)"] ["Hide by Regexp" package-menu-hide-package :help "Permanently 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 (#$ . 111875))
#@50 Mode-line status of ongoing package transaction.
(defvar package-menu--transaction-status nil (#$ . 112011))
(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\337-A\205m \340\341\"BBB\".\342/\343\344B0\345\346\347\344\307$\210\350 \210)\351\352!\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 nil) ("Status" 10 package-menu--status-predicate) append (("Archive" 10 package-menu--archive-predicate)) (("Description" 0 nil)) 2 "Status" nil add-hook tabulated-list-revert-hook package-menu--refresh tabulated-list-init-header 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] 8 (#$ . 113365) 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 (#$ . 115110)]))
#@74 If non-nil include packages that don't have a version in `list-package'.
(defvar package-list-unversioned nil (#$ . 115440))
#@78 If non-nil, mention in the list which packages were installed w/o signature.
(defvar package-list-unsigned nil (#$ . 115571))
#@29 `emacs-version', as a list.
(defvar package--emacs-version-list (version-to-list emacs-version) (#$ . 115703))
#@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 (#$ . 115821)])
#@17
(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 (#$ . 116921)])
#@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 (#$ . 118132))
#@51 Toggle visibility of obsolete available packages.
(defalias 'package-menu-toggle-hiding #[0 "\301\302!\204\n \303\304!\210?\305\306\203 \307\202 \310\"\210\311\312\313\"\207" [package-menu--hide-packages derived-mode-p package-menu-mode user-error "The current buffer is not a Package Menu" message "%s packages" "Hiding obsolete or unwanted" "Displaying all" revert-buffer nil no-confirm] 3 (#$ . 118371) 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\300 \204 \207\305@! >\204 \306\307\310@D\"\210\211@\311H\n\236A@\211\203L \305! >\2045 \306\307\310D\"\210\211\312H\313\314\315\316\317\320!\321\"\322\323%\"\262\262 \204T \202\220 \324=\203\211 \f\325\203\202 \211A\262\242\326!\211W\203u \325\262\202} B\262\211\262\266\202\\ \211\237\266\202\202\220 \205\220 @C\204\230 \211\202\274 \305! >\204\247 \306\307\310D\"\210\312H\313\314\315\316\317\320!\327\"\322\323%\"\262\262\262\207" [package-menu--hide-packages cl-struct-package-desc-tags package-alist package-menu-hide-low-priority most-negative-fixnum 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 (#$ . 118795)])
(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 (#$ . 120693)])
#@30 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 (#$ . 121981)])
#@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 (#$ . 122277)])
#@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 (#$ . 123239)])
#@315 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 "\302\"\210\303H\211\203 \304\305\306#\307\310Q\262\202 \311\240\266\211\203, \312 \313\314#\210\2022 \312 \313\315#\210\316 \210\317!\207" [tabulated-list-format package-menu-mode-map package-menu--refresh 0 mapconcat identity "," "Package[" "]" "Package" define-key "q" package-show-package-list quit-window tabulated-list-init-header tabulated-list-print] 9 (#$ . 123761)])
#@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 (#$ . 124510)])
(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 (#$ . 126814)])
#@55 `package-archive-contents' before the latest refresh.
(defvar package-menu--old-archive-contents nil (#$ . 128333))
#@154 Download the Emacs Lisp package archive.
This fetches the contents of each archive specified in
`package-archives', and then refreshes the package menu.
(defalias 'package-menu-refresh #[0 "\304\305!\204\n \306\307!\210\310\311 !\207" [package-archive-contents package-menu--old-archive-contents package-menu--new-package-list package-menu-async derived-mode-p package-menu-mode user-error "The current buffer is not a Package Menu" nil package-refresh-contents] 2 (#$ . 128456) nil])
#@97 Hide a package under point.
If optional arg BUTTON is non-nil, describe its associated package.
(defalias 'package-menu-hide-package #[0 "\303\304!\205+ \305\306\307\310\311\206 `\312\"\262\313!>\204# \314\315\316D\"\210\211\317H\262!!P\320\321\"\322\323\"\210\211 B\324\301 \"\210\325 \210\326\327\330\331\332\333!\334\"\335\336%\n\"\337\340\341!G\"\262\207" [cl-struct-package-desc-tags package-hidden-regexps package-archive-contents 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 substitute-command-keys "Hiding %s packages, type `\\[package-menu-toggle-hiding]' to toggle or `\\[customize-variable] RET package-hidden-regexps' to customize it"] 9 (#$ . 128950) 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 (#$ . 129988) nil])
#@76 Mark a package for deletion and move to the next line.
(fn &optional NUM)
(defalias 'package-menu-mark-delete #[256 "\300 \301\235\203\f \302\303\304\"\207\305y\207" [package-menu-get-status ("installed" "dependency" "obsolete" "unsigned") tabulated-list-put-tag "D" t nil] 4 (#$ . 130388) "p"])
#@80 Mark a package for installation and move to the next line.
(fn &optional NUM)
(defalias 'package-menu-mark-install #[256 "\300 \301\235\203\f \302\303\304\"\207\305y\207" [package-menu-get-status ("available" "avail-obso" "new" "dependency") tabulated-list-put-tag "I" t nil] 4 (#$ . 130691) "p"])
#@77 Clear any marks on a package and move to the next line.
(fn &optional NUM)
(defalias 'package-menu-mark-unmark #[256 "\300\301\302\"\207" [tabulated-list-put-tag " " t] 4 (#$ . 130996) "p"])
#@55 Back up one line and clear any marks on that package.
(defalias 'package-menu-backup-unmark #[0 "\300y\210\301\302!\207" [-1 tabulated-list-put-tag " "] 2 (#$ . 131194) nil])
#@42 Mark all obsolete packages for deletion.
(defalias 'package-menu-mark-obsolete-for-deletion #[0 "\212eb\210m?\205 \300 \301\232\203 \302\303\304\"\210\202 \305y\210\202 )\207" [package-menu-get-status "obsolete" tabulated-list-put-tag "D" t 1] 3 (#$ . 131375) nil])
(defvar package--quick-help-keys '(("install," "delete," "unmark," ("execute" . 1)) ("next," "previous") ("Hide-package," "(-toggle-hidden") ("refresh-contents," "g-redisplay," "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\211T\304$\210\207\301\305B!\207" [mapconcat package--prettify-quick-help-key " " add-text-properties (face (bold font-lock-warning-face)) 0] 8 (#$ . 131848)])
#@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\302\303\304#!\207" [package--quick-help-keys message mapconcat package--prettify-quick-help-key "\n"] 5 (#$ . 132180) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias package-menu-view-commentary package-menu-describe-package nil make-obsolete "24.1"] 4)
(defalias 'package-menu-get-status #[0 "\301\302\206 `\303\"\262\211\205 \304\"\211\203 \211A@\305H\202 \306\207" [tabulated-list-entries nil get-text-property tabulated-list-id assoc 2 ""] 4])
#@166 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 (#$ . 132825)])
#@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 (#$ . 133120)])
(defalias 'package-menu--find-upgrades #[0 "\302\211\211\211\2036 \211@\211@A@\303H\211\304\235\203 B\262\202- \211\305\235\203- \306\"\262\266A\266\202\202 \210\211\203t \211@\307! >\204M \310\311\312D\"\210\211\313H\211\236A@\211\203k \314\315!\315!\"\203k BB\262\266A\266\202\2028 \210\207" [tabulated-list-entries cl-struct-package-desc-tags nil 2 ("installed" "dependency" "unsigned") ("available" "new") package--append-to-alist type-of signal wrong-type-argument package-desc 1 version-list-< package-desc-priority-version] 11])
#@59 Whether mark-upgrades is waiting for a refresh to finish.
(defvar package-menu--mark-upgrades-pending nil (#$ . 134128))
#@99 Mark all upgradable packages in the Package Menu.
Implementation of `package-menu-mark-upgrades'.
(defalias 'package-menu--mark-upgrades-1 #[0 "\302\303!\204\n \304\305!\210\306\307 \211\204 \310\311!\202r ~\210\212eb\210m\204` \306\312\206) `\313\"\262\314! >\204< \315\316\317D\"\210\211\320H\236A\211\204L \320y\210\202[ \232\203X \321 \210\202[ \322 \210\266\202 )\310\323GG\320U\203p \324\202q \325#\207" [package-menu--mark-upgrades-pending cl-struct-package-desc-tags derived-mode-p package-menu-mode error "The current buffer is not a Package Menu" 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 "%d package%s marked for upgrading." "" "s"] 6 (#$ . 134255)])
#@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 "\204 \302 \207\303\304\305!\207" [package--downloads-in-progress package-menu--mark-upgrades-pending package-menu--mark-upgrades-1 t message "Waiting for refresh to finish..."] 2 (#$ . 135098) 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 "\211\204 \300\207\211A\203 \301\302G\303\304\305##\207\306\307\304@!\"\207" ["" format "these %d packages (%s)" mapconcat package-desc-full-name ", " format-message "package `%s'"] 8 (#$ . 135764)])
#@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 \301\302!\205 \205 \203 \303\202 \304\205 \305\302!\2053 \2042 \2053 \304\2059 \306\302 !\307\260 !\207" [y-or-n-p "Delete " package-menu--list-to-prompt "; " "; and " "Install " "Upgrade " "? "] 13 (#$ . 136251)])
#@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 (#$ . 136737)])
#@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\205f \211@\3161U \317\306\320#)0\202^ \321\322\323!#\262\210A\266\202\202? \262)\207" [package-menu--transaction-status package-menu-async inhibit-message 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 (#$ . 137352)])
#@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 (#$ . 138088)])
#@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\302!\204\n \303\304!\210\305\211\211\211\212eb\210m\204F \305f\262\306=\204@ \305\307\206' `\310\"\262\262\311\267\202@ \211B\262\202@ \211B\262\305y\210\202 )\204S \204S \312\313!\210\314\"\315\236A\316\236A\317\236A\204p \320#\205\336 \321\205z \322\323G\"\205\203 \205\203 \324\205\215 \322\325G\"\205\233 \204\232 \205\233 \324\205\245 \322\326G\"\327\260\330\331\332\333#\334\"\210\335\"\210\336 \"\210\205\334 \337 \211\203\322 \330\340G\341\342!#\202\332 \330\331\332\343#\344\"\262\262\266\203\262\207" [package-selected-packages derived-mode-p package-menu-mode error "The current buffer is not in 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 51 73 59)) user-error "No operations specified" package-menu--partition-transaction delete install upgrade package-menu--prompt-transaction-p "Package menu: Operation %s [" format "Delet__ %s" "; " "Install__ %s" "Upgrad__ %s" "]" message replace-regexp-in-string "__" "ing" "started" package--update-selected-packages package-menu--perform-transaction package--removable-packages "Package menu: Operation finished. %d packages %s" substitute-command-keys "are no longer needed, type `\\[package-autoremove]' to remove them" "ed" "finished"] 17 (#$ . 138834) nil])
#@12
(fn A B)
(defalias 'package-menu--version-predicate #[514 "A@\300H\206 \301A@\300H\206 \302\303\"\203 \304\"\202$ \305\"\207" [1 (0) (0) version-list-= package-menu--name-predicate version-list-<] 7 (#$ . 140496)])
#@12
(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 (#$ . 140730)])
#@12
(fn A B)
(defalias 'package-menu--description-predicate #[514 "A@\300HA@\300H\230\203 \301\"\202 \231\207" [3 package-menu--name-predicate] 7 (#$ . 141688)])
#@12
(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 (#$ . 141864)])
#@12
(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\231\207" [cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 6 ""] 7 (#$ . 142144)])
#@116 Decide which packages are new in `package-archives-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 (#$ . 142429)])
#@41 Notify the user of upgradable packages.
(defalias 'package-menu--find-and-notify-upgrades #[0 "\300 \211\205& \301\302GG\303U\203 \304\202 \305\306\307!G\303U\203$ \310\202% \311%\207" [package-menu--find-upgrades message "%d package%s can be upgraded; type `%s' to mark %s for upgrading." 1 "" "s" substitute-command-keys "\\[package-menu-mark-upgrades]" "it" "them"] 8 (#$ . 142805)])
#@372 If there's a *Packages* buffer, revert it 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 (#$ . 143204)])
#@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 (#$ . 143946)])
#@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 "\302\303\304\305#\210\204 \306\305!\210\307\310\311\"\210\307\310\312\313#\210\314\315!r\211q\210\316 \210\204* \317 \210 \2033 \320\304\305\"\210)\321!\207" [package--initialized 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*" package-menu-mode package-menu-refresh package-menu--generate switch-to-buffer] 5 (#$ . 144551) "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 (#$ . 145441) nil])
#@337 Filter the *Packages* buffer.
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.
To restore the full package list, type `q'.
(fn KEYWORD)
(defalias 'package-menu-filter #[257 "\300\301;\203\f C\202
\"\207" [package-show-package-list t] 4 (#$ . 146088) (byte-code "\300\301\302 \"C\207" [completing-read-multiple "Keywords (comma separated): " package-all-keywords] 3)])
#@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 (#$ . 146667) nil])
(provide 'package)
|