diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 15:42:30 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 15:42:30 +0200 |
| commit | 59821926204e59d0db021591db4c05e3571d2465 (patch) | |
| tree | 9f23ba2e874c333da8c223aec6ae0e781372ab56 /lisp/cedet/srecode | |
| parent | 4f2f95049738be97df8647705a8fc05a029ed244 (diff) | |
| download | emacs-59821926204e59d0db021591db4c05e3571d2465.tar.gz emacs-59821926204e59d0db021591db4c05e3571d2465.tar.bz2 emacs-59821926204e59d0db021591db4c05e3571d2465.zip | |
Avoid a compilation warning in srt-mode.el
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help): Add hack to
avoid compilation warning about slot that has to exist at this
point.
Diffstat (limited to 'lisp/cedet/srecode')
| -rw-r--r-- | lisp/cedet/srecode/srt-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el index 1b58ce326ce..660225925e0 100644 --- a/lisp/cedet/srecode/srt-mode.el +++ b/lisp/cedet/srecode/srt-mode.el @@ -247,9 +247,10 @@ we can tell font lock about them.") (let* ((C (car chl)) (name (symbol-name C)) (key (when (slot-exists-p C 'key) - (oref C key))) - (showexample t) - ) + ;; This avoids a compilation warning, but we + ;; know that 'key exists here. + (slot-value C (intern "key" obarray)))) + (showexample t)) (setq chl (cdr chl)) (setq chl (append (eieio-class-children C) chl)) |