Fix `twittering-format-string' for a string including newlines.

* twittering-mode.el (twittering-format-string): fix the search of the key string following the prefix from a string including newlines.
hayamiz · Jan 12, 2010 · aa8e7b5 · aa8e7b5
1 parent f473944
commit aa8e7b5
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,9 @@
+2010-01-13  Tadashi MATSUO  <tad@mymail.twin.jp>
+
+	* twittering-mode.el (twittering-format-string): fix the search of
+	the key string following the prefix from a string including
+	newlines.
+
 2010-01-12  Yuto Hayamizu  <y.hayamizu@gmail.com>
 
 	* test/run-test.sh (exit_status): add 'emacs' command to test

diff --git a/twittering-mode.el b/twittering-mode.el
@@ -1700,7 +1700,7 @@ following symbols;
 		(value (cdar current-table))
 		(following-string (substring string current-pos))
 		(case-fold-search nil))
-	    (if (string-match (concat "^" key) following-string)
+	    (if (string-match (concat "\\`" key) following-string)
 		(let ((next-pos (+ current-pos (match-end 0)))
 		      (output
 		       (if (stringp value)