changeset 67593:b42dfcb5e692

(newsticker--retrieval-timer-list, newsticker--display-timer) (newsticker-running-p, newsticker-ticker-running-p): Definitions moved up.

--- a/lisp/net/newsticker.el	Fri Dec 16 00:44:41 2005 +0000
+++ b/lisp/net/newsticker.el	Fri Dec 16 01:55:46 2005 +0000
@@ -392,6 +392,32 @@
 (defvar w3m-minor-mode-map)
 
 ;; ======================================================================
+;;; Newsticker status
+;; ======================================================================
+
+(defvar newsticker--retrieval-timer-list nil
+  "List of timers for news retrieval.
+This is an alist, each element consisting of (feed-name . timer)")
+
+(defvar newsticker--display-timer nil
+  "Timer for newsticker display.")
+
+;;;###autoload
+(defun newsticker-running-p ()
+  "Check whether newsticker is running.
+Return t if newsticker is running, nil otherwise.  Newsticker is
+considered to be running if the newsticker timer list is not empty."
+  (> (length newsticker--retrieval-timer-list) 0))
+
+;;;###autoload
+(defun newsticker-ticker-running-p ()
+  "Check whether newsticker's actual ticker is running.
+Return t if ticker is running, nil otherwise.  Newsticker is
+considered to be running if the newsticker timer list is not
+empty."
+  (timerp newsticker--display-timer))
+
+;; ======================================================================
 ;;; Customizables
 ;; ======================================================================
 (defgroup newsticker nil
@@ -1188,11 +1214,6 @@
 ;; ======================================================================
 ;;; Internal variables
 ;; ======================================================================
-(defvar newsticker--display-timer nil
-  "Timer for newsticker display.")
-(defvar newsticker--retrieval-timer-list nil
-  "List of timers for news retrieval.
-This is an alist, each element consisting of (feed-name . timer)")
 (defvar newsticker--item-list nil
   "List of newsticker items.")
 (defvar newsticker--item-position 0
@@ -3079,24 +3100,6 @@
           (and (memq  age '(new old obsolete)) t)))))
 
 ;; ======================================================================
-;;; Newsticker status
-;; ======================================================================
-;;;###autoload
-(defun newsticker-running-p ()
-  "Check whether newsticker is running.
-Return t if newsticker is running, nil otherwise.  Newsticker is
-considered to be running if the newsticker timer list is not empty."
-  (> (length newsticker--retrieval-timer-list) 0))
-
-;;;###autoload
-(defun newsticker-ticker-running-p ()
-  "Check whether newsticker's actual ticker is running.
-Return t if ticker is running, nil otherwise.  Newsticker is
-considered to be running if the newsticker timer list is not
-empty."
-  (timerp newsticker--display-timer))
-
-;; ======================================================================
 ;;; local stuff
 ;; ======================================================================
 (defun newsticker-get-news (feed-name)