From 7bbb56bc430465a6807a8129a322c704c89e3eba Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 16 Jun 2019 16:23:25 +0200 Subject: [PATCH] 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... --- lisp/cedet/ede.el | 2 +- lisp/cedet/ede/auto.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2