diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-13 05:54:26 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-13 06:03:19 +0100 |
| commit | 69a69fa23ea01406f8b5b43adf3de885e668cced (patch) | |
| tree | 64eca4a21c33aa50f9aa906c6c63b841ae30224c /compat-25.el | |
| parent | cfa81c05666ed7619fbdad19ccd235e8541c1e04 (diff) | |
while-let: Test the single binding case
bug#60758
Diffstat (limited to 'compat-25.el')
| -rw-r--r-- | compat-25.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compat-25.el b/compat-25.el index 42fa9e0..bc9449b 100644 --- a/compat-25.el +++ b/compat-25.el @@ -120,8 +120,7 @@ with an old syntax that accepted only one binding." (debug ([&or (symbolp form) (&rest [&or symbolp (symbolp form) (form)])] body))) - (when (and (<= (length spec) 2) - (not (listp (car spec)))) + (when (and (<= (length spec) 2) (not (listp (car spec)))) ;; Adjust the single binding case (setq spec (list spec))) (let ((empty (make-symbol "s")) |