[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 13f1369 1/2: Work around Emacs bug#24542
From: |
Michael Heerdegen |
Subject: |
[elpa] master 13f1369 1/2: Work around Emacs bug#24542 |
Date: |
Sat, 15 Oct 2016 05:05:31 +0000 (UTC) |
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))))