diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 5bb08ee3e37..4f73c606df9 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. |