;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:04 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/package-x.el
;;; in Emacs version 24.3.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\302\303\304\305\306\307\310\301\311\312&	\207" [require package custom-declare-variable package-archive-upload-base "/path/to/archive" "The base location of the archive to which packages are uploaded.\nThis should be an absolute directory name.  If the archive is on\nanother machine, you may specify a remote name in the usual way,\ne.g. \"/ssh:foo@example.com:/var/www/packages/\".\nSee Info node `(emacs)Remote Files'.\n\nUnlike `package-archives', you can't specify a HTTP URL." :type directory :group :version "24.1"] 10)
#@68 Whether uploading a package should also update NEWS and RSS feeds.
(defvar package-update-news-on-upload nil (#$ . 1116))
#@65 Encode a string by replacing some characters with XML entities.
(defalias 'package--encode #[(string) "\302\303\304	#\211\203\305\306\307\302	$T\202)\303\310	\"\203+\305\311\307\302	$\202\303\312	\"\203<\305\313\307\302	$\202+\303\314	\"\203M\305\315\307\302	$\202<\303\316	\"\203^\305\317\307\302	$\202M	\207" [index string nil string-match "[&]" replace-match "&amp;" t "[<]" "&lt;" "[>]" "&gt;" "[']" "&apos;" "[\"]" "&quot;"] 5 (#$ . 1244)])
(defalias 'package--make-rss-entry #[(title text archive-url) "\304\305!\306\307\310	!\311\312\n\313\314\310!\315\316\317\320\260)\207" [date-string title archive-url text format-time-string "%a, %d %B %Y %T %z" "<item>\n" "<title>" package--encode "</title>\n" "<link>" "news.html</link>\n" "<description>" "</description>\n" "<pubDate>" "</pubDate>\n" "</item>\n"] 14])
(defalias 'package--make-html-entry #[(title text) "\302\303\304!\305\305\306	!\307\260\207" [title text "<li> " format-time-string "%B %e" " - " package--encode " </li>\n"] 7])
#@211 Update the package archive file named FILE.
FILE should be relative to `package-archive-upload-base'.
TAG is a string that can be found within the file; TEXT is
inserted after its first occurrence in the file.
(defalias 'package--update-file #[(file tag text) "\306	\"\212\307!r\310\n\206\311!)q\210eb\210\312\f!\210\313y\210
c\210\310\314 \210)\n?\2053\315p!+\207" [file package-archive-upload-base old-buffer find-file-visit-truename tag text expand-file-name find-buffer-visiting t find-file-noselect search-forward nil save-buffer kill-buffer file-precious-flag] 3 (#$ . 2276)])
#@108 Parse archive-contents file at ARCHIVE-URL.
Return the file contents, as a string, or nil if unsuccessful.
(defalias 'package--archive-contents-from-url #[(archive-url) "\300\301\302\217\207" [nil (byte-code "\205(\302\303P!\211q\210\304 \210\305\306\307\310#\210\307u\210e`|\210\311\312ed\"!\313	!\210)\207" [archive-url buffer url-retrieve-synchronously "archive-contents" package-handle-response re-search-forward "^$" nil move package-read-from-string buffer-substring-no-properties kill-buffer] 5) ((error))] 3 (#$ . 2877)])
#@61 Parse the archive-contents at `package-archive-upload-base'
(defalias 'package--archive-contents-from-file #[nil "\305\306\"\307	!\204\nC\202,\310	!r\311\312	!)q\210\313\314ed\"!\204+\315p!\210*)\207" [package-archive-upload-base file package-archive-version dont-kill find-file-visit-truename expand-file-name "archive-contents" file-exists-p find-buffer-visiting t find-file-noselect package-read-from-string buffer-substring-no-properties kill-buffer] 4 (#$ . 3417)])
#@149 Add a news item to the webpages associated with the package archive.
TITLE is the title of the news item.
DESCRIPTION is the text of the news item.
(defalias 'package-maint-add-news-item #[(title description archive-url) "\303\304\305\306	\n##\210\303\307\310\311	\"#\207" [title description archive-url package--update-file "elpa.rss" "<description>" package--make-rss-entry "news.html" "New entries go here" package--make-html-entry] 7 (#$ . 3904) "sTitle: \nsText: "])
#@55 Update the ELPA web pages when a package is uploaded.
(defalias 'package--update-news #[(package version description archive-url) "\304\305	Q\n#\207" [package version description archive-url package-maint-add-news-item " version "] 4 (#$ . 4384)])
#@752 Upload a package whose contents are in the current buffer.
PKG-INFO is the package info, see `package-buffer-info'.
EXTENSION is the file extension, a string.  It can be either
"el" or "tar".

The upload destination is given by `package-archive-upload-base'.
If its value is invalid, prompt for a directory.

Optional arg ARCHIVE-URL is the URL of the destination archive.
If it is non-nil, compute the new "archive-contents" file
starting from the existing "archive-contents" at that URL.  In
addition, if `package-update-news-on-upload' is non-nil, call
`package--update-news' to add a news item at that URL.

If ARCHIVE-URL is nil, compute the new "archive-contents" file
from the "archive-contents" at `package-archive-upload-base',
if it exists.
(defalias 'package-upload-buffer-internal #[(pkg-info extension &optional archive-url) "\211;\203\300\306N\242\232\203\307\310!\311!\204/\312\313\314\"!\203+\315\316\"\210\202/\317\320!\210\212\214	\321\232\203;\322\202I	\323\232\203E\324\202I\317\325	\"\326H\327\f!\330H4\331H\332\230\203e\333\334!\202h\331H5\335H6\336H7\3376!8p9\340:!\206\206\341 \342845\n$;\211<@=V\203\242\317\343<@\"\210
<A\236\211>\203\317\3448>A\2115\326H)\"\203\306\317\3456\"\210\202\335>;\241\210\202\335<@
;B<ABB<)\346\211?@\347\350<!\351P\346\352\353\"#\210*7\203
\3477\346\352\354
!\355P\"#\2109q\210\347ed\352\f\3566\357	\260\"\346\211\211\360&\210A\2036
:\2036
\361\f\357	Q65:$\210\f\362\230\205L
\347ed\352\f\357	Q\"\346\211\211\363&.\207" [package-archive-upload-base extension file-type pkg-info file-name pkg-name standard-value read-directory-name "Base directory for package archive: " file-directory-p y-or-n-p format "%s does not exist; create it? " make-directory t error "Aborted" "el" single "tar" tar "Unknown extension `%s'" 0 intern 1 2 "" read-string "Description of package: " 3 4 version-to-list package--archive-contents-from-url package--archive-contents-from-file vector "Unrecognized archive version %d" version-list-<= "New package has smaller version: %s" nil write-region pp-to-string "\n" expand-file-name "archive-contents" symbol-name "-readme.txt" "-" "." excl package--update-news "package" ask requires desc pkg-version commentary split-version pkg-buffer archive-url new-desc contents package-archive-version elt print-length print-level package-update-news-on-upload] 10 (#$ . 4641)])
#@158 Upload the current buffer as a single-file Emacs Lisp package.
If `package-archive-upload-base' does not specify a valid upload
destination, prompt for one.
(defalias 'package-upload-buffer #[nil "\212\214\301 \302\303\"+\207" [pkg-info package-buffer-info package-upload-buffer-internal "el"] 3 (#$ . 7082) nil])
#@307 Upload the Emacs Lisp package FILE to the package archive.
Interactively, prompt for FILE.  The package is considered a
single-file package if FILE ends in ".el", and a multi-file
package if FILE ends in ".tar".
If `package-archive-upload-base' does not specify a valid upload
destination, prompt for one.
(defalias 'package-upload-file #[(file) "\303\304!rq\210\305\216\306	!\210\307\310	\"\203\311	!\202-\307\312	\"\203'\313 \202-\314\315\316	!\"\317\n\316	!\",\207" [#1=#:temp-buffer file info generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally string-match "\\.tar$" package-tar-file-info "\\.el$" package-buffer-info error "Unrecognized extension `%s'" file-name-extension package-upload-buffer-internal] 4 (#$ . 7405) "fPackage file name: "])
#@116 Upload a package contained in the current *Article* buffer.
This should be invoked from the gnus *Summary* buffer.
(defalias 'package-gnus-summary-upload #[nil "rq\210\301 )\207" [gnus-article-buffer package-upload-buffer] 1 (#$ . 8259) nil])
(provide 'package-x)