diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-07-29 22:20:13 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-07-29 22:20:13 +0200 |
| commit | df0f7d4c4b8ad1d3f317c1d3dab66444a40aca61 (patch) | |
| tree | 825f3ce2f5fa150b4eab95a80f1912cbc13889e0 | |
| parent | a6b9d5597730d4e99f1f4eec04d7cef1bcda3424 (diff) | |
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
| -rw-r--r-- | lisp/magit-diff.el | 7 | ||||
| -rw-r--r-- | lisp/magit-git.el | 5 | ||||
| -rw-r--r-- | 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 f5bf512..94fa4a4 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 93c0309..4ad83dd 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 d0f1659..6bf99e3 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 |