Simplify condition in kbd

* lisp/subr.el (kbd): Simplify condition.  This was discussed in:
https://lists.gnu.org/r/emacs-devel/2021-10/msg01136.html

diff --git a/lisp/subr.el b/lisp/subr.el
index e55c94a9f82bb486ee7beeedecb5946d95a348f5..a9669ab750bb516d3c8c1667350a78dc48e02cfc 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1068,13 +1068,8 @@ and should normally not be needed."
                                     (nreverse lres)
                                     lres))))
       (if (and (not need-vector)
-               (let ((ret t))
-                 (dolist (ch (append res nil))
-                   (unless (and (characterp ch)
-                                (let ((ch2 (logand ch (lognot ?\M-\^@))))
-                                  (and (>= ch2 0) (<= ch2 127))))
-                     (setq ret nil)))
-                 ret))
+               (not (memq nil (mapcar (lambda (ch) (<= 0 ch 127))
+                                      (append res nil)))))
           (concat (mapcar (lambda (ch)
                             (if (= (logand ch ?\M-\^@) 0)
                                 ch (+ ch 128)))