procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Pip Cet 2024-08-11 15:53:39 +00:00
parent ad9743b436
commit 643b564bd3
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/cond-star.el
View 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)))))