Movinge section Mode line to fix byte-compile warning.

Core uses `jabber-mode-line-mode` variable, but it defines a minnor mode. Better
to move the whole section.

1 files changed, 92 insertions, 92 deletions

diff --git a/jabber.el b/jabber.el
index bf8f056..ea5ceb1 100644
--- a/jabber.el
+++ b/jabber.el
@@ -2203,10 +2203,101 @@ what kind of chat buffer is being created.")
       (progn
         (ewoc-enter-last jabber-console-ewoc (list direction (jabber-console-sanitize xml-data)))
 		(when (< 1  jabber-console-truncate-lines)
-		  (let ((jabber-log-lines-to-keep jabber-console-truncate-lines))
+		  (let ((_jabber-log-lines-to-keep jabber-console-truncate-lines))
 			(jabber-truncate-top buffer jabber-console-ewoc)))))))
 ;; jabber-process-console:1 ends here
 
+;; [[file:jabber.org::#mode-line][jabber-mode-line:1]]
+(defgroup jabber-mode-line nil
+  "Display Jabber status in mode line"
+  :group 'jabber)
+;; jabber-mode-line:1 ends here
+
+;; [[file:jabber.org::#mode-line-compact][jabber-mode-line-compact:1]]
+(defcustom jabber-mode-line-compact t
+  "Count contacts in fewer categories for compact view."
+  :group 'jabber-mode-line
+  :type 'boolean)
+;; jabber-mode-line-compact:1 ends here
+
+;; [[file:jabber.org::#mode-line-string][jabber-mode-line-string:1]]
+(defvar jabber-mode-line-string nil)
+;; jabber-mode-line-string:1 ends here
+
+;; [[file:jabber.org::#mode-line-presence][jabber-mode-line-presence:1]]
+(defvar jabber-mode-line-presence nil)
+;; jabber-mode-line-presence:1 ends here
+
+;; [[file:jabber.org::#mode-line-contacts][jabber-mode-line-contacts:1]]
+(defvar jabber-mode-line-contacts nil)
+;; jabber-mode-line-contacts:1 ends here
+
+;; [[file:jabber.org::#mode-line-contacts][jabber-mode-line-contacts:2]]
+(defadvice jabber-send-presence (after jsp-update-mode-line
+				       (show status priority))
+  (jabber-mode-line-presence-update))
+;; jabber-mode-line-contacts:2 ends here
+
+;; [[file:jabber.org::#mode-line-presence-update][jabber-mode-line-presence-update:1]]
+(defun jabber-mode-line-presence-update ()
+  (setq jabber-mode-line-presence (if (and jabber-connections (not *jabber-disconnecting*))
+				      (cdr (assoc *jabber-current-show* jabber-presence-strings))
+				    "Offline")))
+;; jabber-mode-line-presence-update:1 ends here
+
+;; [[file:jabber.org::#mode-line-count-contacts][jabber-mode-line-count-contacts:1]]
+(defun jabber-mode-line-count-contacts (&rest ignore)
+  (let ((count (list (cons "chat" 0)
+		     (cons "" 0)
+		     (cons "away" 0)
+		     (cons "xa" 0)
+		     (cons "dnd" 0)
+		     (cons nil 0))))
+    (dolist (jc jabber-connections)
+      (dolist (buddy (plist-get (fsm-get-state-data jc) :roster))
+	(when (assoc (get buddy 'show) count)
+	  (cl-incf (cdr (assoc (get buddy 'show) count))))))
+    (setq jabber-mode-line-contacts
+	  (if jabber-mode-line-compact
+	      (format "(%d/%d/%d)"
+		      (+ (cdr (assoc "chat" count))
+			 (cdr (assoc "" count)))
+		      (+ (cdr (assoc "away" count))
+			 (cdr (assoc "xa" count))
+			 (cdr (assoc "dnd" count)))
+		      (cdr (assoc nil count)))
+	    (apply 'format "(%d/%d/%d/%d/%d/%d)"
+		   (mapcar 'cdr count))))))
+;; jabber-mode-line-count-contacts:1 ends here
+
+;; [[file:jabber.org::#mode-line-mode][jabber-mode-line-mode:1]]
+(define-minor-mode jabber-mode-line-mode
+  "Toggle display of Jabber status in mode lines.
+Display consists of your own status, and six numbers
+meaning the number of chatty, online, away, xa, dnd
+and offline contacts, respectively."
+  :global t :group 'jabber-mode-line
+  (setq jabber-mode-line-string "")
+  (or global-mode-string (setq global-mode-string '("")))
+  (if jabber-mode-line-mode
+      (progn
+	(add-to-list 'global-mode-string 'jabber-mode-line-string t)
+
+	(setq jabber-mode-line-string (list " "
+					    'jabber-mode-line-presence
+					    " "
+					    'jabber-mode-line-contacts))
+        (put 'jabber-mode-line-string 'risky-local-variable t)
+        (put 'jabber-mode-line-presence 'risky-local-variable t)
+	(jabber-mode-line-presence-update)
+	(jabber-mode-line-count-contacts)
+	(ad-activate 'jabber-send-presence)
+	(add-hook 'jabber-post-disconnect-hook
+		  'jabber-mode-line-presence-update)
+	(add-hook 'jabber-presence-hooks
+		  'jabber-mode-line-count-contacts))))
+;; jabber-mode-line-mode:1 ends here
+
 ;; [[file:jabber.org::#core][core:1]]
 (eval-and-compile
   (or (ignore-errors (require 'fsm))
@@ -11381,97 +11472,6 @@ obtained from `xml-parse-region'."
 		(note ((type . "info")) "Presence has been changed."))))))
 ;; jabber-ahc-presence:1 ends here
 
-;; [[file:jabber.org::#mode-line][jabber-mode-line:1]]
-(defgroup jabber-mode-line nil
-  "Display Jabber status in mode line"
-  :group 'jabber)
-;; jabber-mode-line:1 ends here
-
-;; [[file:jabber.org::#mode-line-compact][jabber-mode-line-compact:1]]
-(defcustom jabber-mode-line-compact t
-  "Count contacts in fewer categories for compact view."
-  :group 'jabber-mode-line
-  :type 'boolean)
-;; jabber-mode-line-compact:1 ends here
-
-;; [[file:jabber.org::#mode-line-string][jabber-mode-line-string:1]]
-(defvar jabber-mode-line-string nil)
-;; jabber-mode-line-string:1 ends here
-
-;; [[file:jabber.org::#mode-line-presence][jabber-mode-line-presence:1]]
-(defvar jabber-mode-line-presence nil)
-;; jabber-mode-line-presence:1 ends here
-
-;; [[file:jabber.org::#mode-line-contacts][jabber-mode-line-contacts:1]]
-(defvar jabber-mode-line-contacts nil)
-;; jabber-mode-line-contacts:1 ends here
-
-;; [[file:jabber.org::#mode-line-contacts][jabber-mode-line-contacts:2]]
-(defadvice jabber-send-presence (after jsp-update-mode-line
-				       (show status priority))
-  (jabber-mode-line-presence-update))
-;; jabber-mode-line-contacts:2 ends here
-
-;; [[file:jabber.org::#mode-line-presence-update][jabber-mode-line-presence-update:1]]
-(defun jabber-mode-line-presence-update ()
-  (setq jabber-mode-line-presence (if (and jabber-connections (not *jabber-disconnecting*))
-				      (cdr (assoc *jabber-current-show* jabber-presence-strings))
-				    "Offline")))
-;; jabber-mode-line-presence-update:1 ends here
-
-;; [[file:jabber.org::#mode-line-count-contacts][jabber-mode-line-count-contacts:1]]
-(defun jabber-mode-line-count-contacts (&rest ignore)
-  (let ((count (list (cons "chat" 0)
-		     (cons "" 0)
-		     (cons "away" 0)
-		     (cons "xa" 0)
-		     (cons "dnd" 0)
-		     (cons nil 0))))
-    (dolist (jc jabber-connections)
-      (dolist (buddy (plist-get (fsm-get-state-data jc) :roster))
-	(when (assoc (get buddy 'show) count)
-	  (cl-incf (cdr (assoc (get buddy 'show) count))))))
-    (setq jabber-mode-line-contacts
-	  (if jabber-mode-line-compact
-	      (format "(%d/%d/%d)"
-		      (+ (cdr (assoc "chat" count))
-			 (cdr (assoc "" count)))
-		      (+ (cdr (assoc "away" count))
-			 (cdr (assoc "xa" count))
-			 (cdr (assoc "dnd" count)))
-		      (cdr (assoc nil count)))
-	    (apply 'format "(%d/%d/%d/%d/%d/%d)"
-		   (mapcar 'cdr count))))))
-;; jabber-mode-line-count-contacts:1 ends here
-
-;; [[file:jabber.org::#mode-line-mode][jabber-mode-line-mode:1]]
-(define-minor-mode jabber-mode-line-mode
-  "Toggle display of Jabber status in mode lines.
-Display consists of your own status, and six numbers
-meaning the number of chatty, online, away, xa, dnd
-and offline contacts, respectively."
-  :global t :group 'jabber-mode-line
-  (setq jabber-mode-line-string "")
-  (or global-mode-string (setq global-mode-string '("")))
-  (if jabber-mode-line-mode
-      (progn
-	(add-to-list 'global-mode-string 'jabber-mode-line-string t)
-
-	(setq jabber-mode-line-string (list " "
-					    'jabber-mode-line-presence
-					    " "
-					    'jabber-mode-line-contacts))
-        (put 'jabber-mode-line-string 'risky-local-variable t)
-        (put 'jabber-mode-line-presence 'risky-local-variable t)
-	(jabber-mode-line-presence-update)
-	(jabber-mode-line-count-contacts)
-	(ad-activate 'jabber-send-presence)
-	(add-hook 'jabber-post-disconnect-hook
-		  'jabber-mode-line-presence-update)
-	(add-hook 'jabber-presence-hooks
-		  'jabber-mode-line-count-contacts))))
-;; jabber-mode-line-mode:1 ends here
-
 ;; [[file:jabber.org::#watch-alist][jabber-watch-alist:1]]
 (defcustom jabber-watch-alist nil
   "Alist of buddies for which an extra notification should be sent