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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
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\300\303!\210\300\304!\210\300\305!\207" [require epl lisp-mnt find-func json url-http] 2)
16 #@110 Format VERSION as human-readable string.
17
18 Return a human-readable string representing VERSION.
19
20 (fn VERSION)
21 (defalias 'pkg-info-format-version #[257 "\300!\207" [package-version-join] 3 (#$ . 538)])
22 #@113 Show and return VERSION.
23
24 When SHOW is non-nil, show VERSION in minibuffer.
25
26 Return VERSION.
27
28 (fn VERSION SHOW)
29 (defalias 'pkg-info--show-version-and-return #[514 "\211\203\300<\203\301!\202!\210\207" [message pkg-info-format-version] 5 (#$ . 746)])
30 (put 'pkg-info--show-version-and-return 'byte-optimizer 'byte-compile-inline-expand)
31 #@33 Read a library from minibuffer.
32 (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)])
33 #@39 Read a function name from minibuffer.
34 (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)])
35 #@38 Read a package name from minibuffer.
36 (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)])
37 #@176 Get the source file of LIBRARY.
38
39 LIBRARY is either a symbol denoting a named feature, or a library
40 name as string.
41
42 Return the source file of LIBRARY as string.
43
44 (fn LIBRARY)
45 (defalias 'pkg-info-library-source #[257 "\3009\203\f\301!\202 !\207" [find-library-name symbol-name] 4 (#$ . 1982)])
46 #@246 Get the source file of the library defining FUNCTION.
47
48 FUNCTION is a function symbol.
49
50 Return the file name of the library as string.  Signal an error
51 if the library does not exist, or if the definition of FUNCTION
52 was not found.
53
54 (fn FUNCTION)
55 (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)])
56 #@203 Read the X-Original-Version header from FILE.
57
58 Return the value as version list, or return nil if FILE lacks
59 this header.  Signal an error, if the value of the header is not
60 a valid version.
61
62 (fn FILE)
63 (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)])
64 #@598 Get the original version in the header of LIBRARY.
65
66 The original version is stored in the X-Original-Version header.
67 This header is added by the MELPA package archive to preserve
68 upstream version numbers.
69
70 LIBRARY is either a symbol denoting a named feature, or a library
71 name as string.
72
73 If SHOW is non-nil, show the version in the minibuffer.
74
75 Return the version from the header of LIBRARY as list.  Signal an
76 error if the LIBRARY was not found or had no X-Original-Version
77 header.
78
79 See Info node `(elisp)Library Headers' for more information
80 about library headers.
81
82 (fn LIBRARY &optional SHOW)
83 (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)])
84 #@423 Get the version in the header of LIBRARY.
85
86 LIBRARY is either a symbol denoting a named feature, or a library
87 name as string.
88
89 If SHOW is non-nil, show the version in the minibuffer.
90
91 Return the version from the header of LIBRARY as list.  Signal an
92 error if the LIBRARY was not found or had no proper header.
93
94 See Info node `(elisp)Library Headers' for more information
95 about library headers.
96
97 (fn LIBRARY &optional SHOW)
98 (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)])
99 #@633 Get the original version of the library defining FUNCTION.
100
101 The original version is stored in the X-Original-Version header.
102 This header is added by the MELPA package archive to preserve
103 upstream version numbers.
104
105 If SHOW is non-nil, show the version in mini-buffer.
106
107 This function is mainly intended to find the version of a major
108 or minor mode, i.e.
109
110    (pkg-info-defining-library-version 'flycheck-mode)
111
112 Return the version of the library defining FUNCTION.  Signal an
113 error if FUNCTION is not a valid function, if its defining
114 library was not found, or if the library had no proper version
115 header.
116
117 (fn FUNCTION &optional SHOW)
118 (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)])
119 #@470 Get the version of the library defining FUNCTION.
120
121 If SHOW is non-nil, show the version in mini-buffer.
122
123 This function is mainly intended to find the version of a major
124 or minor mode, i.e.
125
126    (pkg-info-defining-library-version 'flycheck-mode)
127
128 Return the version of the library defining FUNCTION.  Signal an
129 error if FUNCTION is not a valid function, if its defining
130 library was not found, or if the library had no proper version
131 header.
132
133 (fn FUNCTION &optional SHOW)
134 (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)])
135 #@193 Get the version of an installed PACKAGE.
136
137 If SHOW is non-nil, show the version in the minibuffer.
138
139 Return the version as list, or nil if PACKAGE is not installed.
140
141 (fn PACKAGE &optional SHOW)
142 (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)])
143 #@768 Obtain complete version info for LIBRARY and PACKAGE.
144
145 LIBRARY is a symbol denoting a named feature, or a library name
146 as string.  PACKAGE is a symbol denoting an ELPA package.  If
147 omitted or nil, default to LIBRARY.
148
149 If SHOW is non-nil, show the version in the minibuffer.
150
151 When called interactively, prompt for LIBRARY.  When called
152 interactively with prefix argument, prompt for PACKAGE as well.
153
154 Return a string with complete version information for LIBRARY.
155 This version information contains the version from the headers of
156 LIBRARY, and the version of the installed PACKAGE, the LIBRARY is
157 part of.  If PACKAGE is not installed, or if the PACKAGE version
158 is the same as the LIBRARY version, do not include a package
159 version.
160
161 (fn LIBRARY &optional PACKAGE SHOW)
162 (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)])
163 #@44 The URL from which to fetch MELPA recipes.
164 (defconst pkg-info-melpa-recipe-url "http://melpa.org/recipes.json" (#$ . 8453))
165 #@28 An alist of MELPA recipes.
166 (defvar pkg-info-melpa-recipes nil (#$ . 8583))
167 #@44 Retrieve MELPA recipes from MELPA archive.
168 (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)])
169 #@20 Get MELPA recipes.
170 (defalias 'pkg-info-get-melpa-recipes #[0 "\206\301 \211\207" [pkg-info-melpa-recipes pkg-info-retrieve-melpa-recipes] 2 (#$ . 9170)])
171 #@89 Get the MELPA recipe for PACKAGE.
172
173 Return nil if PACKAGE is not on MELPA.
174
175 (fn PACKAGE)
176 (defalias 'pkg-info-get-melpa-recipe #[257 "\211\300 \236A\207" [pkg-info-get-melpa-recipes] 3 (#$ . 9334)])
177 #@50 Get the MELPA fetcher for PACKAGE.
178
179 (fn PACKAGE)
180 (defalias 'pkg-info-get-melpa-fetcher #[257 "\300\301!\236A\207" [fetcher pkg-info-get-melpa-recipe] 4 (#$ . 9537)])
181 #@70 Determine whether PACKAGE is build from the EmacsWiki.
182
183 (fn PACKAGE)
184 (defalias 'pkg-info-wiki-package-p #[257 "\300!\301\232\207" [pkg-info-get-melpa-fetcher "wiki"] 3 (#$ . 9710)])
185 (provide 'pkg-info)