From 0d4dc44285a2e084f4bde4082104d0b9e900d97f Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Thu, 3 Dec 2009 14:34:04 +0000 Subject: [PATCH] (proced-filter-alist): Use regexp-quote. --- lisp/ChangeLog | 4 ++++ lisp/proced.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6703d907753..f36ffa80ef3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-12-03 Roland Winkler + + * proced.el (proced-filter-alist): Use regexp-quote. + 2009-12-03 Michael Albinus Cleanup. diff --git a/lisp/proced.el b/lisp/proced.el index fd3e4ab706e..00c55bd254a 100644 --- 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]\\'")) -- 2.39.5