diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 21:53:22 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 21:53:22 +0200 |
| commit | aed6e2f7c6517fd27589a9c618799c3deb88f96e (patch) | |
| tree | 07060aa8341d7fa49a024f72ce38b75fc7e963cf /lisp/emacs-lisp/eieio.el | |
| parent | f8efeee0e1033ca45885210c44a5f72c47d2d6a6 (diff) | |
| download | emacs-aed6e2f7c6517fd27589a9c618799c3deb88f96e.tar.gz emacs-aed6e2f7c6517fd27589a9c618799c3deb88f96e.tar.bz2 emacs-aed6e2f7c6517fd27589a9c618799c3deb88f96e.zip | |
Compilation work-around for obsolete eieio-object-set-name-string
* lisp/emacs-lisp/eieio-base.el (eieio-object-set-name-string):
Move the generic definition of this method to here from eieio.el
and place it after the cl-method definition. This avoids a
warning about it being obsolete when doing macro expansion.
Diffstat (limited to 'lisp/emacs-lisp/eieio.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 3169541e5bf..400599a73ed 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -408,14 +408,6 @@ If EXTRA, include that in the string returned to represent the symbol." extra)))) (define-obsolete-function-alias 'object-name #'eieio-object-name "24.4") -(cl-defgeneric eieio-object-set-name-string (obj name) - "Set the string which is OBJ's NAME." - (declare (obsolete "inherit from `eieio-named' and use (setf (slot-value OBJ \\='object-name) NAME) instead" "25.1")) - (cl-check-type name string) - (setf (gethash obj eieio--object-names) name)) -(define-obsolete-function-alias - 'object-set-name-string 'eieio-object-set-name-string "24.4") - (defun eieio-object-class (obj) "Return the class struct defining OBJ." ;; FIXME: We say we return a "struct" but we return a symbol instead! |