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: | |||
| 143 | ;; Give it a slightly higher priority than `class' so that the | 143 | ;; Give it a slightly higher priority than `class' so that the |
| 144 | ;; interleaved list comes before the class's non-interleaved list. | 144 | ;; interleaved list comes before the class's non-interleaved list. |
| 145 | 51 #'cl--generic-struct-tag | 145 | 51 #'cl--generic-struct-tag |
| 146 | (lambda (tag _targets) | 146 | (lambda (tag &rest _) |
| 147 | (and (symbolp tag) (boundp tag) (setq tag (symbol-value tag)) | 147 | (and (symbolp tag) (boundp tag) (setq tag (symbol-value tag)) |
| 148 | (eieio--class-p tag) | 148 | (eieio--class-p tag) |
| 149 | (let ((superclasses (eieio--class-precedence-list tag)) | 149 | (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.") | |||
| 898 | (provide 'eieio-tests) | 898 | (provide 'eieio-tests) |
| 899 | 899 | ||
| 900 | ;;; eieio-tests.el ends here | 900 | ;;; eieio-tests.el ends here |
| 901 | |||
| 902 | ;; Local Variables: | ||
| 903 | ;; no-byte-compile: t | ||
| 904 | ;; End: | ||