diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 12:22:15 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 12:22:15 +0200 |
| commit | c90fc19c6ca27c2e280c5f0cdc0e2299c033f355 (patch) | |
| tree | 3ca6832e1b996f6bf359ef43bf50185175897c04 /lisp/cedet/srecode | |
| parent | 5e63ea1ff6d65832504373a9bb621e47815b0874 (diff) | |
| download | emacs-c90fc19c6ca27c2e280c5f0cdc0e2299c033f355.tar.gz emacs-c90fc19c6ca27c2e280c5f0cdc0e2299c033f355.tar.bz2 emacs-c90fc19c6ca27c2e280c5f0cdc0e2299c033f355.zip | |
Suppress compilation warning in srt-mode
* lisp/cedet/srecode/srt-mode.el (srecode-parse-this-macro): Check
for the existence of `key' in the macro before using it, and
suppress the warning.
Diffstat (limited to 'lisp/cedet/srecode')
| -rw-r--r-- | lisp/cedet/srecode/srt-mode.el | 5 |
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)) |