diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index a4f1242ce4a..74d135d155c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3972,7 +3972,9 @@ that suppresses all warnings during execution of BODY." (defun byte-compile-cond-valid-obj2-p (obj) (cond - ((consp obj) (eq (car obj) 'quote)) + ((consp obj) (and (eq (car obj) 'quote) + (= (length obj) 2) + (symbolp (cadr obj)))) (t t))) (defun byte-compile-cond-vars (obj1 obj2) |