From: Evgenii T. <evg...@us...> - 2008-03-08 12:41:28
|
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 |