[elpa] externals/el-search 1bfe7c0 110/332: Simplify `el-search--transform-nontrivial-lpat'

[Stefan Monnier]

branch: externals/el-search
commit 1bfe7c0d38e895dfa653c165c5cfe8b6a112075a
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

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

diff --git a/el-search.el b/el-search.el
index 39c8026..d20d5fb 100644
--- a/el-search.el
+++ b/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.