]> git.eshelyaron.com Git - emacs.git/commitdiff
; * lisp/emacs-lisp/cond-star.el: Fix whitespace.
authorPip Cet <pipcet@protonmail.com>
Sun, 11 Aug 2024 15:53:39 +0000 (15:53 +0000)
committerEshel Yaron <me@eshelyaron.com>
Sun, 11 Aug 2024 18:07:27 +0000 (20:07 +0200)
(cherry picked from commit 643b564bd38cf037c55dba1a160b7d0c4c8355a9)

lisp/emacs-lisp/cond-star.el

index 77ea2a0b33856aa33c69896bf673295aef2a0477..fc93d658371b8f56a81a22bc7f47ac034942d282 100644 (file)
@@ -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)))))
-
-
-