[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)))))
-
-
-
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 643b564bd38: ; * lisp/emacs-lisp/cond-star.el: Fix whitespace.,
Pip Cet <=