1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index 660225925e0..0179929e7a9 100644
--- a/lisp/cedet/srecode/srt-mode.el
+++ b/lisp/cedet/srecode/srt-mode.el
@@ -511,7 +511,10 @@ section or ? for an ask variable."
                                (split-string (oref inserter secondname)
                                              ":")
                              nil)))
-                    (key (oref inserter key)))
+                    (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)))))
                 (cond ((null key)
                        ;; A plain variable
                        (cons nil base))