Suppress warning about object-print in eieio.el

* lisp/emacs-lisp/eieio.el (obsolete): Suppress warning about
object-print being obsolete, because there are no in-tree
definitions any more.
This commit is contained in:
Lars Ingebrigtsen 2019-06-17 12:12:48 +02:00
parent 3ccc0d623a
commit a7417ddf5e

View file

@ -851,12 +851,12 @@ to prepend a space."
(eieio-object-name this (apply #'concat strings)))
(cl-defmethod cl-print-object ((object eieio-default-superclass) stream)
"Default printer for EIEIO objects."
;; Fallback to the old `object-print'. There should be no
;; `object-print' methods in the Emacs tree, but there may be some
;; out-of-tree.
(with-suppressed-warnings ((obsolete object-print))
(with-suppressed-warnings ((obsolete object-print))
(cl-defmethod cl-print-object ((object eieio-default-superclass) stream)
"Default printer for EIEIO objects."
;; Fallback to the old `object-print'. There should be no
;; `object-print' methods in the Emacs tree, but there may be some
;; out-of-tree.
(princ (object-print object) stream)))
(defvar eieio-print-depth 0