[elpa] master 13f1369 1/2: Work around Emacs bug#24542

[Michael Heerdegen]

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

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

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index c10a284..f88297e 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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))))