From 1057e904089f9b899febc13372ae741a783fe062 Mon Sep 17 00:00:00 2001 From: Satoshi Yatagawa Date: Sat, 6 Mar 2010 20:47:12 +0900 Subject: [PATCH] (twittering-http-default-sentinel): call 'twittering-switch-timeline' and 'twittering-release-process' only when 'proc' is non-nil. --- ChangeLog | 4 ++++ twittering-mode.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 70efa9ea..4f159592 100644 --- a/ChangeLog +++ b/ChangeLog @@ -27,6 +27,10 @@ (twittering-update-jojo): Likewise. (twittering-native-retweet): Likewise. + * twittering-mode.el (twittering-http-default-sentinel): Call + `twittering-switch-timeline' and `twittering-release-process' only + when `proc' is non-nil. + 2010-03-03 Tadashi MATSUO * twittering-mode.el (twittering-toggle-reverse-mode): invoke diff --git a/twittering-mode.el b/twittering-mode.el index 81805bc7..38edfac5 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -2889,8 +2889,9 @@ variable `twittering-status-format'." (word (and is-search-spec (cadr spec))) (proc (twittering-get-tweets host method noninteractive id since_id word))) - (twittering-switch-timeline spec-string) - (twittering-register-process proc spec))))) + (when proc + (twittering-switch-timeline spec-string) + (twittering-register-process proc spec)))))) (t (let ((type (car spec))) (error "%s has not been supported yet" type))))))