mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
;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 "\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)
#@147 Whether PACKAGE is a `package-desc' object.
 
Like `package-desc-p', but return nil, if `package-desc-p' is not
defined as function.
 
(fn PACKAGE)
(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)])
(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)
#@32 Get the directory of packages.
(defalias 'epl-package-dir #[0 "\207" [package-user-dir] 1 (#$ . 1782)])
#@40 Get the default directory of packages.
(defalias 'epl-default-package-dir #[0 "\300\301\302N@!\207" [eval package-user-dir standard-value] 3 (#$ . 1893)])
#@64 Change the directory of packages to DIRECTORY.
 
(fn DIRECTORY)
(defalias 'epl-change-package-dir #[257 "\211\301 \207" [package-user-dir epl-initialize] 2 (#$ . 2054)])
#@41 Remember the load path for `epl-reset'.
(defvar epl--load-path-before-initialize nil (#$ . 2230))
#@126 Load Emacs Lisp packages and activate them.
 
With NO-ACTIVATE non-nil, do not activate packages.
 
(fn &optional NO-ACTIVATE)
(defalias 'epl-initialize #[256 "\302!\207" [load-path epl--load-path-before-initialize package-initialize] 3 (#$ . 2335)])
(defalias 'epl-refresh 'package-refresh-contents)
#@57 Add a package archive with NAME and URL.
 
(fn NAME URL)
(defalias 'epl-add-archive #[514 "\300\301B\"\207" [add-to-list package-archives] 6 (#$ . 2643)])
#@142 Reset the package system.
 
Clear the list of installed and available packages, the list of
package archives and reset the package directory.
(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)])
#@74 compiler-macro for inlining `epl-requirement-p'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-requirement-p 'compiler-macro 'epl-requirement-p--cmacro)
#@13 
 
(fn CL-X)
(defalias 'epl-requirement-p #[257 "\301!>\205    \302\207" [cl-struct-epl-requirement-tags type-of t] 3 (#$ . 3594)])
(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)
#@77 compiler-macro for inlining `epl-requirement-name'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-requirement-name 'compiler-macro 'epl-requirement-name--cmacro)
#@105 Access slot "name" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put epl-requirement-name side-effect-free t] 4)
#@80 compiler-macro for inlining `epl-requirement-version'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-requirement-version 'compiler-macro 'epl-requirement-version--cmacro)
#@108 Access slot "version" of `(epl-requirement (:constructor epl-requirement-create))' struct CL-X.
 
(fn CL-X)
(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)])
(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)
#@98 compiler-macro for inlining `epl-requirement-create'.
 
(fn CL-WHOLE &cl-quote &key NAME VERSION)
(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)])
(put 'epl-requirement-create 'compiler-macro 'epl-requirement-create--cmacro)
#@76 Constructor for objects of type `epl-requirement'.
 
(fn &key NAME VERSION)
(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)])
(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)
#@60 The version of a REQUIREMENT, as string.
 
(fn REQUIREMENT)
(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)])
#@70 compiler-macro for inlining `epl-package-p'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-package-p 'compiler-macro 'epl-package-p--cmacro)
#@13 
 
(fn CL-X)
(defalias 'epl-package-p #[257 "\301!>\205    \302\207" [cl-struct-epl-package-tags type-of t] 3 (#$ . 7771)])
(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)
#@73 compiler-macro for inlining `epl-package-name'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-package-name 'compiler-macro 'epl-package-name--cmacro)
#@97 Access slot "name" of `(epl-package (:constructor epl-package-create))' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put epl-package-name side-effect-free t] 4)
#@80 compiler-macro for inlining `epl-package-description'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-package-description 'compiler-macro 'epl-package-description--cmacro)
#@104 Access slot "description" of `(epl-package (:constructor epl-package-create))' struct CL-X.
 
(fn CL-X)
(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)])
(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)
#@98 compiler-macro for inlining `epl-package-create'.
 
(fn CL-WHOLE &cl-quote &key NAME DESCRIPTION)
(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)])
(put 'epl-package-create 'compiler-macro 'epl-package-create--cmacro)
#@76 Constructor for objects of type `epl-package'.
 
(fn &key NAME DESCRIPTION)
(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)])
(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)
#@218 Cast VAR to a package description in BODY.
 
VAR is a symbol, bound to an `epl-package' object.  This macro
casts this object to the `description' object, and binds the
description to VAR in BODY.
 
(fn VAR &rest BODY)
(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)]))
(byte-code "\300\301\302\303#\300\207" [function-put epl-package-as-description lisp-indent-function 1] 4)
#@71 Whether the description of PACKAGE is a `package-desc'.
 
(fn PACKAGE)
(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)])
(put 'epl-package--package-desc-p 'byte-optimizer 'byte-compile-inline-expand)
#@60 Get the version of PACKAGE, as version list.
 
(fn PACKAGE)
(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)])
#@58 Get the version from a PACKAGE, as string.
 
(fn PACKAGE)
(defalias 'epl-package-version-string #[257 "\300\301!!\207" [package-version-join epl-package-version] 4 (#$ . 13101)])
#@54 Get the summary of PACKAGE, as string.
 
(fn PACKAGE)
(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)])
#@65 Create a `epl-requirement' from a `package-desc' REQ.
 
(fn REQ)
(defalias 'epl-requirement--from-req #[257 "\211A@\300\301@\302<\203\202\303!$\207" [epl-requirement-create :name :version version-to-list] 8 (#$ . 13801)])
(put 'epl-requirement--from-req 'byte-optimizer 'byte-compile-inline-expand)
#@107 Get the requirements of PACKAGE.
 
The requirements are a list of `epl-requirement' objects.
 
(fn PACKAGE)
(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)])
#@163 Get the directory PACKAGE is installed to.
 
Return the absolute path of the installation directory of
PACKAGE, or nil, if PACKAGE is not installed.
 
(fn PACKAGE)
(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)])
#@67 Determine whether PKG1 is before PKG2 by version.
 
(fn PKG1 PKG2)
(defalias 'epl-package-->= #[514 "\300\301!\301!\"?\207" [version-list-< epl-package-version] 6 (#$ . 15331)])
#@140 Create an `epl-package' from a PACKAGE-DESC.
 
PACKAGE-DESC is a `package-desc' object, from recent package.el
variants.
 
(fn PACKAGE-DESC)
(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)])
#@37 Parse a package.el INFO.
 
(fn INFO)
(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)])
#@191 Create an `epl-package' object from BUFFER.
 
BUFFER defaults to the current buffer.
 
Signal `epl-invalid-package' if the buffer does not contain a
valid package file.
 
(fn &optional BUFFER)
(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)])
#@124 Parse the package headers the file at FILE-NAME.
 
Return an `epl-package' object with the header metadata.
 
(fn FILE-NAME)
(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)])
#@144 Parse the package tarball at FILE-NAME.
 
Return a `epl-package' object with the meta data of the tarball
package in FILE-NAME.
 
(fn FILE-NAME)
(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)])
#@129 Parse the package at FILE-NAME.
 
Return an `epl-package' object with the meta data of the package
at FILE-NAME.
 
(fn FILE-NAME)
(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)])
#@64 Parse a REQUIREMENT in a package descriptor.
 
(fn REQUIREMENT)
(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)])
#@171 Load a `epl-package' from a package DESCRIPTOR-FILE.
 
A package descriptor is a file defining a new package.  Its name
typically ends with -pkg.el.
 
(fn DESCRIPTOR-FILE)
(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)])
#@260 Determine whether a PACKAGE, of MIN-VERSION or newer, is installed.
 
PACKAGE is either a package name as symbol, or a package object.
When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object.
 
(fn PACKAGE &optional MIN-VERSION)
(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)])
#@112 Parse an ENTRY from the list of built-in packages.
 
Return the corresponding `epl-package' object.
 
(fn ENTRY)
(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)])
#@69 Get all built-in packages.
 
Return a list of `epl-package' objects.
(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)])
#@187 Find a built-in package with NAME.
 
NAME is a package name, as symbol.
 
Return the built-in package as `epl-package' object, or nil if
there is no built-in package with NAME.
 
(fn NAME)
(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)])
#@402 Determine whether a PACKAGE is outdated.
 
A package is outdated, if there is an available package with a
higher version.
 
PACKAGE is either a package name as symbol, or a package object.
In the former case, test the installed or built-in package with
the highest version number, in the later case, test the package
object itself.
 
Return t, if the package is outdated, or nil otherwise.
 
(fn PACKAGE)
(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)])
#@345 Parse a list of packages from ENTRY.
 
ENTRY is a single entry in a package list, e.g. `package-alist',
`package-archive-contents', etc.  Typically it is a cons cell,
but the exact format varies between package.el versions.  This
function tries to parse all known variants.
 
Return a list of `epl-package' objects parsed from ENTRY.
 
(fn ENTRY)
(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)])
#@64 Get all installed packages.
 
Return a list of package objects.
(defalias 'epl-installed-packages #[0 "\301\302\303\304\"\"\207" [package-alist apply append mapcar epl--parse-package-list-entry] 5 (#$ . 22528)])
#@56 Filter outdated packages from PACKAGES.
 
(fn PACKAGES)
(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)])
(put 'epl--filter-outdated-packages 'byte-optimizer 'byte-compile-inline-expand)
#@95 Get all outdated packages, as in `epl-package-outdated-p'.
 
Return a list of package objects.
(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)])
#@114 Find a package by NAME in a package LIST.
 
Return a list of corresponding `epl-package' objects.
 
(fn NAME LIST)
(defalias 'epl--find-package-in-list #[514 "\236\211\205\n\300!\207" [epl--parse-package-list-entry] 5 (#$ . 23349)])
(put 'epl--find-package-in-list 'byte-optimizer 'byte-compile-inline-expand)
#@224 Find the latest installed package by NAME.
 
NAME is a package name, as symbol.
 
Return the installed package with the highest version number as
`epl-package' object, or nil, if no package with NAME is
installed.
 
(fn NAME)
(defalias 'epl-find-installed-package #[257 "\300!@\207" [epl-find-installed-packages] 3 (#$ . 23668)])
(make-obsolete 'epl-find-installed-package 'epl-find-installed-packages "0.7")
#@232 Find all installed packages by NAME.
 
NAME is a package name, as symbol.
 
Return a list of all installed packages with NAME, sorted by
version number in descending order.  Return nil, if there are no
packages with NAME.
 
(fn NAME)
(defalias 'epl-find-installed-packages #[257 "\211\236\211\205\f\301!\207" [package-alist epl--parse-package-list-entry] 6 (#$ . 24082)])
#@81 Get all packages available for installation.
 
Return a list of package objects.
(defalias 'epl-available-packages #[0 "\301\302\303\304\"\"\207" [package-archive-contents apply append mapcar epl--parse-package-list-entry] 5 (#$ . 24462)])
#@223 Find available packages for NAME.
 
NAME is a package name, as symbol.
 
Return a list of available packages for NAME, sorted by version
number in descending order.  Return nil, if there are no packages
for NAME.
 
(fn NAME)
(defalias 'epl-find-available-packages #[257 "\211\236\211\205\f\301!\207" [package-archive-contents epl--parse-package-list-entry] 6 (#$ . 24709)])
#@70 compiler-macro for inlining `epl-upgrade-p'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-upgrade-p 'compiler-macro 'epl-upgrade-p--cmacro)
#@13 
 
(fn CL-X)
(defalias 'epl-upgrade-p #[257 "\301!>\205    \302\207" [cl-struct-epl-upgrade-tags type-of t] 3 (#$ . 25432)])
(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)
#@78 compiler-macro for inlining `epl-upgrade-installed'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-upgrade-installed 'compiler-macro 'epl-upgrade-installed--cmacro)
#@102 Access slot "installed" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put epl-upgrade-installed side-effect-free t] 4)
#@78 compiler-macro for inlining `epl-upgrade-available'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'epl-upgrade-available 'compiler-macro 'epl-upgrade-available--cmacro)
#@102 Access slot "available" of `(epl-upgrade (:constructor epl-upgrade-create))' struct CL-X.
 
(fn CL-X)
(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)])
(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)
#@101 compiler-macro for inlining `epl-upgrade-create'.
 
(fn CL-WHOLE &cl-quote &key INSTALLED AVAILABLE)
(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)])
(put 'epl-upgrade-create 'compiler-macro 'epl-upgrade-create--cmacro)
#@79 Constructor for objects of type `epl-upgrade'.
 
(fn &key INSTALLED AVAILABLE)
(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)])
(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)
#@221 Find all upgradable PACKAGES.
 
PACKAGES is a list of package objects to upgrade, defaulting to
all installed packages.
 
Return a list of `epl-upgrade' objects describing all upgradable
packages.
 
(fn &optional PACKAGES)
(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)])
(defalias 'epl-built-in-p 'package-built-in-p)
#@70 Install a package from FILE, like `package-install-file'.
 
(fn FILE)
(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)])
#@70 Kill the buffer associated with autoloads for PACKAGE.
 
(fn PACKAGE)
(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)])
#@168 Install a PACKAGE.
 
PACKAGE is a `epl-package' object.  If FORCE is given and
non-nil, install PACKAGE, even if it is already installed.
 
(fn PACKAGE &optional FORCE)
(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)])
#@79 Delete a PACKAGE.
 
PACKAGE is a `epl-package' object to delete.
 
(fn PACKAGE)
(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)])
#@321 Upgrade PACKAGES.
 
PACKAGES is a list of package objects to upgrade, defaulting to
all installed packages.
 
The old versions of the updated packages are deleted, unless
PRESERVE-OBSOLETE is non-nil.
 
Return a list of all performed upgrades, as a list of
`epl-upgrade' objects.
 
(fn &optional PACKAGES PRESERVE-OBSOLETE)
(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)])
(provide 'epl)