Mercurial > emacs
comparison lisp/net/newsticker.el @ 67593:b42dfcb5e692
(newsticker--retrieval-timer-list, newsticker--display-timer)
(newsticker-running-p, newsticker-ticker-running-p): Definitions moved up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Dec 2005 01:55:46 +0000 |
| parents | 768e9c3f6b5a |
| children | f6bc825f1a5b 14a4eb789b45 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 67592:de6dc6d7e194 | 67593:b42dfcb5e692 |
|---|---|
| 388 | 388 |
| 389 ;; Silence warnings | 389 ;; Silence warnings |
| 390 (defvar tool-bar-map) | 390 (defvar tool-bar-map) |
| 391 (defvar w3-mode-map) | 391 (defvar w3-mode-map) |
| 392 (defvar w3m-minor-mode-map) | 392 (defvar w3m-minor-mode-map) |
| 393 | |
| 394 ;; ====================================================================== | |
| 395 ;;; Newsticker status | |
| 396 ;; ====================================================================== | |
| 397 | |
| 398 (defvar newsticker--retrieval-timer-list nil | |
| 399 "List of timers for news retrieval. | |
| 400 This is an alist, each element consisting of (feed-name . timer)") | |
| 401 | |
| 402 (defvar newsticker--display-timer nil | |
| 403 "Timer for newsticker display.") | |
| 404 | |
| 405 ;;;###autoload | |
| 406 (defun newsticker-running-p () | |
| 407 "Check whether newsticker is running. | |
| 408 Return t if newsticker is running, nil otherwise. Newsticker is | |
| 409 considered to be running if the newsticker timer list is not empty." | |
| 410 (> (length newsticker--retrieval-timer-list) 0)) | |
| 411 | |
| 412 ;;;###autoload | |
| 413 (defun newsticker-ticker-running-p () | |
| 414 "Check whether newsticker's actual ticker is running. | |
| 415 Return t if ticker is running, nil otherwise. Newsticker is | |
| 416 considered to be running if the newsticker timer list is not | |
| 417 empty." | |
| 418 (timerp newsticker--display-timer)) | |
| 393 | 419 |
| 394 ;; ====================================================================== | 420 ;; ====================================================================== |
| 395 ;;; Customizables | 421 ;;; Customizables |
| 396 ;; ====================================================================== | 422 ;; ====================================================================== |
| 397 (defgroup newsticker nil | 423 (defgroup newsticker nil |
| 1186 (delete arg buffer-invisibility-spec))))) | 1212 (delete arg buffer-invisibility-spec))))) |
| 1187 | 1213 |
| 1188 ;; ====================================================================== | 1214 ;; ====================================================================== |
| 1189 ;;; Internal variables | 1215 ;;; Internal variables |
| 1190 ;; ====================================================================== | 1216 ;; ====================================================================== |
| 1191 (defvar newsticker--display-timer nil | |
| 1192 "Timer for newsticker display.") | |
| 1193 (defvar newsticker--retrieval-timer-list nil | |
| 1194 "List of timers for news retrieval. | |
| 1195 This is an alist, each element consisting of (feed-name . timer)") | |
| 1196 (defvar newsticker--item-list nil | 1217 (defvar newsticker--item-list nil |
| 1197 "List of newsticker items.") | 1218 "List of newsticker items.") |
| 1198 (defvar newsticker--item-position 0 | 1219 (defvar newsticker--item-position 0 |
| 1199 "Actual position in list of newsticker items.") | 1220 "Actual position in list of newsticker items.") |
| 1200 (defvar newsticker--prev-message "There was no previous message yet!" | 1221 (defvar newsticker--prev-message "There was no previous message yet!" |
| 3075 (when (get-text-property (point) 'feed) | 3096 (when (get-text-property (point) 'feed) |
| 3076 (save-excursion | 3097 (save-excursion |
| 3077 (newsticker--buffer-beginning-of-item) | 3098 (newsticker--buffer-beginning-of-item) |
| 3078 (let ((age (get-text-property (point) 'nt-age))) | 3099 (let ((age (get-text-property (point) 'nt-age))) |
| 3079 (and (memq age '(new old obsolete)) t))))) | 3100 (and (memq age '(new old obsolete)) t))))) |
| 3080 | |
| 3081 ;; ====================================================================== | |
| 3082 ;;; Newsticker status | |
| 3083 ;; ====================================================================== | |
| 3084 ;;;###autoload | |
| 3085 (defun newsticker-running-p () | |
| 3086 "Check whether newsticker is running. | |
| 3087 Return t if newsticker is running, nil otherwise. Newsticker is | |
| 3088 considered to be running if the newsticker timer list is not empty." | |
| 3089 (> (length newsticker--retrieval-timer-list) 0)) | |
| 3090 | |
| 3091 ;;;###autoload | |
| 3092 (defun newsticker-ticker-running-p () | |
| 3093 "Check whether newsticker's actual ticker is running. | |
| 3094 Return t if ticker is running, nil otherwise. Newsticker is | |
| 3095 considered to be running if the newsticker timer list is not | |
| 3096 empty." | |
| 3097 (timerp newsticker--display-timer)) | |
| 3098 | 3101 |
| 3099 ;; ====================================================================== | 3102 ;; ====================================================================== |
| 3100 ;;; local stuff | 3103 ;;; local stuff |
| 3101 ;; ====================================================================== | 3104 ;; ====================================================================== |
| 3102 (defun newsticker-get-news (feed-name) | 3105 (defun newsticker-get-news (feed-name) |