mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix compilation warning in ede.el

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-06-16 16:39:28 +02:00
parent 56eb4f7f11
commit 6697cbf8f8
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/cedet/ede.el
View file

@ -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)))

3
lisp/cedet/ede/auto.el
View file

@ -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