diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 15:51:43 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 15:51:43 +0200 |
| commit | 44a086e5ccb920bb5a310079130ce1eaabdfe4ce (patch) | |
| tree | 065cbccf80679a34c2c696ed183b874e8c52566b /lisp/cedet/srecode | |
| parent | c0b322e33c3e6d782da596ae91f3916d7195c12e (diff) | |
| download | emacs-44a086e5ccb920bb5a310079130ce1eaabdfe4ce.tar.gz emacs-44a086e5ccb920bb5a310079130ce1eaabdfe4ce.tar.bz2 emacs-44a086e5ccb920bb5a310079130ce1eaabdfe4ce.zip | |
Declare unknown slots to silence the compiler
* 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.
Diffstat (limited to 'lisp/cedet/srecode')
| -rw-r--r-- | lisp/cedet/srecode/srt-mode.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el index 0179929e7a9..5e7c7c111a3 100644 --- a/lisp/cedet/srecode/srt-mode.el +++ b/lisp/cedet/srecode/srt-mode.el @@ -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)) |