/[emacs]/emacs/lisp/net/newsticker.el
ViewVC logotype

Diff of /emacs/lisp/net/newsticker.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by lektu, Tue Sep 13 08:47:44 2005 UTC revision 1.4 by deego, Sun Sep 18 12:36:08 2005 UTC
# Line 3429  there is another message displayed or th Line 3429  there is another message displayed or th
3429          (setq newsticker--item-position 0))          (setq newsticker--item-position 0))
3430        (setq newsticker--prev-message        (setq newsticker--prev-message
3431              (nth newsticker--item-position newsticker--item-list))              (nth newsticker--item-position newsticker--item-list))
3432        (message newsticker--prev-message))))        (message "%s" newsticker--prev-message))))
3433    
3434  (defun newsticker--display-scroll ()  (defun newsticker--display-scroll ()
3435    "Called from the display timer.    "Called from the display timer.
# Line 3465  there is another message displayed or th Line 3465  there is another message displayed or th
3465              (setq subtext (substring subtext 0 t-width))              (setq subtext (substring subtext 0 t-width))
3466              (setq t-width (1- t-width))))              (setq t-width (1- t-width))))
3467          ;; show the ticker text and save current position          ;; show the ticker text and save current position
3468          (message subtext)          (message "%s" subtext)
3469          (setq newsticker--prev-message subtext)          (setq newsticker--prev-message subtext)
3470          (setq newsticker--item-position (1+ i))          (setq newsticker--item-position (1+ i))
3471          (when (>= newsticker--item-position l)          (when (>= newsticker--item-position l)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26