From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Fri, 25 Mar 2016 15:33:51 +0000 (+0100)
Subject: Give el-search--s a more meaningful name
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/536fab673d45a8df019da0e813aded5db25c88d8

Give el-search--s a more meaningful name

Rename `el-search--s' to `el-search--transform-nontrivial-lpat'.
---

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 '() '(_)))))