diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-03-26 13:32:45 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-03-26 13:32:45 -0400 |
commit | 8fd527eb00a0ec1d8d7cf916204c3be3e79e27da (patch) | |
tree | 1fc7bc18de53d2f2ac2e067773b867529de3970e /lisp/emacs-lisp/eieio.el | |
parent | 3e0fc97befc105caf8d7519f1e6fd84c67a50a35 (diff) | |
download | emacs-8fd527eb00a0ec1d8d7cf916204c3be3e79e27da.tar.gz |
* lisp/emacs-lisp/cl|eieio: Minor tweaks
* lisp/emacs-lisp/cl-macs.el (cl-dolist, cl-dotimes): Silence byte-compiler.
* lisp/emacs-lisp/eieio.el (defclass): Change internal name so as to make
sure only EIEIO files should have "eieio--" prefixes in their .elc.
Diffstat (limited to 'lisp/emacs-lisp/eieio.el')
-rw-r--r-- | lisp/emacs-lisp/eieio.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 27725148ff6..bca53c0c892 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -130,7 +130,7 @@ and reference them using the function `class-option'." (error "Method invocation order %s is not allowed" io))) (let ((testsym1 (intern (concat (symbol-name name) "-p"))) - (testsym2 (intern (format "eieio--childp--%s" name))) + (testsym2 (intern (format "%s--eieio-childp" name))) (accessors ())) ;; Collect the accessors we need to define. |