[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/byte-switch 5f3379b 2/3: lisp/emacs-lisp/bytecomp.
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] feature/byte-switch 5f3379b 2/3: lisp/emacs-lisp/bytecomp.el: Use byte-switch only for quoted symbols |
Date: |
Thu, 19 Jan 2017 17:44:55 +0000 (UTC) |
branch: feature/byte-switch
commit 5f3379b33866ff7dc16856b6c29712eae860af0e
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
lisp/emacs-lisp/bytecomp.el: Use byte-switch only for quoted symbols
---
lisp/emacs-lisp/bytecomp.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index a4f1242..74d135d 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)