procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(Bug#76549)
This commit is contained in:
Michael Albinus 2025-02-28 15:32:35 +01:00
parent 0d89aa6b6c
commit 5247da2e3c
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/proced.el
View file

@ -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.