diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-01-17 09:50:07 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-01-17 09:50:07 -0500 |
commit | ca80ebc736346e196badd95ac524150b5c318683 (patch) | |
tree | dfbfd3361ea13d2ccc5d9c16602e08735a8c93eb /lisp/emacs-lisp/eieio.el | |
parent | 4610ce96c1a6d8574f85d8bd543fb8e1e02d6718 (diff) | |
download | emacs-ca80ebc736346e196badd95ac524150b5c318683.tar.gz |
* lisp/emacs-lisp/eieio-core.el (eieio--class-constructor): Rename.
Fixes: debbugs:19620
(eieio--class-constructor): Rename from class-constructor, and make it an alias
for `identity'. Update all callers.
Diffstat (limited to 'lisp/emacs-lisp/eieio.el')
-rw-r--r-- | lisp/emacs-lisp/eieio.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index e7a606ffd8c..cda0c97a64f 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -301,7 +301,7 @@ In EIEIO, the class' constructor requires a name for use when printing. `make-instance' in CLOS doesn't use names the way Emacs does, so the class is used as the name slot instead when INITARGS doesn't start with a string." - (apply (class-constructor class) initargs)) + (apply (eieio--class-constructor class) initargs)) ;;; Get/Set slots in an object. @@ -821,7 +821,7 @@ this object." ;; Each slot's slot is writen using its :writer. (princ (make-string (* eieio-print-depth 2) ? )) (princ "(") - (princ (symbol-name (class-constructor (eieio-object-class this)))) + (princ (symbol-name (eieio--class-constructor (eieio-object-class this)))) (princ " ") (prin1 (eieio-object-name-string this)) (princ "\n") |