Commit 9a895795 authored by Artur Malabarba's avatar Artur Malabarba
Browse files

emacs-lisp/package.el (package-dir-info): Fix `while' logic.

parent 0dd19ac8
2015-01-20 Artur Malabarba <bruce.connor.am@gmail.com>
* emacs-lisp/package.el (package-dir-info): Fix `while' logic.
2015-01-20 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/eieio-generic.el: Remove.
......
......@@ -1316,9 +1316,14 @@ The return result is a `package-desc'."
(while files
(with-temp-buffer
(insert-file-contents (pop files))
(if (setq info (ignore-errors (package-buffer-info)))
(setq files nil)
(setf (package-desc-kind info) 'dir))))))))
;; When we find the file with the data,
(when (setq info (ignore-errors (package-buffer-info)))
;; stop looping,
(setq files nil)
;; set the 'dir kind,
(setf (package-desc-kind info) 'dir))))
;; and return the info.
info))))
(defun package--read-pkg-desc (kind)
"Read a `define-package' form in current buffer.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment