diff options
| author | Pip Cet <pipcet@protonmail.com> | 2024-08-11 15:53:39 +0000 |
|---|---|---|
| committer | Pip Cet <pipcet@protonmail.com> | 2024-08-11 16:09:28 +0000 |
| commit | 643b564bd38cf037c55dba1a160b7d0c4c8355a9 (patch) | |
| tree | 83b1415732cd73107bf6bd6510538a5d09d39d2a /lisp/emacs-lisp | |
| parent | ad9743b436dc026167c7f122e3fb9ae9b47c90f9 (diff) | |
| download | emacs-643b564bd38cf037c55dba1a160b7d0c4c8355a9.tar.gz emacs-643b564bd38cf037c55dba1a160b7d0c4c8355a9.tar.bz2 emacs-643b564bd38cf037c55dba1a160b7d0c4c8355a9.zip | |
; * lisp/emacs-lisp/cond-star.el: Fix whitespace.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cond-star.el | 5 |
1 files changed, 1 insertions, 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))))) - - - |