From 663b3fda2d5bc6dfa1e18a461a1cffe0e790acf6 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 2 Jan 2024 04:08:43 +0100 Subject: [PATCH] ; Clarify two comments in byte-optimize-letX * lisp/emacs-lisp/byte-opt.el (byte-optimize-letX): Clarify comments. (cherry picked from commit f77840a5526e40c381a9208a0c5097f652be8e03) --- lisp/emacs-lisp/byte-opt.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index cdeed678eef..add13a5c312 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1479,7 +1479,7 @@ See Info node `(elisp) Integer Basics'." (put 'let* 'byte-optimizer #'byte-optimize-letX) (defun byte-optimize-letX (form) (pcase form - ;; No bindings. + ;; Bindings list is empty. (`(,_ () . ,body) `(progn . ,body)) @@ -1489,7 +1489,7 @@ See Info node `(elisp) Integer Basics'." `(progn ,@(mapcar #'cadr bindings) ,const) `(,head ,(butlast bindings) ,(cadar (last bindings)) ,const))) - ;; Body is last variable. + ;; Body does nothing but return the last variable in bindings. (`(,head ,(and bindings (let last-var (caar (last bindings)))) ,(and last-var ; non-linear pattern -- 2.39.5