diff options
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))))) - - - |