From a4f1781800c26708f9e5f9fa3d278a95505c502e Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 28 Feb 2025 15:32:35 +0100 Subject: [PATCH] * lisp/proced.el (proced-<): Check, that NUM1 and NUM2 are numbers. (Bug#76549) (cherry picked from commit 5247da2e3cd2705278bb68e0c5313a6972a6d43c) --- lisp/proced.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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. -- 2.39.5