From 3971a3351a5e29d875b7ddb29ca0e6a105dd9df4 Mon Sep 17 00:00:00 2001
From: Satoshi Yatagawa <yata_github@y.hauN.org>
Date: Thu, 18 Feb 2010 00:09:55 +0900
Subject: [PATCH] (twittering-icon-mode): add an argument "P" to 'interactive'.
 (twittering-scroll-mode): likewise. (twittering-jojo-mode): likewise.
 (twittering-toggle-reverse-mode): likewise.

---
 ChangeLog          | 6 ++++++
 twittering-mode.el | 8 ++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e4036477..1ce612e4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,12 @@
 	* twittering-mode.el (twittering-extract-timeline-spec): Check STR
 	is non-nil first for avoiding an error caused by `string-match'.
 
+	* twittering-mode.el (twittering-icon-mode): Add an argument "P"
+	to `interactive'.
+	(twittering-scroll-mode): Likewise.
+	(twittering-jojo-mode): Likewise.
+	(twittering-toggle-reverse-mode): Likewise.
+
 2010-02-16  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el (twittering-get-first-status-head): return
diff --git a/twittering-mode.el b/twittering-mode.el
index 9dea4ac9..b8d92bf0 100644
--- a/twittering-mode.el
+++ b/twittering-mode.el
@@ -335,7 +335,7 @@ You should change through function `twittering-icon-mode'.")
   "Toggle display of icon images on timelines.
 With a numeric argument, if the argument is positive, turn on
 icon mode; otherwise, turn off icon mode."
-  (interactive)
+  (interactive "P")
   (setq twittering-icon-mode
 	(if (null arg)
 	    (not twittering-icon-mode)
@@ -2804,7 +2804,7 @@ variable `twittering-status-format'."
     (setq twittering-timer nil)))
 
 (defun twittering-scroll-mode (&optional arg)
-  (interactive)
+  (interactive "P")
   (setq twittering-scroll-mode
 	(if (null arg)
 	    (not twittering-scroll-mode)
@@ -2812,7 +2812,7 @@ variable `twittering-status-format'."
   (twittering-update-mode-line))
 
 (defun twittering-jojo-mode (&optional arg)
-  (interactive)
+  (interactive "P")
   (setq twittering-jojo-mode
 	(if (null arg)
 	    (not twittering-jojo-mode)
@@ -2820,7 +2820,7 @@ variable `twittering-status-format'."
   (twittering-update-mode-line))
 
 (defun twittering-toggle-reverse-mode (&optional arg)
-  (interactive)
+  (interactive "P")
   (setq twittering-reverse-mode
 	(if (null arg)
 	    (not twittering-reverse-mode)