mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Roland Winkler 2009-12-03 14:34:04 +00:00
parent a09dc9bf9c
commit 0d4dc44285
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

4
lisp/proced.el
View File

@ -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]\\'"))