emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 643b564bd38: ; * lisp/emacs-lisp/cond-star.el: Fix whitespace.


From: Pip Cet
Subject: master 643b564bd38: ; * lisp/emacs-lisp/cond-star.el: Fix whitespace.
Date: Sun, 11 Aug 2024 12:10:46 -0400 (EDT)

branch: master
commit 643b564bd38cf037c55dba1a160b7d0c4c8355a9
Author: Pip Cet <pipcet@protonmail.com>
Commit: Pip Cet <pipcet@protonmail.com>

    ; * lisp/emacs-lisp/cond-star.el: Fix whitespace.
---
 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 d8108d1c985..5ff921bb35e 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)))))
-
-
-



reply via email to

[Prev in Thread] Current Thread [Next in Thread]