ray/emacsd
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b6023212ea46dd5c967eba14ebc9b06d92e8fabd
emacsd/elpa/pkg-info-20150517.1143/pkg-info.elc

186 lines
9.7 KiB
Plaintext
Raw Normal View History

initial
2019-10-09 20:36:55 +02:00
;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)
Reference in New Issue Copy Permalink