Mercurial > emacs

changeset 106391:07c948701330

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(proced-filter-alist): Use regexp-quote.
author Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
date Thu, 03 Dec 2009 14:33:00 +0000
parents 4eee659fa954
children 456c6061ed5b
files lisp/proced.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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]\\'"))