From 1bf752bfbab968bbd19e158eb563338334e3f822 Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Sun, 11 Aug 2024 15:53:39 +0000 Subject: [PATCH] ; * lisp/emacs-lisp/cond-star.el: Fix whitespace. (cherry picked from commit 643b564bd38cf037c55dba1a160b7d0c4c8355a9) --- lisp/emacs-lisp/cond-star.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/cond-star.el b/lisp/emacs-lisp/cond-star.el index 77ea2a0b338..fc93d658371 100644 --- a/lisp/emacs-lisp/cond-star.el +++ b/lisp/emacs-lisp/cond-star.el @@ -379,7 +379,7 @@ as in `cond*-condition'." (defun cond*-bind-pattern-syms (bindings expr) "Wrap EXPR in code to bind the BINDINGS. This is used for the bindings specified explicitly in match* patterns." - ;; They can't have side effects. Skip them + ;; They can't have side effects. Skip them ;; if we don't actually need them. (if (equal expr '(progn)) nil @@ -708,6 +708,3 @@ That is safe for the purpose this is used for." (cons (car args) (cond*-un-backquote-list* (cdr args))) (mapcar (lambda (x) (list 'quote x)) (cadr (car args))))) - - - -- 2.39.2