diff options
| -rw-r--r-- | lisp/emacs-lisp/eieio-compat.el | 2 | ||||
| -rw-r--r-- | test/automated/eieio-tests.el | 4 |
2 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/eieio-compat.el b/lisp/emacs-lisp/eieio-compat.el index 638c475ef2b..06e65b9df80 100644 --- a/lisp/emacs-lisp/eieio-compat.el +++ b/lisp/emacs-lisp/eieio-compat.el @@ -143,7 +143,7 @@ Summary: ;; Give it a slightly higher priority than `class' so that the ;; interleaved list comes before the class's non-interleaved list. 51 #'cl--generic-struct-tag - (lambda (tag _targets) + (lambda (tag &rest _) (and (symbolp tag) (boundp tag) (setq tag (symbol-value tag)) (eieio--class-p tag) (let ((superclasses (eieio--class-precedence-list tag)) diff --git a/test/automated/eieio-tests.el b/test/automated/eieio-tests.el index 5709a1bfeb2..915532b299c 100644 --- a/test/automated/eieio-tests.el +++ b/test/automated/eieio-tests.el @@ -898,7 +898,3 @@ Subclasses to override slot attributes.") (provide 'eieio-tests) ;;; eieio-tests.el ends here - -;; Local Variables: -;; no-byte-compile: t -;; End: |