From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 25 Mar 2024 02:13:44 +0000 (-0400)
Subject: (byte-optimize-form-code-walker): Simplify a bit
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccaa42a367047352ef8a65c750c625d4ff3cdc51;p=emacs.git

(byte-optimize-form-code-walker): Simplify a bit

Eliminate a case that matches very rarely and where the default
handling works just as well anyway.

* lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker): Remove
redundant case.

(cherry picked from commit 83a6e80d66a4c6333e2bbb21d0428c432ddca881)
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index f6df40a2d9b..54997205edb 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -482,9 +482,6 @@ There can be multiple entries for the same NAME if it has several aliases.")
          (push name byte-optimize--dynamic-vars)
          `(,fn ,name . ,optimized-rest)))
 
-      (`(,(pred byte-code-function-p) . ,exps)
-       (cons fn (mapcar #'byte-optimize-form exps)))
-
       ((guard (when for-effect
 		(if-let ((tmp (byte-opt--fget fn 'side-effect-free)))
 		    (or byte-compile-delete-errors