From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 Jun 2019 13:42:30 +0000 (+0200)
Subject: Avoid a compilation warning in srt-mode.el
X-Git-Tag: emacs-27.0.90~2480
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59821926204e59d0db021591db4c05e3571d2465;p=emacs.git

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.
---

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))