[elpa] externals/el-search ba17f50 086/332: Give el-search--s a more meaningful name

[Stefan Monnier]

branch: externals/el-search
commit ba17f5038d43bdf5e262242422def411d69bd2eb
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    Give el-search--s a more meaningful name
    
    Rename `el-search--s' to `el-search--transform-nontrivial-lpat'.
---
 el-search.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/el-search.el b/el-search.el
index 4afcd91..ed2efcf 100644
--- a/el-search.el
+++ b/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 '() '(_)))))