branch: elpa/magit
commit df0f7d4c4b8ad1d3f317c1d3dab66444a40aca61
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Add to eieio--known-slot-names at compile-time still
This fixes the previous commit, [1: a6b9d55977].
1: 2025-07-29 a6b9d5597730d4e99f1f4eec04d7cef1bcda3424
Add to eieio--known-slot-names at run-time too
---
lisp/magit-diff.el | 7 ++++---
lisp/magit-git.el | 5 +++--
lisp/magit-sequence.el | 9 +++++----
3 files changed, 12 insertions(+), 9 deletions(-)
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index f5bf512faa1..94fa4a495e3 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -87,9 +87,10 @@
(declare-function magit-smerge-keep-base "magit-apply" ())
(declare-function magit-smerge-keep-lower "magit-apply" ())
-(cl-pushnew 'orig-rev eieio--known-slot-names)
-(cl-pushnew 'action-type eieio--known-slot-names)
-(cl-pushnew 'target eieio--known-slot-names)
+(eval-and-compile
+ (cl-pushnew 'orig-rev eieio--known-slot-names)
+ (cl-pushnew 'action-type eieio--known-slot-names)
+ (cl-pushnew 'target eieio--known-slot-names))
(define-obsolete-variable-alias 'magit-diff-section-base-map
'magit-diff-section-map "Magit 4.0.0")
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 93c030990a0..4ad83dd1f19 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -66,8 +66,9 @@
;; From `magit-status'.
(defvar magit-status-show-untracked-files)
-(cl-pushnew 'orig-rev eieio--known-slot-names)
-(cl-pushnew 'number eieio--known-slot-names)
+(eval-and-compile
+ (cl-pushnew 'orig-rev eieio--known-slot-names)
+ (cl-pushnew 'number eieio--known-slot-names))
;;; Options
diff --git a/lisp/magit-sequence.el b/lisp/magit-sequence.el
index d0f16598c3d..6bf99e3e52d 100644
--- a/lisp/magit-sequence.el
+++ b/lisp/magit-sequence.el
@@ -32,10 +32,11 @@
;; For `magit-rebase--todo'.
(declare-function git-rebase-current-line "git-rebase" (&optional batch))
-(cl-pushnew 'action-type eieio--known-slot-names)
-(cl-pushnew 'action eieio--known-slot-names)
-(cl-pushnew 'action-options eieio--known-slot-names)
-(cl-pushnew 'target eieio--known-slot-names)
+(eval-and-compile
+ (cl-pushnew 'action-type eieio--known-slot-names)
+ (cl-pushnew 'action eieio--known-slot-names)
+ (cl-pushnew 'action-options eieio--known-slot-names)
+ (cl-pushnew 'target eieio--known-slot-names))
;;; Options
;;;; Faces
