[Emacs-diffs] master 5982192 1/5: Avoid a compilation warning in srt-mode.el

[Lars Ingebrigtsen]

branch: master
commit 59821926204e59d0db021591db4c05e3571d2465
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/cedet/srecode/srt-mode.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index 1b58ce3..6602259 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))