[Emacs-diffs] Changes to emacs/lisp/net/newsticker.el

[Richard M. Stallman]

Index: emacs/lisp/net/newsticker.el
diff -u emacs/lisp/net/newsticker.el:1.8 emacs/lisp/net/newsticker.el:1.9
--- emacs/lisp/net/newsticker.el:1.8    Fri Nov  4 15:15:39 2005
+++ emacs/lisp/net/newsticker.el        Fri Dec 16 01:55:46 2005
@@ -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)