mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\303\304!\204\305\304\306\"\210\300\207" [require cl-lib package fboundp define-error defalias #[770 "\211\204\300\262\211:\203\301\302\303\304\"\"\202\211\305NB\306\305\307\310B!!#\210\2052\306\311#\207" [error apply append mapcar #[257 "\211\300N\206 \301\302\"B\207" [error-conditions error "Unknown signal `%s'"] 5 "\n\n(fn PARENT)"] error-conditions put delete-dups copy-sequence error-message] 11 "Define NAME as a new error signal.\nMESSAGE is a string that will be output to the echo area if such an error\nis signaled without being caught by a `condition-case'.\nPARENT is either a signal or a list of signals from which it inherits.\nDefaults to `error'.\n\n(fn NAME MESSAGE &optional PARENT)"]] 3)
16 #@147 Whether PACKAGE is a `package-desc' object.
17
18 Like `package-desc-p', but return nil, if `package-desc-p' is not
19 defined as function.
20
21 (fn PACKAGE)
22 (defalias 'epl--package-desc-p #[257 "\301\302!\205\303!>\205\304\207" [cl-struct-package-desc-tags fboundp package-desc-p type-of t] 3 (#$ . 1179)])
23 (byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\305#\210\304\311\312\307#\207" [put epl--package-desc-p byte-optimizer byte-compile-inline-expand define-error epl-error "EPL error" epl-invalid-package "Invalid EPL package" epl-invalid-package-file "Invalid EPL package file"] 4)
24 #@32 Get the directory of packages.
25 (defalias 'epl-package-dir #[0 "\207" [package-user-dir] 1 (#$ . 1782)])
26 #@40 Get the default directory of packages.
27 (defalias 'epl-default-package-dir #[0 "\300\301\302N@!\207" [eval package-user-dir standard-value] 3 (#$ . 1893)])
28 #@64 Change the directory of packages to DIRECTORY.
29
30 (fn DIRECTORY)
31 (defalias 'epl-change-package-dir #[257 "\211\301 \207" [package-user-dir epl-initialize] 2 (#$ . 2054)])
32 #@41 Remember the load path for `epl-reset'.
33 (defvar epl--load-path-before-initialize nil (#$ . 2230))
34 #@126 Load Emacs Lisp packages and activate them.
35
36 With NO-ACTIVATE non-nil, do not activate packages.
37
38 (fn &optional NO-ACTIVATE)
39 (defalias 'epl-initialize #[256 "\302!\207" [load-path epl--load-path-before-initialize package-initialize] 3 (#$ . 2335)])
40 (defalias 'epl-refresh 'package-refresh-contents)
41 #@57 Add a package archive with NAME and URL.
42
43 (fn NAME URL)
44 (defalias 'epl-add-archive #[514 "\300\301B\"\207" [add-to-list package-archives] 6 (#$ . 2643)])
45 #@142 Reset the package system.
46
47 Clear the list of installed and available packages, the list of
48 package archives and reset the package directory.
49 (defalias 'epl-reset #[0 "\306\211\306 \307\305!\203\306\310\311 !\207" [package-alist package-archives package-archive-contents epl--load-path-before-initialize load-path package-obsolete-alist nil boundp epl-change-package-dir epl-default-package-dir] 3 (#$ . 2806)])
50 #@74 compiler-macro for inlining `epl-requirement-p'.
51
52 (fn CL-WHOLE-ARG CL-X)
53 (defalias 'epl-requirement-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-p (and (memq (type-of cl-x) cl-struct-epl-requirement-tags) t)) nil] 9 (#$ . 3230)])
54 (put 'epl-requirement-p 'compiler-macro 'epl-requirement-p--cmacro)
55 #@13 
56
57 (fn CL-X)
58 (defalias 'epl-requirement-p #[257 "\301!>\205    \302\207" [cl-struct-epl-requirement-tags type-of t] 3 (#$ . 3594)])
59 (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-requirement-p side-effect-free error-free put epl-requirement cl-deftype-satisfies] 5)
60 #@77 compiler-macro for inlining `epl-requirement-name'.
61
62 (fn CL-WHOLE-ARG CL-X)
63 (defalias 'epl-requirement-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-name (or (epl-requirement-p cl-x) (signal 'wrong-type-argument (list 'epl-requirement cl-x))) (aref cl-x 1)) nil] 9 (#$ . 3888)])
64 (put 'epl-requirement-name 'compiler-macro 'epl-requirement-name--cmacro)
65 #@105 Access slot "name" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X.
66
67 (fn CL-X)
68 (defalias 'epl-requirement-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epl-requirement-tags type-of signal wrong-type-argument epl-requirement 1] 5 (#$ . 4310)])
69 (byte-code "\300\301\302\303#\300\207" [function-put epl-requirement-name side-effect-free t] 4)
70 #@80 compiler-macro for inlining `epl-requirement-version'.
71
72 (fn CL-WHOLE-ARG CL-X)
73 (defalias 'epl-requirement-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-requirement-version (or (epl-requirement-p cl-x) (signal 'wrong-type-argument (list 'epl-requirement cl-x))) (aref cl-x 2)) nil] 9 (#$ . 4707)])
74 (put 'epl-requirement-version 'compiler-macro 'epl-requirement-version--cmacro)
75 #@108 Access slot "version" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X.
76
77 (fn CL-X)
78 (defalias 'epl-requirement-version #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epl-requirement-tags type-of signal wrong-type-argument epl-requirement 2] 5 (#$ . 5144)])
79 (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-requirement-version side-effect-free t defalias copy-epl-requirement copy-sequence] 4)
80 #@98 compiler-macro for inlining `epl-requirement-create'.
81
82 (fn CL-WHOLE &cl-quote &key NAME VERSION)
83 (defalias 'epl-requirement-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :version (:name :version :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :version)" cl--defsubst-expand (name version) (cl-block epl-requirement-create (record 'epl-requirement name version))] 12 (#$ . 5604)])
84 (put 'epl-requirement-create 'compiler-macro 'epl-requirement-create--cmacro)
85 #@76 Constructor for objects of type `epl-requirement'.
86
87 (fn &key NAME VERSION)
88 (defalias 'epl-requirement-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :name :version (:name :version :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :version)" record epl-requirement] 7 (#$ . 6261)])
89 (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&    \207" [function-put epl-requirement-create side-effect-free t cl-struct-define epl-requirement "Structure describing a requirement.\n\nSlots:\n\n`name' The name of the required package, as symbol.\n\n`version' The version of the required package, as version list." cl-structure-object record nil ((cl-tag-slot) (name) (version)) cl-struct-epl-requirement-tags] 11)
90 #@60 The version of a REQUIREMENT, as string.
91
92 (fn REQUIREMENT)
93 (defalias 'epl-requirement-version-string #[257 "\301\302!>\204\303\304\305D\"\210\306H!\207" [cl-struct-epl-requirement-tags package-version-join type-of signal wrong-type-argument epl-requirement 2] 6 (#$ . 7143)])
94 #@70 compiler-macro for inlining `epl-package-p'.
95
96 (fn CL-WHOLE-ARG CL-X)
97 (defalias 'epl-package-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-p (and (memq (type-of cl-x) cl-struct-epl-package-tags) t)) nil] 9 (#$ . 7431)])
98 (put 'epl-package-p 'compiler-macro 'epl-package-p--cmacro)
99 #@13 
100
101 (fn CL-X)
102 (defalias 'epl-package-p #[257 "\301!>\205    \302\207" [cl-struct-epl-package-tags type-of t] 3 (#$ . 7771)])
103 (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-package-p side-effect-free error-free put epl-package cl-deftype-satisfies] 5)
104 #@73 compiler-macro for inlining `epl-package-name'.
105
106 (fn CL-WHOLE-ARG CL-X)
107 (defalias 'epl-package-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-name (or (epl-package-p cl-x) (signal 'wrong-type-argument (list 'epl-package cl-x))) (aref cl-x 1)) nil] 9 (#$ . 8049)])
108 (put 'epl-package-name 'compiler-macro 'epl-package-name--cmacro)
109 #@97 Access slot "name" of `(epl-package (:constructor epl-package-create))' struct CL-X.
110
111 (fn CL-X)
112 (defalias 'epl-package-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epl-package-tags type-of signal wrong-type-argument epl-package 1] 5 (#$ . 8442)])
113 (byte-code "\300\301\302\303#\300\207" [function-put epl-package-name side-effect-free t] 4)
114 #@80 compiler-macro for inlining `epl-package-description'.
115
116 (fn CL-WHOLE-ARG CL-X)
117 (defalias 'epl-package-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-package-description (or (epl-package-p cl-x) (signal 'wrong-type-argument (list 'epl-package cl-x))) (aref cl-x 2)) nil] 9 (#$ . 8815)])
118 (put 'epl-package-description 'compiler-macro 'epl-package-description--cmacro)
119 #@104 Access slot "description" of `(epl-package (:constructor epl-package-create))' struct CL-X.
120
121 (fn CL-X)
122 (defalias 'epl-package-description #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epl-package-tags type-of signal wrong-type-argument epl-package 2] 5 (#$ . 9244)])
123 (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-package-description side-effect-free t defalias copy-epl-package copy-sequence] 4)
124 #@98 compiler-macro for inlining `epl-package-create'.
125
126 (fn CL-WHOLE &cl-quote &key NAME DESCRIPTION)
127 (defalias 'epl-package-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :description (:name :description :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description)" cl--defsubst-expand (name description) (cl-block epl-package-create (record 'epl-package name description))] 12 (#$ . 9688)])
128 (put 'epl-package-create 'compiler-macro 'epl-package-create--cmacro)
129 #@76 Constructor for objects of type `epl-package'.
130
131 (fn &key NAME DESCRIPTION)
132 (defalias 'epl-package-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :name :description (:name :description :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description)" record epl-package] 7 (#$ . 10345)])
133 (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&    \207" [function-put epl-package-create side-effect-free t cl-struct-define epl-package "Structure representing a package.\n\nSlots:\n\n`name' The package name, as symbol.\n\n`description' The package description.\n\nThe format package description varies between package.el\nvariants.  For `package-desc' variants, it is simply the\ncorresponding `package-desc' object.  For legacy variants, it is\na vector `[VERSION REQS DOCSTRING]'.\n\nDo not access `description' directly, but instead use the\n`epl-package' accessors." cl-structure-object record nil ((cl-tag-slot) (name) (description)) cl-struct-epl-package-tags] 11)
134 #@218 Cast VAR to a package description in BODY.
135
136 VAR is a symbol, bound to an `epl-package' object.  This macro
137 casts this object to the `description' object, and binds the
138 description to VAR in BODY.
139
140 (fn VAR &rest BODY)
141 (defalias 'epl-package-as-description '(macro . #[385 "9\204\f\300\301\302D\"\210\303\304D\305\306DDCBB\300\307\310\311EEF\207" [signal wrong-type-argument symbolp if epl-package-p let epl-package-description 'wrong-type-argument list #'epl-package-p] 10 (#$ . 11491)]))
142 (byte-code "\300\301\302\303#\300\207" [function-put epl-package-as-description lisp-indent-function 1] 4)
143 #@71 Whether the description of PACKAGE is a `package-desc'.
144
145 (fn PACKAGE)
146 (defalias 'epl-package--package-desc-p #[257 "\302!>\204\303\304\305D\"\210\211\306H\307\310!\205!\302!    >\205!\311\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t] 5 (#$ . 12102)])
147 (put 'epl-package--package-desc-p 'byte-optimizer 'byte-compile-inline-expand)
148 #@60 Get the version of PACKAGE, as version list.
149
150 (fn PACKAGE)
151 (defalias 'epl-package-version #[257 "\302!>\203T\302!>\204\303\304\305D\"\210\211\306H\307\310!\2035\302!    >\204/\303\304\311D\"\210\211\306H\202S\307\312!\203O\312!\211<\203G\211\202J\313!\262\202S\314\315\"\207\303\304\316D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 fboundp package-desc-version package-desc package-desc-vers version-to-list error "Cannot get version from %S" epl-package-p] 6 (#$ . 12533)])
152 #@58 Get the version from a PACKAGE, as string.
153
154 (fn PACKAGE)
155 (defalias 'epl-package-version-string #[257 "\300\301!!\207" [package-version-join epl-package-version] 4 (#$ . 13101)])
156 #@54 Get the summary of PACKAGE, as string.
157
158 (fn PACKAGE)
159 (defalias 'epl-package-summary #[257 "\302!>\203F\302!>\204\303\304\305D\"\210\211\306H\307\310!\2035\302!    >\204/\303\304\311D\"\210\211\312H\202E\307\313!\203A\313!\202E\314\315\"\207\303\304\316D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 fboundp package-desc-summary package-desc 3 package-desc-doc error "Cannot get summary from %S" epl-package-p] 6 (#$ . 13286)])
160 #@65 Create a `epl-requirement' from a `package-desc' REQ.
161
162 (fn REQ)
163 (defalias 'epl-requirement--from-req #[257 "\211A@\300\301@\302<\203\202\303!$\207" [epl-requirement-create :name :version version-to-list] 8 (#$ . 13801)])
164 (put 'epl-requirement--from-req 'byte-optimizer 'byte-compile-inline-expand)
165 #@107 Get the requirements of PACKAGE.
166
167 The requirements are a list of `epl-requirement' objects.
168
169 (fn PACKAGE)
170 (defalias 'epl-package-requirements #[257 "\302!>\2030\302!>\204\303\304\305D\"\210\211\306H\307\310\302!    >\204+\303\304\311D\"\210\312H\"\207\303\304\313D\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags type-of signal wrong-type-argument epl-package 2 mapcar epl-requirement--from-req package-desc 4 epl-package-p] 8 (#$ . 14114)])
171 #@163 Get the directory PACKAGE is installed to.
172
173 Return the absolute path of the installation directory of
174 PACKAGE, or nil, if PACKAGE is not installed.
175
176 (fn PACKAGE)
177 (defalias 'epl-package-directory #[257 "\302\303!\203M\304\211!>\204\305\306\307D\"\210\310H!    >\2048\305\306\311\304!>\2042\305\306\307D\"\210\310HD\"\210\304!>\204G\305\306\307D\"\210\211\310H\312H\207\302\313!\203m\313\314\304!>\204d\305\306\307D\"\210\315H!\316!\"\207\317\320\"\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags fboundp package-desc-dir type-of signal wrong-type-argument epl-package 2 package-desc 7 package--dir symbol-name 1 epl-package-version-string error "Cannot get package directory from %S"] 8 (#$ . 14588)])
178 #@67 Determine whether PKG1 is before PKG2 by version.
179
180 (fn PKG1 PKG2)
181 (defalias 'epl-package-->= #[514 "\300\301!\301!\"?\207" [version-list-< epl-package-version] 6 (#$ . 15331)])
182 #@140 Create an `epl-package' from a PACKAGE-DESC.
183
184 PACKAGE-DESC is a `package-desc' object, from recent package.el
185 variants.
186
187 (fn PACKAGE-DESC)
188 (defalias 'epl-package--from-package-desc #[257 "\301\302!\2032\211\301\303!\205\304!>\205\305\262\2032\306\307\304!>\204,\310\311\312D\"\210\313H#\207\310\311\314D\"\207" [cl-struct-package-desc-tags fboundp package-desc-name package-desc-p type-of t record epl-package signal wrong-type-argument package-desc 1 epl--package-desc-p] 7 (#$ . 15517)])
189 #@37 Parse a package.el INFO.
190
191 (fn INFO)
192 (defalias 'epl-package--parse-info #[257 "\211\301\302!\205\303!>\205\304\262\203\305!\207\306\307H!\310\311H\312H\313H#\314\315#\207" [cl-struct-package-desc-tags fboundp package-desc-p type-of t epl-package--from-package-desc intern 0 vector 3 1 2 record epl-package] 7 (#$ . 16029)])
193 #@191 Create an `epl-package' object from BUFFER.
194
195 BUFFER defaults to the current buffer.
196
197 Signal `epl-invalid-package' if the buffer does not contain a
198 valid package file.
199
200 (fn &optional BUFFER)
201 (defalias 'epl-package-from-buffer #[256 "r\211\206pq\210\3001\301 0\202\302\303A\"\262)\304!\207" [(error) package-buffer-info signal epl-invalid-package epl-package--parse-info] 5 (#$ . 16375)])
202 #@124 Parse the package headers the file at FILE-NAME.
203
204 Return an `epl-package' object with the header metadata.
205
206 (fn FILE-NAME)
207 (defalias 'epl-package-from-lisp-file #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\31214\3131'\314p!00\202<0\315\316AB\"\262\202<\315@A\"\262*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents (error) (epl-invalid-package) epl-package-from-buffer signal epl-invalid-package-file] 8 (#$ . 16778)])
208 #@144 Parse the package tarball at FILE-NAME.
209
210 Return a `epl-package' object with the meta data of the tarball
211 package in FILE-NAME.
212
213 (fn FILE-NAME)
214 (defalias 'epl-package-from-tar-file #[257 "\3001 \301\302!!0\207\210\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\210\315 \210\301\302 !*\207" [(wrong-number-of-arguments) epl-package--parse-info package-tar-file-info generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally tar-mode] 8 (#$ . 17342)])
215 #@129 Parse the package at FILE-NAME.
216
217 Return an `epl-package' object with the meta data of the package
218 at FILE-NAME.
219
220 (fn FILE-NAME)
221 (defalias 'epl-package-from-file #[257 "\301\302\303\304#)\266\203\203\305!\207\306!\207" [inhibit-changing-match-data "\\.tar\\'" nil t string-match epl-package-from-tar-file epl-package-from-lisp-file] 8 (#$ . 17909)])
222 #@64 Parse a REQUIREMENT in a package descriptor.
223
224 (fn REQUIREMENT)
225 (defalias 'epl-package--parse-descriptor-requirement #[257 "\211\211G\300U\203\211A\262\242\202\301\302\303GD\"@\304!D\207" [2 signal wrong-number-of-arguments nil version-to-list] 7 (#$ . 18273)])
226 #@171 Load a `epl-package' from a package DESCRIPTOR-FILE.
227
228 A package descriptor is a file defining a new package.  Its name
229 typically ends with -pkg.el.
230
231 (fn DESCRIPTOR-FILE)
232 (defalias 'epl-package-from-descriptor-file #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210eb\210\313p!\211@\314=\204)\315\316\"\210\317\320!\203U\317\321!\203U\322\320A\"\323\324\325!>\204K\326\327\330D\"\210\331H#\262\202\225\211A\211G\332U\203g\211A\262\242\202n\326\333\334GD\"\211A\262\242\211A\262\242@\335\336\337!\340\307\341!\342\343A@\"#$\266\205\262*\207" [cl-struct-package-desc-tags generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents read define-package error "%S is no valid package descriptor" fboundp package-desc-from-define package-desc-name apply record epl-package type-of signal wrong-type-argument package-desc 1 4 wrong-number-of-arguments nil epl-package-create :name intern :description version-to-list mapcar epl-package--parse-descriptor-requirement] 17 (#$ . 18551)])
233 #@260 Determine whether a PACKAGE, of MIN-VERSION or newer, is installed.
234
235 PACKAGE is either a package name as symbol, or a package object.
236 When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object.
237
238 (fn PACKAGE &optional MIN-VERSION)
239 (defalias 'epl-package-installed-p #[513 "\301!>\203\301!>\204\302\303\304D\"\210\305H\202\206-\301!>\205-\306!\307\"\207" [cl-struct-epl-package-tags type-of signal wrong-type-argument epl-package 1 epl-package-version package-installed-p] 7 (#$ . 19673)])
240 #@112 Parse an ENTRY from the list of built-in packages.
241
242 Return the corresponding `epl-package' object.
243
244 (fn ENTRY)
245 (defalias 'epl--parse-built-in-entry #[257 "\300\301!\203\f\302\301!!\207\303\304@A#\207" [fboundp package--from-builtin epl-package--from-package-desc record epl-package] 5 (#$ . 20218)])
246 #@69 Get all built-in packages.
247
248 Return a list of `epl-package' objects.
249 (defalias 'epl-built-in-packages #[0 "\301\302!\210\303\304\"\207" [package--builtins package-built-in-p foo mapcar epl--parse-built-in-entry] 3 (#$ . 20528)])
250 #@187 Find a built-in package with NAME.
251
252 NAME is a package name, as symbol.
253
254 Return the built-in package as `epl-package' object, or nil if
255 there is no built-in package with NAME.
256
257 (fn NAME)
258 (defalias 'epl-find-built-in-package #[257 "\301!\205 \302\236!\207" [package--builtins package-built-in-p epl--parse-built-in-entry] 4 (#$ . 20764)])
259 #@402 Determine whether a PACKAGE is outdated.
260
261 A package is outdated, if there is an available package with a
262 higher version.
263
264 PACKAGE is either a package name as symbol, or a package object.
265 In the former case, test the installed or built-in package with
266 the highest version number, in the later case, test the package
267 object itself.
268
269 Return t, if the package is outdated, or nil otherwise.
270
271 (fn PACKAGE)
272 (defalias 'epl-package-outdated-p #[257 "\301!>\203\f\211\202\302!@\206\303!\304\301!>\204&\305\306\307D\"\210\310H!@\205;\211\205;\311\312!\312!\"\207" [cl-struct-epl-package-tags type-of epl-find-installed-packages epl-find-built-in-package epl-find-available-packages signal wrong-type-argument epl-package 1 version-list-< epl-package-version] 7 (#$ . 21112)])
273 #@345 Parse a list of packages from ENTRY.
274
275 ENTRY is a single entry in a package list, e.g. `package-alist',
276 `package-archive-contents', etc.  Typically it is a cons cell,
277 but the exact format varies between package.el versions.  This
278 function tries to parse all known variants.
279
280 Return a list of `epl-package' objects parsed from ENTRY.
281
282 (fn ENTRY)
283 (defalias 'epl--parse-package-list-entry #[257 "\211A\211<\203\300\301\302\"\303\"\202%\304!\203!\305\306@#C\202%\307\310\"\207" [sort mapcar epl-package--from-package-desc epl-package-->= vectorp record epl-package error "Cannot parse entry %S"] 6 (#$ . 21904)])
284 #@64 Get all installed packages.
285
286 Return a list of package objects.
287 (defalias 'epl-installed-packages #[0 "\301\302\303\304\"\"\207" [package-alist apply append mapcar epl--parse-package-list-entry] 5 (#$ . 22528)])
288 #@56 Filter outdated packages from PACKAGES.
289
290 (fn PACKAGES)
291 (defalias 'epl--filter-outdated-packages #[257 "\300\211\203\211@\301!\203\211B\262A\266\202\202\210\211\237\207" [nil epl-package-outdated-p] 6 (#$ . 22746)])
292 (put 'epl--filter-outdated-packages 'byte-optimizer 'byte-compile-inline-expand)
293 #@95 Get all outdated packages, as in `epl-package-outdated-p'.
294
295 Return a list of package objects.
296 (defalias 'epl-outdated-packages #[0 "\300 \301\211\203\211@\302!\203\211B\262A\266\202\202\210\211\237\207" [epl-installed-packages nil epl-package-outdated-p] 6 (#$ . 23059)])
297 #@114 Find a package by NAME in a package LIST.
298
299 Return a list of corresponding `epl-package' objects.
300
301 (fn NAME LIST)
302 (defalias 'epl--find-package-in-list #[514 "\236\211\205\n\300!\207" [epl--parse-package-list-entry] 5 (#$ . 23349)])
303 (put 'epl--find-package-in-list 'byte-optimizer 'byte-compile-inline-expand)
304 #@224 Find the latest installed package by NAME.
305
306 NAME is a package name, as symbol.
307
308 Return the installed package with the highest version number as
309 `epl-package' object, or nil, if no package with NAME is
310 installed.
311
312 (fn NAME)
313 (defalias 'epl-find-installed-package #[257 "\300!@\207" [epl-find-installed-packages] 3 (#$ . 23668)])
314 (make-obsolete 'epl-find-installed-package 'epl-find-installed-packages "0.7")
315 #@232 Find all installed packages by NAME.
316
317 NAME is a package name, as symbol.
318
319 Return a list of all installed packages with NAME, sorted by
320 version number in descending order.  Return nil, if there are no
321 packages with NAME.
322
323 (fn NAME)
324 (defalias 'epl-find-installed-packages #[257 "\211\236\211\205\f\301!\207" [package-alist epl--parse-package-list-entry] 6 (#$ . 24082)])
325 #@81 Get all packages available for installation.
326
327 Return a list of package objects.
328 (defalias 'epl-available-packages #[0 "\301\302\303\304\"\"\207" [package-archive-contents apply append mapcar epl--parse-package-list-entry] 5 (#$ . 24462)])
329 #@223 Find available packages for NAME.
330
331 NAME is a package name, as symbol.
332
333 Return a list of available packages for NAME, sorted by version
334 number in descending order.  Return nil, if there are no packages
335 for NAME.
336
337 (fn NAME)
338 (defalias 'epl-find-available-packages #[257 "\211\236\211\205\f\301!\207" [package-archive-contents epl--parse-package-list-entry] 6 (#$ . 24709)])
339 #@70 compiler-macro for inlining `epl-upgrade-p'.
340
341 (fn CL-WHOLE-ARG CL-X)
342 (defalias 'epl-upgrade-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-p (and (memq (type-of cl-x) cl-struct-epl-upgrade-tags) t)) nil] 9 (#$ . 25091)])
343 (put 'epl-upgrade-p 'compiler-macro 'epl-upgrade-p--cmacro)
344 #@13 
345
346 (fn CL-X)
347 (defalias 'epl-upgrade-p #[257 "\301!>\205    \302\207" [cl-struct-epl-upgrade-tags type-of t] 3 (#$ . 25432)])
348 (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epl-upgrade-p side-effect-free error-free put epl-upgrade cl-deftype-satisfies] 5)
349 #@78 compiler-macro for inlining `epl-upgrade-installed'.
350
351 (fn CL-WHOLE-ARG CL-X)
352 (defalias 'epl-upgrade-installed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-installed (or (epl-upgrade-p cl-x) (signal 'wrong-type-argument (list 'epl-upgrade cl-x))) (aref cl-x 1)) nil] 9 (#$ . 25711)])
353 (put 'epl-upgrade-installed 'compiler-macro 'epl-upgrade-installed--cmacro)
354 #@102 Access slot "installed" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X.
355
356 (fn CL-X)
357 (defalias 'epl-upgrade-installed #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epl-upgrade-tags type-of signal wrong-type-argument epl-upgrade 1] 5 (#$ . 26131)])
358 (byte-code "\300\301\302\303#\300\207" [function-put epl-upgrade-installed side-effect-free t] 4)
359 #@78 compiler-macro for inlining `epl-upgrade-available'.
360
361 (fn CL-WHOLE-ARG CL-X)
362 (defalias 'epl-upgrade-available--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epl-upgrade-available (or (epl-upgrade-p cl-x) (signal 'wrong-type-argument (list 'epl-upgrade cl-x))) (aref cl-x 2)) nil] 9 (#$ . 26520)])
363 (put 'epl-upgrade-available 'compiler-macro 'epl-upgrade-available--cmacro)
364 #@102 Access slot "available" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X.
365
366 (fn CL-X)
367 (defalias 'epl-upgrade-available #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epl-upgrade-tags type-of signal wrong-type-argument epl-upgrade 2] 5 (#$ . 26940)])
368 (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epl-upgrade-available side-effect-free t defalias copy-epl-upgrade copy-sequence] 4)
369 #@101 compiler-macro for inlining `epl-upgrade-create'.
370
371 (fn CL-WHOLE &cl-quote &key INSTALLED AVAILABLE)
372 (defalias 'epl-upgrade-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :installed :available (:installed :available :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:installed :available)" cl--defsubst-expand (installed available) (cl-block epl-upgrade-create (record 'epl-upgrade installed available))] 12 (#$ . 27380)])
373 (put 'epl-upgrade-create 'compiler-macro 'epl-upgrade-create--cmacro)
374 #@79 Constructor for objects of type `epl-upgrade'.
375
376 (fn &key INSTALLED AVAILABLE)
377 (defalias 'epl-upgrade-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :installed :available (:installed :available :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:installed :available)" record epl-upgrade] 7 (#$ . 28056)])
378 (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&    \207" [function-put epl-upgrade-create side-effect-free t cl-struct-define epl-upgrade "Structure describing an upgradable package.\nSlots:\n\n`installed' The installed package\n\n`available' The package available for installation." cl-structure-object record nil ((cl-tag-slot) (installed) (available)) cl-struct-epl-upgrade-tags] 11)
379 #@221 Find all upgradable PACKAGES.
380
381 PACKAGES is a list of package objects to upgrade, defaulting to
382 all installed packages.
383
384 Return a list of `epl-upgrade' objects describing all upgradable
385 packages.
386
387 (fn &optional PACKAGES)
388 (defalias 'epl-find-upgrades #[256 "\211\206\301 \302\211\203M\211@\303!\304!>\204 \305\306\307D\"\210\310H\311!@\211\205.\303!\211\203D\312\"\203D\313\314#B\262\266A\266\202\202\210\211\237\207" [cl-struct-epl-package-tags epl-installed-packages nil epl-package-version type-of signal wrong-type-argument epl-package 1 epl-find-available-packages version-list-< record epl-upgrade] 13 (#$ . 28927)])
389 (defalias 'epl-built-in-p 'package-built-in-p)
390 #@70 Install a package from FILE, like `package-install-file'.
391
392 (fn FILE)
393 (defalias 'epl-install-file #[257 "\302\303C\"\210\304!\211\305!>\204\306\307\310D\"\210\211\311H\312\313!\205+\305!    >\205+\314\266\202?\2054\315!\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags apply package-install-file epl-package-from-file type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t epl--kill-autoload-buffer] 7 (#$ . 29628) (byte-code "\300\301\302!A@!\207" [advice-eval-interactive-spec interactive-form package-install-file] 3)])
394 #@70 Kill the buffer associated with autoloads for PACKAGE.
395
396 (fn PACKAGE)
397 (defalias 'epl--kill-autoload-buffer #[257 "\302\303\304!>\204\305\306\307D\"\210\310H\"\311\312!\"\313    !\211\205&\314!)\207" [cl-struct-epl-package-tags generated-autoload-file format "%s-autoloads.el" type-of signal wrong-type-argument epl-package 1 expand-file-name epl-package-directory find-buffer-visiting kill-buffer] 7 (#$ . 30196)])
398 #@168 Install a PACKAGE.
399
400 PACKAGE is a `epl-package' object.  If FORCE is given and
401 non-nil, install PACKAGE, even if it is already installed.
402
403 (fn PACKAGE &optional FORCE)
404 (defalias 'epl-package-install #[513 "\211\204 \302!?\205_\303!>\204\304\305\306D\"\210\211\307H\310\311!\205-\303!    >\205-\312\266\202\203G\313\303!>\204B\304\305\306D\"\210\307H!\207\313\303!>\204W\304\305\306D\"\210\314H!\210\315!\207" [cl-struct-epl-package-tags cl-struct-package-desc-tags epl-package-installed-p type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t package-install 1 epl--kill-autoload-buffer] 7 (#$ . 30625)])
405 #@79 Delete a PACKAGE.
406
407 PACKAGE is a `epl-package' object to delete.
408
409 (fn PACKAGE)
410 (defalias 'epl-package-delete #[257 "\304\211\305!    >\204\306\307\310D\"\210\211\311H\312\313!\205$\305!\n>\205$\314\266\202\203@\315\305!    >\2049\306\307\310D\"\210\311H!\202~\316\305!    >\204P\306\307\310D\"\210\317H!\320!\315\"\210\305!    >\204k\306\307\310D\"\210\317H \236\211\205z\321 \"\211\262\266\202)\207" [delete-by-moving-to-trash cl-struct-epl-package-tags cl-struct-package-desc-tags package-alist nil type-of signal wrong-type-argument epl-package 2 fboundp package-desc-p t package-delete symbol-name 1 epl-package-version-string delq] 7 (#$ . 31276)])
411 #@321 Upgrade PACKAGES.
412
413 PACKAGES is a list of package objects to upgrade, defaulting to
414 all installed packages.
415
416 The old versions of the updated packages are deleted, unless
417 PRESERVE-OBSOLETE is non-nil.
418
419 Return a list of all performed upgrades, as a list of
420 `epl-upgrade' objects.
421
422 (fn &optional PACKAGES PRESERVE-OBSOLETE)
423 (defalias 'epl-upgrade #[512 "\301!\211\211\203@\211@\302\303!>\204\304\305\306D\"\210\307H\310\"\210\2049\311\303!>\2044\304\305\306D\"\210\312H!\210A\266\202\202\210\211\207" [cl-struct-epl-upgrade-tags epl-find-upgrades epl-package-install type-of signal wrong-type-argument epl-upgrade 2 force epl-package-delete 1] 10 (#$ . 31953)])
424 (provide 'epl)