From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 28 Feb 2025 14:32:35 +0000 (+0100)
Subject: * lisp/proced.el (proced-<): Check, that NUM1 and NUM2 are numbers.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4f1781800c26708f9e5f9fa3d278a95505c502e;p=emacs.git

* lisp/proced.el (proced-<): Check, that NUM1 and NUM2 are numbers.

(Bug#76549)

(cherry picked from commit 5247da2e3cd2705278bb68e0c5313a6972a6d43c)
---

diff --git a/lisp/proced.el b/lisp/proced.el
index 600188282fc..96466a64f30 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1423,10 +1423,12 @@ a certain refinement, consider defining a new filter in `proced-filter-alist'."
 
 (defun proced-< (num1 num2)
   "Return t if NUM1 less than NUM2.
-Return `equal' if NUM1 equals NUM2.  Return nil if NUM1 greater than NUM2."
-  (if (= num1 num2)
-      'equal
-    (< num1 num2)))
+Return `equal' if NUM1 equals NUM2.  Return nil if NUM1 greater than NUM2.
+If either NUM1 or NUM2 is not a number, return nil."
+  (when (and (numberp num1) (numberp num2))
+    (if (= num1 num2)
+        'equal
+      (< num1 num2))))
 
 (defun proced-string-lessp (s1 s2)
   "Return t if string S1 is less than S2 in lexicographic order.