Function: package--archive-contents-from-file

package--archive-contents-from-file is a byte-compiled function defined in package-x.el.gz.

Signature

(package--archive-contents-from-file)

Documentation

Parse the archive-contents at package-archive-upload-base.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/package-x.el.gz
(defun package--archive-contents-from-file ()
  "Parse the archive-contents at `package-archive-upload-base'."
  (let ((file (expand-file-name "archive-contents"
				package-archive-upload-base)))
    (if (not (file-exists-p file))
	;; No existing archive-contents means a new archive.
	(list package-archive-version)
      (let ((dont-kill (find-buffer-visiting file)))
	(with-current-buffer (let ((find-file-visit-truename t))
			       (find-file-noselect file))
	  (prog1
	      (package-read-from-string
	       (buffer-substring-no-properties (point-min) (point-max)))
	    (unless dont-kill
	      (kill-buffer (current-buffer)))))))))