diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 16:39:28 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 16:39:28 +0200 |
| commit | 6697cbf8f85b197828ec8a63bcd1698e9a08bcac (patch) | |
| tree | 9e12ea36ce418a3f2d5127234d968e68b3150605 /lisp/cedet | |
| parent | 56eb4f7f115bd43fd7e655224ef101aff0c04714 (diff) | |
| download | emacs-6697cbf8f85b197828ec8a63bcd1698e9a08bcac.tar.gz | |
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.
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/ede.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/ede/auto.el | 3 |
2 files changed, 3 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..099d60fffa7 100644 --- 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 |