diff options
| author | Vibhav Pant | 2017-01-19 23:13:13 +0530 |
|---|---|---|
| committer | Vibhav Pant | 2017-01-19 23:13:13 +0530 |
| commit | 5f3379b33866ff7dc16856b6c29712eae860af0e (patch) | |
| tree | 2febe6d7c0824d89189470ebbd8ecf6c87f7dea5 | |
| parent | 46193d5209780d21b848374d8c377fb6c8896d1b (diff) | |
| download | emacs-5f3379b33866ff7dc16856b6c29712eae860af0e.tar.gz emacs-5f3379b33866ff7dc16856b6c29712eae860af0e.zip | |
lisp/emacs-lisp/bytecomp.el: Use byte-switch only for quoted symbols
| -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." | |||
| 3972 | 3972 | ||
| 3973 | (defun byte-compile-cond-valid-obj2-p (obj) | 3973 | (defun byte-compile-cond-valid-obj2-p (obj) |
| 3974 | (cond | 3974 | (cond |
| 3975 | ((consp obj) (eq (car obj) 'quote)) | 3975 | ((consp obj) (and (eq (car obj) 'quote) |
| 3976 | (= (length obj) 2) | ||
| 3977 | (symbolp (cadr obj)))) | ||
| 3976 | (t t))) | 3978 | (t t))) |
| 3977 | 3979 | ||
| 3978 | (defun byte-compile-cond-vars (obj1 obj2) | 3980 | (defun byte-compile-cond-vars (obj1 obj2) |