[Emacs-diffs] feature/byte-switch c52a9b6 3/5: * lisp/emacs-lisp/bytecomp.el: Simplify b-c-cond-valid-obj2-p

[Vibhav Pant]

branch: feature/byte-switch
commit c52a9b6ddd9166571e6bc8bb9426b0267874f9fa
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    * lisp/emacs-lisp/bytecomp.el: Simplify b-c-cond-valid-obj2-p
---
 lisp/emacs-lisp/bytecomp.el |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 0da1418..b608844 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -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