Commit 6697cbf8 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

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.
parent 56eb4f7f
Pipeline #2105 failed with stage
in 90 minutes and 3 seconds
......@@ -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)))
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment