(proced-filter-alist): Use regexp-quote.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6703d9077530f61d9e924cbf4aa9a64619ee3356..f36ffa80ef3893b185b8886d5f17d2d96294a771 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-12-03  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
+
+       * proced.el (proced-filter-alist): Use regexp-quote.
+
 2009-12-03  Michael Albinus  <michael.albinus@gmx.de>
 
        Cleanup.

diff --git a/lisp/proced.el b/lisp/proced.el
index fd3e4ab706e25e7d17a6e8d1b2fa06b99c9a1e82..00c55bd254a400432cdba54a46bf2a81f0ade2af 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -265,8 +265,8 @@ It can also be a list of keys appearing in `proced-grammar-alist'."
 ;; FIXME: is there a better name for filter `user' that does not coincide
 ;; with an attribute key?
 (defcustom proced-filter-alist
-  `((user (user . ,(concat "\\`" (user-real-login-name) "\\'")))
-    (user-running (user . ,(concat "\\`" (user-real-login-name) "\\'"))
+  `((user (user . ,(concat "\\`" (regexp-quote (user-real-login-name)) "\\'")))
+    (user-running (user . ,(concat "\\`" (regexp-quote (user-real-login-name)) "\\'"))
                   (state . "\\`[Rr]\\'"))
     (all)
     (all-running (state . "\\`[Rr]\\'"))