diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-20 17:57:37 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-20 17:57:37 -0400 |
| commit | 3b03124a931ebf694f212a78be3cbdc371130ca2 (patch) | |
| tree | 878f6b449281e76267e25a5570d8bacde012eb36 /lisp/emacs-lisp/eieio-base.el | |
| parent | e1d42f8f4a945669ff8b5159a569cb4b18f56e18 (diff) | |
| download | emacs-3b03124a931ebf694f212a78be3cbdc371130ca2.tar.gz | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp/eieio-base.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." |