[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/package-vc-fixes fcdeac9b8d 1/3: ; Assert that 'package-lisp-dir
From: |
Philip Kaludercic |
Subject: |
scratch/package-vc-fixes fcdeac9b8d 1/3: ; Assert that 'package-lisp-dir' is used with real packages |
Date: |
Fri, 11 Nov 2022 13:21:08 -0500 (EST) |
branch: scratch/package-vc-fixes
commit fcdeac9b8dfd024b3997a1904e728905735836bf
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
; Assert that 'package-lisp-dir' is used with real packages
* lisp/emacs-lisp/package.el (package-lisp-dir): Raise an error if a
package doesn't have a directory.
---
lisp/emacs-lisp/package.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 5e5db3e2c4..d5874dee06 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -469,6 +469,7 @@ synchronously."
(let* ((extras (package-desc-extras ,pkg-desc))
(lisp-dir (alist-get :lisp-dir extras))
(dir (package-desc-dir ,pkg-desc)))
+ (cl-assert dir)
(file-name-directory (file-name-concat dir lisp-dir))))))
(cl-defstruct (package-desc