[Emacs-diffs] emacs/lisp ChangeLog edmacro.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/05/26 20:19:34

Modified files:
        lisp           : ChangeLog edmacro.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15660&r2=1.15661
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/edmacro.el?cvsroot=emacs&r1=1.53&r2=1.54

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15660
retrieving revision 1.15661
diff -u -b -r1.15660 -r1.15661
--- ChangeLog   26 May 2009 18:19:27 -0000      1.15660
+++ ChangeLog   26 May 2009 20:19:26 -0000      1.15661
@@ -1,5 +1,8 @@
 2009-05-26  Chong Yidong  <address@hidden>
 
+       * 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.

Index: edmacro.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/edmacro.el,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- edmacro.el  5 Jan 2009 03:19:02 -0000       1.53
+++ edmacro.el  26 May 2009 20:19:34 -0000      1.54
@@ -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)