Fix compilation warning in ede.el

* lisp/cedet/ede/auto.el (ede-project-autoload): Inherit from
eieio-named, because we want to set the object name...

* lisp/cedet/ede.el (ede-new): ... which we do here, and fix the
compilation warning about the obsolete
eieio-object-set-name-string function.

diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 22374dd6a63b926c87483a72c23941c2ee56e75c..d051510a9940631b42419ddaf1e0d294692c189d 100644 (file)
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -791,7 +791,7 @@ Optional argument NAME is the name to give this project."
                 ))
         (inits (oref obj initializers)))
     ;; Force the name to match for new objects.
-    (eieio-object-set-name-string nobj (oref nobj name))
+    (setf (slot-value nobj 'object-name) (oref nobj name))
     ;; Handle init args.
     (while inits
       (eieio-oset nobj (car inits) (car (cdr inits)))

diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el
index 4871d51bc6454209c9695e468660edfb4a8c95e1..099d60fffa7a21498556ee3feccd6639082d25c6 100644 (file)
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -31,6 +31,7 @@
 
 (require 'eieio)
 (require 'cl-generic)
+(require 'eieio-base)
 
 (declare-function ede-directory-safe-p "ede")
 (declare-function ede-add-project-to-global-list "ede")
@@ -136,7 +137,7 @@ into memory.")
 (declare-function ede-directory-safe-p "ede")
 (declare-function ede-add-project-to-global-list "ede")
 
-(defclass ede-project-autoload ()
+(defclass ede-project-autoload (eieio-named)
   ((name :initarg :name
         :documentation "Name of this project type")
    (file :initarg :file