1 |
commit: 3451d7ab62b52cdf5c6d069c22ceceaf69c5b218 |
2 |
Author: Ulrich Müller <ulm <AT> gentoo <DOT> org> |
3 |
AuthorDate: Fri Apr 7 16:48:04 2017 +0000 |
4 |
Commit: Ulrich Müller <ulm <AT> gentoo <DOT> org> |
5 |
CommitDate: Fri Apr 7 16:48:04 2017 +0000 |
6 |
URL: https://gitweb.gentoo.org/proj/emacs-tools.git/commit/?id=3451d7ab |
7 |
|
8 |
Call regexp-opt without duplicates in its argument list. |
9 |
|
10 |
* ebuild-mode.el (ebuild-mode-make-keywords-list): Call regexp-opt |
11 |
without duplicates in its argument list. |
12 |
|
13 |
ChangeLog | 5 +++++ |
14 |
ebuild-mode.el | 2 +- |
15 |
2 files changed, 6 insertions(+), 1 deletion(-) |
16 |
|
17 |
diff --git a/ChangeLog b/ChangeLog |
18 |
index 5dc7fe2..4cd3357 100644 |
19 |
--- a/ChangeLog |
20 |
+++ b/ChangeLog |
21 |
@@ -1,3 +1,8 @@ |
22 |
+2017-04-07 Ulrich Müller <ulm@g.o> |
23 |
+ |
24 |
+ * ebuild-mode.el (ebuild-mode-make-keywords-list): Call regexp-opt |
25 |
+ without duplicates in its argument list. |
26 |
+ |
27 |
2017-03-31 Ulrich Müller <ulm@g.o> |
28 |
|
29 |
* ebuild-mode.el (ebuild-mode-before-save): |
30 |
|
31 |
diff --git a/ebuild-mode.el b/ebuild-mode.el |
32 |
index d24355b..cdd06ef 100644 |
33 |
--- a/ebuild-mode.el |
34 |
+++ b/ebuild-mode.el |
35 |
@@ -213,7 +213,7 @@ of lines." |
36 |
(error "Keywords argument must be a list of strings")) |
37 |
(cons (concat prefix "\\<" |
38 |
(let ((max-specpdl-size (max max-specpdl-size 2000))) |
39 |
- (regexp-opt keywords-list t)) |
40 |
+ (regexp-opt (delete-dups keywords-list) t)) |
41 |
"\\>" suffix) |
42 |
face)) |