Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Declare unknown slots to silence the compiler

Browse source 
* lisp/cedet/ede/config.el (classpath): Declare slot.
(ede-java-classpath): Revert previous hack.

* lisp/cedet/srecode/srt-mode.el (key): Declare slot.
(srecode-macro-help): Revert previous hack.
(srecode-parse-this-macro): Ditto.
This commit is contained in:
Lars Ingebrigtsen 2019-06-17 15:51:43 +02:00
parent c0b322e33c
commit 44a086e5cc
2 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/cedet/ede/config.el
View file

@ -406,13 +406,14 @@ java class path.")
()
"Class to mix into a project to support java.")
(eieio-declare-slots classpath)
(cl-defmethod ede-java-classpath ((proj ede-project-with-config-java))
"Return the classpath for this project."
;; The `classpath' slot only exists in the Java parts of cedet, and
;; those have not been merged into Emacs. Suppress the warning
;; about the unknown slot by using `intern'.
(slot-value (ede-config-get-configuration proj)
(intern "classpath" obarray)))
(oref (ede-config-get-configuration proj) classpath))
;; Local variables:
;; generated-autoload-file: "loaddefs.el"

9
lisp/cedet/srecode/srt-mode.el
View file

@ -229,6 +229,7 @@ we can tell font lock about them.")
(insert ee))))
)
(eieio-declare-slots key)
(defun srecode-macro-help ()
"Provide help for working with macros in a template."
@ -247,9 +248,7 @@ we can tell font lock about them.")
(let* ((C (car chl))
(name (symbol-name C))
(key (when (slot-exists-p C 'key)
;; This avoids a compilation warning, but we
;; know that 'key exists here.
(slot-value C (intern "key" obarray))))
(oref C key)))
(showexample t))
(setq chl (cdr chl))
(setq chl (append (eieio-class-children C) chl))
@ -512,9 +511,7 @@ section or ? for an ask variable."
":")
nil)))
(key (when (slot-exists-p inserter 'key)
;; This avoids a compilation warning, but we
;; know that 'key exists here.
(slot-value inserter (intern "key" obarray)))))
(oref inserter key))))
(cond ((null key)
;; A plain variable
(cons nil base))