diff options
| author | Pip Cet | 2024-08-11 15:53:39 +0000 |
|---|---|---|
| committer | Pip Cet | 2024-08-11 16:09:28 +0000 |
| commit | 643b564bd38cf037c55dba1a160b7d0c4c8355a9 (patch) | |
| tree | 83b1415732cd73107bf6bd6510538a5d09d39d2a | |
| parent | ad9743b436dc026167c7f122e3fb9ae9b47c90f9 (diff) | |
| download | emacs-643b564bd38cf037c55dba1a160b7d0c4c8355a9.tar.gz emacs-643b564bd38cf037c55dba1a160b7d0c4c8355a9.zip | |
; * lisp/emacs-lisp/cond-star.el: Fix whitespace.
| -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'." | |||
| 379 | (defun cond*-bind-pattern-syms (bindings expr) | 379 | (defun cond*-bind-pattern-syms (bindings expr) |
| 380 | "Wrap EXPR in code to bind the BINDINGS. | 380 | "Wrap EXPR in code to bind the BINDINGS. |
| 381 | This is used for the bindings specified explicitly in match* patterns." | 381 | This is used for the bindings specified explicitly in match* patterns." |
| 382 | ;; They can't have side effects. Skip them | 382 | ;; They can't have side effects. Skip them |
| 383 | ;; if we don't actually need them. | 383 | ;; if we don't actually need them. |
| 384 | (if (equal expr '(progn)) | 384 | (if (equal expr '(progn)) |
| 385 | nil | 385 | nil |
| @@ -708,6 +708,3 @@ That is safe for the purpose this is used for." | |||
| 708 | (cons (car args) | 708 | (cons (car args) |
| 709 | (cond*-un-backquote-list* (cdr args))) | 709 | (cond*-un-backquote-list* (cdr args))) |
| 710 | (mapcar (lambda (x) (list 'quote x)) (cadr (car args))))) | 710 | (mapcar (lambda (x) (list 'quote x)) (cadr (car args))))) |
| 711 | |||
| 712 | |||
| 713 | |||