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

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
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
;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\300\303!\210\300\304!\210\300\305!\207" [require epl lisp-mnt find-func json url-http] 2)
#@110 Format VERSION as human-readable string.
 
Return a human-readable string representing VERSION.
 
(fn VERSION)
(defalias 'pkg-info-format-version #[257 "\300!\207" [package-version-join] 3 (#$ . 538)])
#@113 Show and return VERSION.
 
When SHOW is non-nil, show VERSION in minibuffer.
 
Return VERSION.
 
(fn VERSION SHOW)
(defalias 'pkg-info--show-version-and-return #[514 "\211\203\300<\203\301!\202!\210\207" [message pkg-info-format-version] 5 (#$ . 746)])
(put 'pkg-info--show-version-and-return 'byte-optimizer 'byte-compile-inline-expand)
#@33 Read a library from minibuffer.
(defalias 'pkg-info--read-library #[0 "\301\302\303\304\305 #\"\207" [load-path completing-read "Load library: " apply-partially locate-file-completion-table get-load-suffixes] 6 (#$ . 1097)])
#@39 Read a function name from minibuffer.
(defalias 'pkg-info--read-function #[0 "\301\302\303\304$\211\305\230?\205\306!\207" [obarray completing-read "Function: " boundp :require-match "" intern] 5 (#$ . 1329)])
#@38 Read a package name from minibuffer.
(defalias 'pkg-info--read-package #[0 "\300 \301\302\303\"\304\"\211@\305\306\307\310\307\211&\207" [epl-installed-packages sort mapcar #[257 "\301\302!>\204\303\304\305D\"\210\306H!\207" [cl-struct-epl-package-tags symbol-name type-of signal wrong-type-argument epl-package 1] 6 "\n\n(fn PKG)"] string< completing-read "Installed package: " nil require-match] 11 (#$ . 1549)])
#@176 Get the source file of LIBRARY.
 
LIBRARY is either a symbol denoting a named feature, or a library
name as string.
 
Return the source file of LIBRARY as string.
 
(fn LIBRARY)
(defalias 'pkg-info-library-source #[257 "\3009\203\f\301!\202 !\207" [find-library-name symbol-name] 4 (#$ . 1982)])
#@246 Get the source file of the library defining FUNCTION.
 
FUNCTION is a function symbol.
 
Return the file name of the library as string.  Signal an error
if the library does not exist, or if the definition of FUNCTION
was not found.
 
(fn FUNCTION)
(defalias 'pkg-info-defining-library #[257 "\300!\204 \301\302\300D\"\210\303\304\"\211\204\305\306\"\210\211\207" [functionp signal wrong-type-argument symbol-file defun error "Can't find definition of %s"] 5 (#$ . 2287)])
#@203 Read the X-Original-Version header from FILE.
 
Return the value as version list, or return nil if FILE lacks
this header.  Signal an error, if the value of the header is not
a valid version.
 
(fn FILE)
(defalias 'pkg-info-x-original-version #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\312\313!*\262\211\205$\314!\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 lm-header "X-Original-Version" version-to-list] 8 (#$ . 2770)])
#@598 Get the original version in the header of LIBRARY.
 
The original version is stored in the X-Original-Version header.
This header is added by the MELPA package archive to preserve
upstream version numbers.
 
LIBRARY is either a symbol denoting a named feature, or a library
name as string.
 
If SHOW is non-nil, show the version in the minibuffer.
 
Return the version from the header of LIBRARY as list.  Signal an
error if the LIBRARY was not found or had no X-Original-Version
header.
 
See Info node `(elisp)Library Headers' for more information
about library headers.
 
(fn LIBRARY &optional SHOW)
(defalias 'pkg-info-library-original-version #[513 "\300\301!!\211\203$\211\211\203\302<\203\303!\202!\210\266\202\202(\304\305\"\207" [pkg-info-x-original-version pkg-info-library-source message pkg-info-format-version error "Library %s has no original version"] 8 (#$ . 3335) (byte-code "\300 \301D\207" [pkg-info--read-library t] 2)])
#@423 Get the version in the header of LIBRARY.
 
LIBRARY is either a symbol denoting a named feature, or a library
name as string.
 
If SHOW is non-nil, show the version in the minibuffer.
 
Return the version from the header of LIBRARY as list.  Signal an
error if the LIBRARY was not found or had no proper header.
 
See Info node `(elisp)Library Headers' for more information
about library headers.
 
(fn LIBRARY &optional SHOW)
(defalias 'pkg-info-library-version #[513 "\300!\301\302!!\211\211\203\303<\203\304!\202!\210\266\202\207" [pkg-info-library-source epl-package-version epl-package-from-file message pkg-info-format-version] 9 (#$ . 4292) (byte-code "\300 \301D\207" [pkg-info--read-library t] 2)])
#@633 Get the original version of the library defining FUNCTION.
 
The original version is stored in the X-Original-Version header.
This header is added by the MELPA package archive to preserve
upstream version numbers.
 
If SHOW is non-nil, show the version in mini-buffer.
 
This function is mainly intended to find the version of a major
or minor mode, i.e.
 
   (pkg-info-defining-library-version 'flycheck-mode)
 
Return the version of the library defining FUNCTION.  Signal an
error if FUNCTION is not a valid function, if its defining
library was not found, or if the library had no proper version
header.
 
(fn FUNCTION &optional SHOW)
(defalias 'pkg-info-defining-library-original-version #[513 "\300\301!\"\207" [pkg-info-library-original-version pkg-info-defining-library] 5 (#$ . 5015) (byte-code "\300 \301D\207" [pkg-info--read-function t] 2)])
#@470 Get the version of the library defining FUNCTION.
 
If SHOW is non-nil, show the version in mini-buffer.
 
This function is mainly intended to find the version of a major
or minor mode, i.e.
 
   (pkg-info-defining-library-version 'flycheck-mode)
 
Return the version of the library defining FUNCTION.  Signal an
error if FUNCTION is not a valid function, if its defining
library was not found, or if the library had no proper version
header.
 
(fn FUNCTION &optional SHOW)
(defalias 'pkg-info-defining-library-version #[513 "\300\301!\"\207" [pkg-info-library-version pkg-info-defining-library] 5 (#$ . 5871) (byte-code "\300 \301D\207" [pkg-info--read-function t] 2)])
#@193 Get the version of an installed PACKAGE.
 
If SHOW is non-nil, show the version in the minibuffer.
 
Return the version as list, or nil if PACKAGE is not installed.
 
(fn PACKAGE &optional SHOW)
(defalias 'pkg-info-package-version #[513 ";\203 \300!\202\f\301!@\211\204\302\303\"\210\304!\211\2030\305<\203-\306!\202.!\210\266\202\207" [intern epl-find-installed-packages error "Can't find installed package %s" epl-package-version message pkg-info-format-version] 9 (#$ . 6546) (byte-code "\300 \301D\207" [pkg-info--read-package t] 2)])
#@768 Obtain complete version info for LIBRARY and PACKAGE.
 
LIBRARY is a symbol denoting a named feature, or a library name
as string.  PACKAGE is a symbol denoting an ELPA package.  If
omitted or nil, default to LIBRARY.
 
If SHOW is non-nil, show the version in the minibuffer.
 
When called interactively, prompt for LIBRARY.  When called
interactively with prefix argument, prompt for PACKAGE as well.
 
Return a string with complete version information for LIBRARY.
This version information contains the version from the headers of
LIBRARY, and the version of the installed PACKAGE, the LIBRARY is
part of.  If PACKAGE is not installed, or if the PACKAGE version
is the same as the LIBRARY version, do not include a package
version.
 
(fn LIBRARY &optional PACKAGE SHOW)
(defalias 'pkg-info-version-info #[769 "\206;\203\300!\202\3011\302!0\202\210\303\211\206$\304!\3051/\306!0\2021\210\303\211\203H\307\"\204H\310\311\312!\312!#\202K\312!\211\211\203a\313<\203^\312!\202_!\210\266\202\207" [intern (error) pkg-info-library-original-version nil pkg-info-library-version (error) pkg-info-package-version version-list-= format "%s (package: %s)" pkg-info-format-version message] 13 (#$ . 7107) (byte-code "\301 \205\302 \303E\207" [current-prefix-arg pkg-info--read-library pkg-info--read-package t] 3)])
#@44 The URL from which to fetch MELPA recipes.
(defconst pkg-info-melpa-recipe-url "http://melpa.org/recipes.json" (#$ . 8453))
#@28 An alist of MELPA recipes.
(defvar pkg-info-melpa-recipes nil (#$ . 8583))
#@44 Retrieve MELPA recipes from MELPA archive.
(defalias 'pkg-info-retrieve-melpa-recipes #[0 "\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312 \211\313\232\204!\314\315#\210    b\210\316 \262*\207" [pkg-info-melpa-recipe-url url-http-end-of-headers url-retrieve-synchronously make-byte-code 0 "\300\205 \301\300!\205 \302\300!\207" vconcat vector [buffer-live-p kill-buffer] 2 url-http-parse-response 200 error "Failed to retrieve MELPA recipes from %s (code %s)" json-read] 7 (#$ . 8664)])
#@20 Get MELPA recipes.
(defalias 'pkg-info-get-melpa-recipes #[0 "\206\301 \211\207" [pkg-info-melpa-recipes pkg-info-retrieve-melpa-recipes] 2 (#$ . 9170)])
#@89 Get the MELPA recipe for PACKAGE.
 
Return nil if PACKAGE is not on MELPA.
 
(fn PACKAGE)
(defalias 'pkg-info-get-melpa-recipe #[257 "\211\300 \236A\207" [pkg-info-get-melpa-recipes] 3 (#$ . 9334)])
#@50 Get the MELPA fetcher for PACKAGE.
 
(fn PACKAGE)
(defalias 'pkg-info-get-melpa-fetcher #[257 "\300\301!\236A\207" [fetcher pkg-info-get-melpa-recipe] 4 (#$ . 9537)])
#@70 Determine whether PACKAGE is build from the EmacsWiki.
 
(fn PACKAGE)
(defalias 'pkg-info-wiki-package-p #[257 "\300!\301\232\207" [pkg-info-get-melpa-fetcher "wiki"] 3 (#$ . 9710)])
(provide 'pkg-info)