Mercurial > emacs

comparison lisp/net/newst-ticker.el @ 106460:e341c53bc4af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed Bug#5096.
author Ulf Jasper <ulf.jasper@web.de>
date Sun, 06 Dec 2009 19:49:04 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
106459:44e685ee32cb 106460:e341c53bc4af
5 5
6 ;; Author: Ulf Jasper <ulf.jasper@web.de> 6 ;; Author: Ulf Jasper <ulf.jasper@web.de>
7 ;; Filename: newst-ticker.el 7 ;; Filename: newst-ticker.el
8 ;; URL: http://www.nongnu.org/newsticker 8 ;; URL: http://www.nongnu.org/newsticker
9 ;; Keywords: News, RSS, Atom 9 ;; Keywords: News, RSS, Atom
10 ;; Time-stamp: "13. Juni 2008, 19:28:50 (ulf)" 10 ;; Time-stamp: "6. Dezember 2009, 19:16:00 (ulf)"
11 11
12 ;; ====================================================================== 12 ;; ======================================================================
13 13
14 ;; This file is part of GNU Emacs. 14 ;; This file is part of GNU Emacs.
15 15
33 ;; See newsticker.el 33 ;; See newsticker.el
34 34
35 ;; ====================================================================== 35 ;; ======================================================================
36 ;;; Code: 36 ;;; Code:
37 37
38 (require 'newsticker-backend "newst-backend") 38 (require 'newst-backend)
39 39
40 (defvar newsticker--ticker-timer nil 40 (defvar newsticker--ticker-timer nil
41 "Timer for newsticker ticker.") 41 "Timer for newsticker ticker.")
42 42
43 ;;;###autoload 43 ;;;###autoload
285 (if (string-match (concat "^\\+\\+\\+ [A-Z][a-z]+, " 285 (if (string-match (concat "^\\+\\+\\+ [A-Z][a-z]+, "
286 "[012]?[0-9]:[0-9][0-9] \\+\\+\\+\\+\\+\\+$") 286 "[012]?[0-9]:[0-9][0-9] \\+\\+\\+\\+\\+\\+$")
287 newsticker--scrollable-text) 287 newsticker--scrollable-text)
288 (setq newsticker--scrollable-text "")))) 288 (setq newsticker--scrollable-text ""))))
289 289
290 (provide 'newsticker-ticker) 290 (provide 'newst-ticker)
291 291
292 ;; arch-tag: faee3ebb-749b-4935-9835-7f36d4b700f0 292 ;; arch-tag: faee3ebb-749b-4935-9835-7f36d4b700f0
293 ;;; newst-ticker.el ends here 293 ;;; newst-ticker.el ends here