fix a meaningless search in 'twittering-http-get-list-index-sentinel'.

hayamiz · Dec 27, 2009 · 03a1be7 · 03a1be7
1 parent 3b8d758
commit 03a1be7
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -10,6 +10,10 @@
 	* twittering-mode.el (twittering-other-user-list-interactive): Fix
 	condition to detect a cancel.
 
+	* twittering-mode.el (twittering-http-get-list-index-sentinel):
+	Use `search-forward-regexp' instead of `search-forward' to fix a
+	meaningless search.
+
 2009-12-26  Yuto Hayamizu  <y.hayamizu@gmail.com>
 
 	* twittering-mode.el (twittering-ensure-ca-cert): kludge for ssl

diff --git a/twittering-mode.el b/twittering-mode.el
@@ -853,10 +853,10 @@ Available keywords:
 		(save-excursion
 		  (set-buffer temp-buffer)
 		  (goto-char (point-min))
-		  (search-forward "\r?\n\r?\n" nil t)
-		  (while (re-search-forward
-			  "<slug>\\([-a-zA-Z0-9_]+\\)</slug>" nil t)
-		    (push (match-string 1) indexes))
+		  (if (search-forward-regexp "\r?\n\r?\n" nil t)
+		      (while (re-search-forward
+			      "<slug>\\([-a-zA-Z0-9_]+\\)</slug>" nil t)
+			(push (match-string 1) indexes)))
 		  (if indexes
 		      (setq twittering-list-index-retrieved indexes)
 		    (setq twittering-list-index-retrieved ""))))