[Emacs-diffs] master 3820b77 2/6: Suppress warning about object-print in eieio.el

[Lars Ingebrigtsen]

branch: master
commit 3820b77c9e32fa157803cb004d308163c7b7e33e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Suppress warning about object-print in eieio.el
    
    * lisp/emacs-lisp/eieio.el (cl-print-object): Suppress the warning
    about object-print being obsolete, since there are no in-tree
    methods like that any more.
---
 lisp/emacs-lisp/eieio.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 5bb08ee..4f73c60 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -853,8 +853,11 @@ to prepend a space."
 
 (cl-defmethod cl-print-object ((object eieio-default-superclass) stream)
   "Default printer for EIEIO objects."
-  ;; Fallback to the old `object-print'.
-  (princ (object-print object) stream))
+  ;; 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))
+    (princ (object-print object) stream)))
 
 (defvar eieio-print-depth 0
   "The current indentation depth while printing.