* edmacro.el (edmacro-parse-keys): Fix 2008-08-19 change (Bug#3387).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59c44bb422157d754ab672acb8c8d1a9f2943dd1..73c8c3f1a3966fe1a89764a20e88cfc13cb74162 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/edmacro.el b/lisp/edmacro.el
index db8bf6a6c31048dca3c32a815cf79db3518fb52d..96d1bc316fcbfb900db627e3dad8490beb360989 100644 (file)
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -698,7 +698,7 @@ This function assumes that the events can be stored in a string."
             (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)