From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 16 Apr 2020 09:27:43 +0000 (+0200)
Subject: Quote semanticdb-ebrowse-default-file-name in regexp
X-Git-Tag: emacs-28.0.90~7572
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7839390f271211882414f167e8e680b3154ee929;p=emacs.git

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

diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index 6262efb5b8f..d63e5bc4869 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