diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2018-06-18 21:27:26 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2018-06-18 21:27:26 -0400 |
| commit | 5b9cc1508e80e7e39ffea0395c1e9128405514dc (patch) | |
| tree | 9a4ee028c0c3b53888c381cd29b7afdb1a0b73c6 /lisp/emacs-lisp/subr-x.el | |
| parent | 6353387835f6cb34765ac525ac3e9edf3239e589 (diff) | |
| download | emacs-5b9cc1508e80e7e39ffea0395c1e9128405514dc.tar.gz emacs-5b9cc1508e80e7e39ffea0395c1e9128405514dc.tar.bz2 emacs-5b9cc1508e80e7e39ffea0395c1e9128405514dc.zip | |
Change errant if to when (Bug#31840)
* lisp/emacs-lisp/subr-x.el: Expand to 'when' instead of 'if'.
Diffstat (limited to 'lisp/emacs-lisp/subr-x.el')
| -rw-r--r-- | lisp/emacs-lisp/subr-x.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index 7fab9083e85..e03a81c892a 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -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) |