[elpa] externals/el-search 6ff7aa4 116/332: Work around Emacs bug#24542

[Stefan Monnier]

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

    Work around Emacs bug#24542
    
    Avoid calling `scan-sexps' directly before the symbol `@' since it may
    error.
---
 el-search.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/el-search.el b/el-search.el
index c10a284..f88297e 100644
--- a/el-search.el
+++ b/el-search.el
@@ -506,6 +506,8 @@ Return PATTERN if this pattern type was not defined with
   ;; point instead.
   (when read (setq expression (save-excursion (read (current-buffer)))))
   (cond
+   ((eq '@ expression) ;bug#24542
+    (forward-char))
    ((or (null expression)
         (equal [] expression)
         (not (or (listp expression) (vectorp expression))))