;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)
|
