diff options
| author | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> | 2009-12-03 14:34:04 +0000 |
|---|---|---|
| committer | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> | 2009-12-03 14:34:04 +0000 |
| commit | 0d4dc44285a2e084f4bde4082104d0b9e900d97f (patch) | |
| tree | a17ca8d1089b05819613b6ea98b5a8d6d3f9a142 /lisp/proced.el | |
| parent | a09dc9bf9c3c40638d3fe6bf1905de05d7dac6fb (diff) | |
| download | emacs-0d4dc44285a2e084f4bde4082104d0b9e900d97f.tar.gz | |
(proced-filter-alist): Use regexp-quote.
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 4 |
1 files changed, 2 insertions, 2 deletions
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]\\'")) |