branch: elpa/magit
commit a6b9d5597730d4e99f1f4eec04d7cef1bcda3424
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Add to eieio--known-slot-names at run-time too
The libraries that make these additions are not the only ones that
use them before the respective classes are defined. When compiling
those other libraries we also don't want these warnings.
---
lisp/magit-diff.el | 7 +++----
lisp/magit-git.el | 5 ++---
lisp/magit-sequence.el | 9 ++++-----
3 files changed, 9 insertions(+), 12 deletions(-)
diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index 5032177fbff..f5bf512faa1 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -87,10 +87,9 @@
(declare-function magit-smerge-keep-base "magit-apply" ())
(declare-function magit-smerge-keep-lower "magit-apply" ())
-(eval-when-compile
- (cl-pushnew 'orig-rev eieio--known-slot-names)
- (cl-pushnew 'action-type eieio--known-slot-names)
- (cl-pushnew 'target eieio--known-slot-names))
+(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 b7a642249ab..93c030990a0 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -66,9 +66,8 @@
;; From `magit-status'.
(defvar magit-status-show-untracked-files)
-(eval-when-compile
- (cl-pushnew 'orig-rev eieio--known-slot-names)
- (cl-pushnew 'number eieio--known-slot-names))
+(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 3680229782f..d0f16598c3d 100644
--- a/lisp/magit-sequence.el
+++ b/lisp/magit-sequence.el
@@ -32,11 +32,10 @@
;; For `magit-rebase--todo'.
(declare-function git-rebase-current-line "git-rebase" (&optional batch))
-(eval-when-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))
+(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
