diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files 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 |