[nongnu] elpa/helm f4a981beb9 1/3: Ensure special *acase syms use a sexp and nothing else

[ELPA Syncer]

branch: elpa/helm
commit f4a981beb9395926bfcc3dbc5146b5d629af4090
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Ensure special *acase syms use a sexp and nothing else
    
    otherwise they are treated as simple symbols.
---
 helm-lib.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index 52ae166bc9..1020399d72 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -598,7 +598,10 @@ usable in all clauses to refer to EXPR.
   (unless (null clauses)
     (let* ((clause1  (car clauses))
            (key      (car clause1))
-           (issexp   (listp (car-safe (cdr-safe key))))
+           ;; Ensure dst* and guard* are not treated as special symbols when
+           ;; they are not followed by a sexp and nothing else.
+           (issexp   (and (consp (car-safe (cdr-safe key)))
+                          (= (length key) 2)))
            (isguard  (and (eq 'guard* (car-safe key)) issexp))
            (isdst    (and (eq 'dst* (car-safe key)) issexp))
            (special  (or isguard isdst))