diff options
| author | Vibhav Pant | 2017-01-26 00:58:36 +0530 |
|---|---|---|
| committer | Vibhav Pant | 2017-01-26 00:58:36 +0530 |
| commit | c52a9b6ddd9166571e6bc8bb9426b0267874f9fa (patch) | |
| tree | 00610b572556ead0a93fd854c0a3b1a7594754d4 | |
| parent | 8189b97e5ca12aff8ea34617431a868010643b5b (diff) | |
| download | emacs-c52a9b6ddd9166571e6bc8bb9426b0267874f9fa.tar.gz emacs-c52a9b6ddd9166571e6bc8bb9426b0267874f9fa.zip | |
* lisp/emacs-lisp/bytecomp.el: Simplify b-c-cond-valid-obj2-p
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 10 |
1 files 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." | |||
| 3971 | (setq byte-compile--for-effect nil)) | 3971 | (setq byte-compile--for-effect nil)) |
| 3972 | 3972 | ||
| 3973 | (defun byte-compile-cond-valid-obj2-p (obj) | 3973 | (defun byte-compile-cond-valid-obj2-p (obj) |
| 3974 | (cond | 3974 | (if (consp obj) |
| 3975 | ((consp obj) (and (eq (car obj) 'quote) | 3975 | (and (eq (car obj) 'quote) |
| 3976 | (= (length obj) 2) | 3976 | (= (length obj) 2) |
| 3977 | (symbolp (cadr obj)))) | 3977 | (symbolp (cadr obj))) |
| 3978 | (t t))) | 3978 | t)) |
| 3979 | 3979 | ||
| 3980 | (defun byte-compile-cond-vars (obj1 obj2) | 3980 | (defun byte-compile-cond-vars (obj1 obj2) |
| 3981 | (or | 3981 | (or |