* lisp/emacs-lisp/package.el: Don't load from parent dir
(package-load-all-descriptors): Don't load descriptors from directories above the package directories.
This commit is contained in:
parent
56b4b0e72e
commit
56af96e54e
1 changed files with 4 additions and 3 deletions
|
@ -587,9 +587,10 @@ updates `package-alist'."
|
|||
(dolist (dir (cons package-user-dir package-directory-list))
|
||||
(when (file-directory-p dir)
|
||||
(dolist (subdir (directory-files dir))
|
||||
(let ((pkg-dir (expand-file-name subdir dir)))
|
||||
(when (file-directory-p pkg-dir)
|
||||
(package-load-descriptor pkg-dir)))))))
|
||||
(unless (equal subdir "..")
|
||||
(let ((pkg-dir (expand-file-name subdir dir)))
|
||||
(when (file-directory-p pkg-dir)
|
||||
(package-load-descriptor pkg-dir))))))))
|
||||
|
||||
(defun define-package (_name-string _version-string
|
||||
&optional _docstring _requirements
|
||||
|
|
Loading…
Add table
Reference in a new issue