; * lisp/proced.el (proced-update): Display read syntax for filter value

Also eliminate unnecessary concat.

(cherry picked from commit e55f61d1af96aee373f0e5348792e9245dc7fdbb)

diff --git a/lisp/proced.el b/lisp/proced.el
index 14f4d80a311ec95cfe915fabe1ef98423396c319..f1f7f68b6de5319a157e13453efdb5c0a70d937e 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -2027,7 +2027,7 @@ After updating a displayed Proced buffer run the normal hook
     (setq mode-name
           (concat "Proced"
                   (if proced-filter
-                      (concat ": " (format "%s" proced-filter))
+                      (format ": %S" proced-filter)
                     "")
                   (if proced-sort
                       (let* ((key (if (consp proced-sort) (car proced-sort)