# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1243369166 0
# Node ID 70832a352a9c434e6afd6cddd3d66f075088a2a9
# Parent  1120e729d92060fe50dde83a800eb1ff9e851995
* edmacro.el (edmacro-parse-keys): Fix 2008-08-19 change (Bug#3387).

diff -r 1120e729d920 -r 70832a352a9c lisp/ChangeLog
--- a/lisp/ChangeLog	Tue May 26 18:19:27 2009 +0000
+++ b/lisp/ChangeLog	Tue May 26 20:19:26 2009 +0000
@@ -1,5 +1,8 @@
 2009-05-26  Chong Yidong  <cyd@stupidchicken.com>
 
+	* edmacro.el (edmacro-parse-keys): Fix 2008-08-19
+	change (Bug#3387).
+
 	* view.el (view-recenter): Allow recenter to compute window height
 	normally.
 	(view-window-size): Use window-line-height to find window height.
diff -r 1120e729d920 -r 70832a352a9c lisp/edmacro.el
--- a/lisp/edmacro.el	Tue May 26 18:19:27 2009 +0000
+++ b/lisp/edmacro.el	Tue May 26 20:19:26 2009 +0000
@@ -698,7 +698,7 @@
 	     (times 1)
 	     key)
 	;; Try to catch events of the form "<as df>".
-	(if (string-match "^<[^ <>\t\n\f][^>\t\n\f]*>" word)
+	(if (string-match "\\`<[^ <>\t\n\f][^>\t\n\f]*>" word)
 	    (setq word (match-string 0 word)
 		  pos (+ word-beg (match-end 0)))
 	  (setq word (substring string word-beg word-end)