From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 Jun 2019 14:23:25 +0000 (+0200)
Subject: Fix compilation warning in ede.el
X-Git-Tag: emacs-27.0.90~2475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7bbb56bc430465a6807a8129a322c704c89e3eba;p=emacs.git

Fix compilation warning in ede.el

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

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

diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 22374dd6a63..d051510a994 100644
--- 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 4871d51bc64..402562b7c4e 100644
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -136,7 +136,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