From 536fab673d45a8df019da0e813aded5db25c88d8 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Fri, 25 Mar 2016 16:33:51 +0100 Subject: [PATCH] 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 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 '() '(_))))) -- 2.39.2