[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7839390 3/4: Quote semanticdb-ebrowse-default-file-name in regexp
|
From: |
Mattias Engdegård |
|
Subject: |
master 7839390 3/4: Quote semanticdb-ebrowse-default-file-name in regexp |
|
Date: |
Thu, 16 Apr 2020 06:14:52 -0400 (EDT) |
branch: master
commit 7839390f271211882414f167e8e680b3154ee929
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>
Quote semanticdb-ebrowse-default-file-name in regexp
Noticed by Andreas Schwab.
* lisp/cedet/semantic/db-ebrowse.el (semanticdb-load-ebrowse-caches):
Quote file name in regexp.
---
lisp/cedet/semantic/db-ebrowse.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/cedet/semantic/db-ebrowse.el
b/lisp/cedet/semantic/db-ebrowse.el
index 6262efb..d63e5bc 100644
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -181,7 +181,8 @@ is specified by `semanticdb-default-save-directory'."
"Load all semanticdb controlled EBROWSE caches."
(interactive)
(let ((f (directory-files semanticdb-default-save-directory
- t (concat semanticdb-ebrowse-default-file-name
+ t (concat (regexp-quote
+ semanticdb-ebrowse-default-file-name)
"-load\\.el\\'")
t)))
(while f