mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/bytecomp.el: Simplify b-c-cond-valid-obj2-p

Browse source
This commit is contained in:
Vibhav Pant 2017-01-26 00:58:36 +05:30
parent 8189b97e5c
commit c52a9b6ddd
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/bytecomp.el
View file

@ -3971,11 +3971,11 @@ that suppresses all warnings during execution of BODY."
(setq byte-compile--for-effect nil))
(defun byte-compile-cond-valid-obj2-p (obj)
(cond
((consp obj) (and (eq (car obj) 'quote)
(= (length obj) 2)
(symbolp (cadr obj))))
(t t)))
(if (consp obj)
(and (eq (car obj) 'quote)
(= (length obj) 2)
(symbolp (cadr obj)))
t))
(defun byte-compile-cond-vars (obj1 obj2)
(or