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 <>
* emacs-lisp/package.el (package-dir-info): Fix `while' logic.
2015-01-20 Stefan Monnier <>
* emacs-lisp/eieio-generic.el: Remove.
......@@ -1316,9 +1316,14 @@ The return result is a `package-desc'."
(while files
(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.
(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