From 3b03124a931ebf694f212a78be3cbdc371130ca2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 20 Oct 2017 17:57:37 -0400 Subject: * lisp/emacs-lisp/eieio.el (eieio-object-name-string): De-obsolete This is apparently the advertised method to use for `eieio-named' objects. Also use sxhash-eq to get a more precise default "object name". (eieio-object-set-name-string): Clarify obsolescence message. * lisp/emacs-lisp/eieio-base.el (eieio-object-name-string): Delegate to the default method when applicable. --- lisp/emacs-lisp/eieio-base.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/eieio-base.el') diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index e3501be6c1d..8ad16038bca 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el @@ -464,7 +464,7 @@ instance." (cl-defmethod eieio-object-name-string ((obj eieio-named)) "Return a string which is OBJ's name." (or (slot-value obj 'object-name) - (symbol-name (eieio-object-class obj)))) + (cl-call-next-method))) (cl-defmethod eieio-object-set-name-string ((obj eieio-named) name) "Set the string which is OBJ's NAME." -- cgit v1.2.1