From: Phil Sainty <psainty@orcon.net.nz>
Date: Sat, 5 Jul 2025 10:35:55 +0000 (+1200)
Subject: ; * lisp/proced.el (proced-update): Display read syntax for filter value
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ccc84522d59b234773c3848a75e7629824fc0ad;p=emacs.git

; * 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 14f4d80a311..f1f7f68b6de 100644
--- 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)