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

    Complete and document what a SYMBOL in `l' matches
---
 packages/el-search/el-search.el |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 57e4505..05378a8 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -664,7 +664,9 @@ matches any of these expressions:
 
 (defun el-search--s (expr)
   (cond
-   ((symbolp expr) `(symbol ,(symbol-name expr)))
+   ((symbolp expr) `(or (symbol ,(symbol-name expr))
+                        (,'\` (,'quote    (,'\, (symbol ,(symbol-name expr)))))
+                        (,'\` (,'function (,'\, (symbol ,(symbol-name 
expr)))))))
    ((stringp expr) `(string ,expr))
    (t expr)))
 
@@ -678,8 +680,8 @@ with very brief input by using a specialized syntax.
 
 An LPAT can take the following forms:
 
-SYMBOL  Matches any symbol matched by SYMBOL's name interpreted as
-        a regexp
+SYMBOL  Matches any symbol S matched by SYMBOL's name interpreted
+        as a regexp.  Matches also 'S and #'S for any such S.
 STRING  Matches any string matched by STRING interpreted as a
         regexp
 _       Matches any list element

Reply via email to