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

Change errant if to when (Bug#31840)

Browse source 
* lisp/emacs-lisp/subr-x.el: Expand to 'when' instead of 'if'.
This commit is contained in:
Mark Oteiza 2018-06-18 21:27:26 -04:00
parent 6353387835
commit 5b9cc1508e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/subr-x.el
View file

@ -152,8 +152,8 @@ are non-nil, then the result is non-nil."
(let (res)
(if varlist
`(let* ,(setq varlist (internal--build-bindings varlist))
(if ,(setq res (caar (last varlist)))
,@(or body `(,res))))
(when ,(setq res (caar (last varlist)))
,@(or body `(,res))))
`(let* () ,@(or body '(t))))))
(defmacro if-let (spec then &rest else)