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

Merge from origin/emacs-30

Browse source 
5247da2e3c * lisp/proced.el (proced-<): Check, that NUM1 and NUM2 ar...
This commit is contained in:
Eli Zaretskii 2025-03-01 10:01:53 -05:00
commit a7e75dbabd
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.