[elpa] master 536fab6 15/24: Give el-search--s a more meaningful name

[Michael Heerdegen]

branch: master
commit 536fab673d45a8df019da0e813aded5db25c88d8
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>

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

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