Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Remove unnecessary 'inline' require from package.el

Browse source 
* lisp/emacs-lisp/package-activate.el (package-vc-p): Define
using a regular 'defun'.
This commit is contained in:
Philip Kaludercic 2026-02-13 23:43:03 +01:00
parent d734b240fb
commit 49c8dd44af
No known key found for this signature in database
2 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/package-activate.el
View file

@ -63,10 +63,9 @@ If VERSION is nil, the package is not made available (it is \"disabled\")."
(defvar package--default-summary "No description available.") (defvar package--default-summary "No description available.")
(define-inline package-vc-p (pkg-desc) (defun package-vc-p (pkg-desc)
"Return non-nil if PKG-DESC is a VC package." "Return non-nil if PKG-DESC is a VC package."
(inline-letevals (pkg-desc) (eq (package-desc-kind pkg-desc) 'vc))
(inline-quote (eq (package-desc-kind ,pkg-desc) 'vc))))
(cl-defstruct (package-desc (cl-defstruct (package-desc
;; Rename the default constructor from `make-package-desc'. ;; Rename the default constructor from `make-package-desc'.

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

@ -148,7 +148,6 @@
(require 'cl-lib) (require 'cl-lib)
(eval-when-compile (require 'subr-x)) (eval-when-compile (require 'subr-x))
(eval-when-compile (require 'epg)) ;For setf accessors. (eval-when-compile (require 'epg)) ;For setf accessors.
(eval-when-compile (require 'inline)) ;For `define-inline'
(require 'seq) (require 'seq)
(require 'tabulated-list) (require 'tabulated-list)