; Fix a typo in proced.el

* lisp/proced.el (proced-filter): Fix a typo.  Reported by Armin
Darvish <armindarvish@gmail.com>.  (Bug#77713)

(cherry picked from commit 3a13fb2069fc861e20fca893aa64dd70dcef0de3)

diff --git a/lisp/proced.el b/lisp/proced.el
index 04a25e5ea645d0623068b92d40a90899d361bb8b..f107b5b6c1f5fb6c44f2132320ff1994c1b68d3f 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1184,7 +1184,7 @@ Return the filtered process list."
             ( ;; apply predicate to each list of attributes
              (eq (car filter) 'function)
              (dolist (process process-alist)
-               (if (funcall (car filter) (cdr process))
+               (if (funcall (cdr filter) (cdr process))
                    (push process new-alist))))
             (t ;; apply predicate to specified attribute
              (let* ((cdrfilter (cdr filter))