Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

to keep a backward compatibility.

  • Loading branch information...
commit 4494eb9f920f66c14a32e14ce455a4f8723bda1f 1 parent 5cf23ef
@yata yata authored committed
Showing with 12 additions and 0 deletions.
  1. +6 −0 ChangeLog
  2. +6 −0 twittering-mode.el
View
6 ChangeLog
@@ -1,3 +1,9 @@
+2009-11-13 Satoshi Yatagawa <yata_github@y.hauN.org>
+
+ * twittering-mode.el (twittering-convert-last-timeline-retrieved):
+ New defun to keep a backward compatibility.
+ (twittering-last-host, twittering-last-method): Call it.
+
2009-11-09 Satoshi Yatagawa <yata_github@y.hauN.org>
* twittering-mode.el (twittering-mode-map): Bind "L" to
View
6 twittering-mode.el
@@ -75,9 +75,15 @@ stored here. DO NOT SET VALUE MANUALLY.")
(defvar twittering-last-timeline-retrieved nil)
(defun twittering-last-host ()
+ (twittering-convert-last-timeline-retrieved)
(car twittering-last-timeline-retrieved))
(defun twittering-last-method ()
+ (twittering-convert-last-timeline-retrieved)
(nth 1 twittering-last-timeline-retrieved))
+(defun twittering-convert-last-timeline-retrieved ()
+ (and (stringp twittering-last-timeline-retrieved)
+ (setq twittering-last-timeline-retrieved
+ `("twitter.com" ,twittering-last-timeline-retrieved))))
(defvar twittering-list-index-retrieved nil)
(defvar twittering-new-tweets-count 0
Please sign in to comment.
Something went wrong with that request. Please try again.