X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/c0d9ca7b1600ed24809b1796d9d9cc460e30392d..536fab673d45a8df019da0e813aded5db25c88d8:/packages/el-search/el-search.el?ds=sidebyside

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 4afcd9107..ed2efcf86 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -756,7 +756,7 @@ matches any of these expressions:
                                  "argument not a string or vector")
   `(pred (el-search--match-key-sequence ,key-sequence)))
 
-(defun el-search--s (expr)
+(defun el-search--transform-nontrivial-lpat (expr)
   (cond
    ((symbolp expr) `(or (symbol ,(symbol-name expr))
                         (,'\` (,'quote    (,'\, (symbol ,(symbol-name expr)))))
@@ -807,7 +807,7 @@ could use this pattern:
                     ('_ '`(,_))
                     ('_? '(or '() `(,_))) ;FIXME: useful - document? or should we provide a (? PAT)
                                           ;thing?
-                    (_ `(,'\` ((,'\, ,(el-search--s elt)))))))
+                    (_ `(,'\` ((,'\, ,(el-search--transform-nontrivial-lpat elt)))))))
                 lpats)
              ,@(if match-end '() '(_)))))