[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5982192 1/5: Avoid a compilation warning in srt-mod
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 5982192 1/5: Avoid a compilation warning in srt-mode.el |
Date: |
Sun, 16 Jun 2019 10:10:12 -0400 (EDT) |
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))