2 files changed, 13 insertions, 13 deletions
diff --git a/jabber.el b/jabber.el
index 422ed99..df6b3f2 100644
--- a/jabber.el
+++ b/jabber.el
@@ -3819,10 +3819,10 @@ JC is the Jabber connection."
 Return t if A is less than B."
   (let ((result nil))
     (seq-find (lambda (fn)
-                (setq result (funcall fn a b))
-                (not (= result 0)))
-              jabber-roster-sort-functions)
-    (< result 0))))
+		(setq result (funcall fn a b))
+		(not (= result 0)))
+	      jabber-roster-sort-functions)
+    (< result 0)))
 ;; jabber-roster-sort-items:1 ends here
 
 ;; [[file:jabber.org::#roster-sort-by-status][jabber-roster-sort-by-status:1]]
diff --git a/jabber.org b/jabber.org
index ab6776e..0a77f3f 100644
--- a/jabber.org
+++ b/jabber.org
@@ -4740,15 +4740,15 @@ JC is the Jabber connection."
 :CUSTOM_ID: roster-sort-items
 :END:
 #+BEGIN_SRC emacs-lisp
-  (defun jabber-roster-sort-items (a b)
-    "Sort roster items A and B according to `jabber-roster-sort-functions'.
-  Return t if A is less than B."
-    (let ((result nil))
-      (seq-find (lambda (fn)
-                  (setq result (funcall fn a b))
-                  (not (= result 0)))
-                jabber-roster-sort-functions)
-      (< result 0))))
+(defun jabber-roster-sort-items (a b)
+  "Sort roster items A and B according to `jabber-roster-sort-functions'.
+Return t if A is less than B."
+  (let ((result nil))
+    (seq-find (lambda (fn)
+		(setq result (funcall fn a b))
+		(not (= result 0)))
+	      jabber-roster-sort-functions)
+    (< result 0)))
 #+END_SRC
 
 *** jabber-roster-sort-by-status                  :function: