diff options
| author | Lars Ingebrigtsen | 2019-06-17 12:12:48 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-17 12:12:48 +0200 |
| commit | a7417ddf5e082543b23feaa86ba7be0b990851df (patch) | |
| tree | c00cbd6d48a918eb9dcfd370181e8c0c09a72696 | |
| parent | 3ccc0d623a44af8238ffa5d97e6976395e47fc9a (diff) | |
| download | emacs-a7417ddf5e082543b23feaa86ba7be0b990851df.tar.gz emacs-a7417ddf5e082543b23feaa86ba7be0b990851df.zip | |
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.
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 12 |
1 files 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." | |||
| 851 | (eieio-object-name this (apply #'concat strings))) | 851 | (eieio-object-name this (apply #'concat strings))) |
| 852 | 852 | ||
| 853 | 853 | ||
| 854 | (cl-defmethod cl-print-object ((object eieio-default-superclass) stream) | 854 | (with-suppressed-warnings ((obsolete object-print)) |
| 855 | "Default printer for EIEIO objects." | 855 | (cl-defmethod cl-print-object ((object eieio-default-superclass) stream) |
| 856 | ;; Fallback to the old `object-print'. There should be no | 856 | "Default printer for EIEIO objects." |
| 857 | ;; `object-print' methods in the Emacs tree, but there may be some | 857 | ;; Fallback to the old `object-print'. There should be no |
| 858 | ;; out-of-tree. | 858 | ;; `object-print' methods in the Emacs tree, but there may be some |
| 859 | (with-suppressed-warnings ((obsolete object-print)) | 859 | ;; out-of-tree. |
| 860 | (princ (object-print object) stream))) | 860 | (princ (object-print object) stream))) |
| 861 | 861 | ||
| 862 | (defvar eieio-print-depth 0 | 862 | (defvar eieio-print-depth 0 |