* lisp/emacs-lisp/eieio.el: Improve `constructor' compatibility.

Fixes: debbugs:19620
(eieio-constructor): Handle obsolete object name argument here...
(defclass): ...instead of in the constructor here.

* test/automated/eieio-tests.el
(eieio-test-37-obsolete-name-in-constructor): New test.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6958b2f0414b67d113c9d54833d8fd3565f245a4..bf00a8d666c0ec13b78da117828e21267f7a6a90 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,13 @@
+2015-01-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/eieio.el (eieio-constructor): Handle obsolete object name
+       argument here (bug#19620)...
+       (defclass): ...instead of in the constructor here.
+
 2015-01-16  Jorgen Schaefer  <contact@jorgenschaefer.de>
 
-       * emacs-lisp/package.el (package-archive-priorities): Specify
-       correct type.
+       * emacs-lisp/package.el (package-archive-priorities):
+       Specify correct type.
 
 2015-01-17  Ulrich Müller  <ulm@gentoo.org>
 
@@ -71,8 +77,8 @@
 
 2015-01-16  Artur Malabarba  <bruce.connor.am@gmail.com>
 
-       * emacs-lisp/package.el (package--read-pkg-desc): New
-       function. Read a `define-package' form in current buffer. Return
+       * emacs-lisp/package.el (package--read-pkg-desc):
+       New function. Read a `define-package' form in current buffer. Return
        the pkg-desc, with desc-kind set to KIND.
        (package-dir-info): New function. Find package information for a
        directory. The return result is a `package-desc'.
@@ -80,8 +86,8 @@
        (package-install-file): Install packages from directory.
        (package-desc-suffix)
        (package-install-from-archive)
-       * emacs-lisp/package-x.el (package-upload-buffer-internal): Ensure
-       all remaining instances of `package-desc-kind' handle the 'dir
+       * emacs-lisp/package-x.el (package-upload-buffer-internal):
+       Ensure all remaining instances of `package-desc-kind' handle the 'dir
        value.
 
 2015-01-16  Jorgen Schaefer  <contact@jorgenschaefer.de>

diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el
index 0747d97960c5b7469b7aac66d467d142c21fd749..0e589d6cf6e2167f8e8f4503804bf82f4e78c6fb 100644 (file)
--- a/lisp/emacs-lisp/eieio-core.el
+++ b/lisp/emacs-lisp/eieio-core.el
@@ -212,6 +212,7 @@ CLASS is a symbol."                     ;FIXME: Is it a vector or a symbol?
 (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)))
 
 (defmacro eieio--class-option-assoc (list option)

diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 392316ccd757f0eda8465a0cc9dc2fe4638d69ea..e7a606ffd8c5e3eecbd554fc486b97c5df83573c 100644 (file)
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -276,12 +276,6 @@ and reference them using the function `class-option'."
           `(defun ,name (&rest slots)
              ,(format "Create a new object with name NAME of class type %S."
                       name)
-             (if (and slots
-                      (let ((x (car slots)))
-                        (or (stringp x) (null x))))
-                 (funcall (if eieio-backward-compatibility #'ignore #'message)
-                          "Obsolete name %S passed to %S constructor"
-                          (pop slots) ',name))
              (apply #'eieio-constructor ',name slots))))))
 
 
@@ -656,7 +650,14 @@ SLOTS are the initialization slots used by `shared-initialize'.
 This static method is called when an object is constructed.
 It allocates the vector used to represent an EIEIO object, and then
 calls `shared-initialize' on that object."
-  (let* ((new-object (copy-sequence (eieio--class-default-object-cache (eieio--class-v class)))))
+  (let* ((new-object (copy-sequence (eieio--class-default-object-cache
+                                     (eieio--class-v class)))))
+    (if (and slots
+             (let ((x (car slots)))
+               (or (stringp x) (null x))))
+        (funcall (if eieio-backward-compatibility #'ignore #'message)
+                 "Obsolete name %S passed to %S constructor"
+                 (pop slots) class))
     ;; Call the initialize method on the new object with the slots
     ;; that were passed down to us.
     (initialize-instance new-object slots)

diff --git a/test/ChangeLog b/test/ChangeLog
index 2f5ff054917add97f0bf5f370638291776e5117c..56ec3afdad705a8d95fbbbca675fa9c6cb6086de 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * automated/eieio-tests.el
+       (eieio-test-37-obsolete-name-in-constructor): New test.
+
 2015-01-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * automated/eieio-tests.el (eieio-test-25-slot-tests)

diff --git a/test/automated/eieio-tests.el b/test/automated/eieio-tests.el
index 3a32da67ef97fbe1ece0ea01df7ab0ee4c350aeb..e0120b4b5b857884d8c1fdd306aa3c3c0f9c6df5 100644 (file)
--- a/test/automated/eieio-tests.el
+++ b/test/automated/eieio-tests.el
@@ -892,6 +892,15 @@ Subclasses to override slot attributes.")
   (should (= (length (eieio-build-class-alist 'opt-test1 nil)) 2))
   (should (= (length (eieio-build-class-alist 'opt-test1 t)) 1)))
 
+(defclass eieio--testing ()
+  ())
+
+(defmethod constructor :static ((_x eieio--testing) newname &rest _args)
+  (list newname 2))
+
+(ert-deftest eieio-test-37-obsolete-name-in-constructor ()
+  (should (equal (eieio--testing "toto") '("toto" 2))))
+
 (provide 'eieio-tests)
 
 ;;; eieio-tests.el ends here