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:
parent
3ccc0d623a
commit
a7417ddf5e
1 changed files with 6 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue