[elpa] master b43ac18 2/2: Simplify `el-search--transform-nontrivial-lpat'

[Michael Heerdegen]

branch: master
commit b43ac1878e71c2381b398c21bf2482c5bb80e8e0
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    Simplify `el-search--transform-nontrivial-lpat'
---
 packages/el-search/el-search.el |   13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 39c8026..d20d5fb 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -826,12 +826,13 @@ matches any of these expressions:
   `(pred (el-search--match-key-sequence ,key-sequence)))
 
 (defun el-search--transform-nontrivial-lpat (expr)
-  (cond
-   ((symbolp expr) `(or (symbol ,(symbol-name expr))
-                        `',(symbol ,(symbol-name expr))
-                        `#',(symbol ,(symbol-name expr))))
-   ((stringp expr) `(string ,expr))
-   (t expr)))
+  (pcase expr
+    ((and (pred symbolp) (let symbol-name (symbol-name expr)))
+     `(or (symbol ,symbol-name)
+          `',(symbol  ,symbol-name)
+          `#',(symbol ,symbol-name)))
+    ((pred stringp) `(string ,expr))
+    (_ expr)))
 
 (el-search-defpattern l (&rest lpats)
   "Alternative pattern type for matching lists.