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.
This commit is contained in:
Mattias Engdegård 2020-04-16 11:27:43 +02:00
parent 905c0a13f7
commit 7839390f27

View file

@ -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