# HG changeset patch
# User Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
# Date 1259850780 0
# Node ID 07c948701330fd35839a2546bac3f9e98c0dd400
# Parent  4eee659fa95492ce3c6aa2de2423fa6bec325b1b
(proced-filter-alist): Use regexp-quote.

diff -r 4eee659fa954 -r 07c948701330 lisp/proced.el
--- a/lisp/proced.el	Thu Dec 03 11:34:11 2009 +0000
+++ b/lisp/proced.el	Thu Dec 03 14:33:00 2009 +0000
@@ -265,8 +265,8 @@
 ;; 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]\\'"))