diff options
Diffstat (limited to 'lisp/emacs-lisp/eieio-core.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-core.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el index 0e589d6cf6e..a82e887fa0c 100644 --- a/lisp/emacs-lisp/eieio-core.el +++ b/lisp/emacs-lisp/eieio-core.el @@ -209,11 +209,8 @@ CLASS is a symbol." ;FIXME: Is it a vector or a symbol? (format "#<class %s>" (symbol-name class))) (define-obsolete-function-alias 'class-name #'eieio-class-name "24.4") -(defmacro class-constructor (class) - "Return the symbol representing the constructor of CLASS." - (declare (debug t)) - ;; FIXME: How/when would this not be a costly identity function? - `(eieio--class-symbol (eieio--class-v ,class))) +(defalias 'eieio--class-constructor #'identity + "Return the symbol representing the constructor of CLASS.") (defmacro eieio--class-option-assoc (list option) "Return from LIST the found OPTION, or nil if it doesn't exist." |