Mercurial > emacs
changeset 103298:70832a352a9c
* edmacro.el (edmacro-parse-keys): Fix 2008-08-19 change (Bug#3387).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 26 May 2009 20:19:26 +0000 |
| parents | 1120e729d920 |
| children | 934b7b9d3a20 |
| files | lisp/ChangeLog lisp/edmacro.el |
| diffstat | 2 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)