Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv26494
Modified Files:
jabber-util.el
Log Message:
Function string>-numerical added
Index: jabber-util.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-util.el,v
retrieving revision 2.56
retrieving revision 2.57
diff -u -d -r2.56 -r2.57
--- jabber-util.el 24 Feb 2008 11:13:34 -0000 2.56
+++ jabber-util.el 8 Mar 2008 12:41:16 -0000 2.57
@@ -629,6 +629,15 @@
;; url package might lose information.
(jabber-handle-uri (url-recreate-url url)))
+(defun string>-numerical (s1 s2)
+ "Return t if first arg string is more than second in numerical order."
+ (cond ((string= s1 s2) nil)
+ ((> (length s1) (length s2)) t)
+ ((< (length s1) (length s2)) nil)
+ ((< (string-to-number (substring s1 0 1)) (string-to-number (substring s2 0 1))) nil)
+ ((> (string-to-number (substring s1 0 1)) (string-to-number (substring s2 0 1))) t)
+ (t (string>-numerical (substring s1 1) (substring s2 1)))))
+
(provide 'jabber-util)
;;; arch-tag: cfbb73ac-e2d7-4652-a08d-dc789bcded8a
|
