From a7417ddf5e082543b23feaa86ba7be0b990851df Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 17 Jun 2019 12:12:48 +0200 Subject: [PATCH] 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. --- lisp/emacs-lisp/eieio.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 4f73c606df9..504133c1e77 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -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 -- 2.39.2