procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Artur Malabarba 2015-01-20 22:20:22 -02:00
parent 0dd19ac826
commit 9a895795e8
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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.

11
lisp/emacs-lisp/package.el
View file

@ -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.