From c52a9b6ddd9166571e6bc8bb9426b0267874f9fa Mon Sep 17 00:00:00 2001 From: Vibhav Pant Date: Thu, 26 Jan 2017 00:58:36 +0530 Subject: [PATCH] * 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 0da1418321f..b608844a08a 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 -- 2.39.5