diff options
| author | Lars Ingebrigtsen | 2019-06-17 11:42:03 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-17 11:42:03 +0200 |
| commit | 3820b77c9e32fa157803cb004d308163c7b7e33e (patch) | |
| tree | faf36c8c3e1447a1f0cebd399d6d81eda37564ea | |
| parent | 5a35377fedf0c80bddb7eabb44e94fcc754a25de (diff) | |
| download | emacs-3820b77c9e32fa157803cb004d308163c7b7e33e.tar.gz emacs-3820b77c9e32fa157803cb004d308163c7b7e33e.zip | |
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.
| -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." | |||
| 853 | 853 | ||
| 854 | (cl-defmethod cl-print-object ((object eieio-default-superclass) stream) | 854 | (cl-defmethod cl-print-object ((object eieio-default-superclass) stream) |
| 855 | "Default printer for EIEIO objects." | 855 | "Default printer for EIEIO objects." |
| 856 | ;; Fallback to the old `object-print'. | 856 | ;; Fallback to the old `object-print'. There should be no |
| 857 | (princ (object-print object) stream)) | 857 | ;; `object-print' methods in the Emacs tree, but there may be some |
| 858 | ;; out-of-tree. | ||
| 859 | (with-suppressed-warnings ((obsolete object-print)) | ||
| 860 | (princ (object-print object) stream))) | ||
| 858 | 861 | ||
| 859 | (defvar eieio-print-depth 0 | 862 | (defvar eieio-print-depth 0 |
| 860 | "The current indentation depth while printing. | 863 | "The current indentation depth while printing. |