From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Richard M. Stallman" Newsgroups: gmane.emacs.devel Subject: Re: newsticker-start: Recursive laod error Date: Sun, 11 Dec 2005 17:56:49 -0500 Message-ID: References: Reply-To: rms@gnu.org NNTP-Posting-Host: main.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: sea.gmane.org 1134342065 12354 80.91.229.2 (11 Dec 2005 23:01:05 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 11 Dec 2005 23:01:05 +0000 (UTC) Cc: wilde@sha-bang.de, lennart.borgman.073@student.lu.se, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Dec 12 00:01:00 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Ela9p-0000nP-Pm for ged-emacs-devel@m.gmane.org; Sun, 11 Dec 2005 23:59:06 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ElaAH-0007NE-J7 for ged-emacs-devel@m.gmane.org; Sun, 11 Dec 2005 17:59:33 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Ela99-00074C-A9 for emacs-devel@gnu.org; Sun, 11 Dec 2005 17:58:23 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Ela98-00073q-EJ for emacs-devel@gnu.org; Sun, 11 Dec 2005 17:58:22 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ela98-00073h-4S for emacs-devel@gnu.org; Sun, 11 Dec 2005 17:58:22 -0500 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1ElaAk-0000Bl-Ko for emacs-devel@gnu.org; Sun, 11 Dec 2005 18:00:02 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1Ela7d-0007e1-IU; Sun, 11 Dec 2005 17:56:49 -0500 Original-To: zedek@gnu-rox.org In-reply-to: (message from Xavier Maillard on Sun, 11 Dec 2005 09:51:09 +0100) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:47486 Archived-At: Thanks for investigating. Does this fix it? *** newsticker.el 05 Nov 2005 09:36:16 -0500 1.8 --- newsticker.el 11 Dec 2005 13:41:44 -0500 *************** *** 392,397 **** --- 392,423 ---- (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,1198 **** ;; ====================================================================== ;;; 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 --- 1214,1219 ---- *************** *** 3077,3100 **** (newsticker--buffer-beginning-of-item) (let ((age (get-text-property (point) 'nt-age))) (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 --- 3098,3103 ----