diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-05-26 20:19:26 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-05-26 20:19:26 +0000 |
| commit | c46768fcff4496ae50136039b114bab5ba4c6442 (patch) | |
| tree | 6058233f1c0261cc1effb23dd6da8a3c3325a038 /lisp/edmacro.el | |
| parent | 9d14bd379a030813e16da079f968057d4b831f78 (diff) | |
| download | emacs-c46768fcff4496ae50136039b114bab5ba4c6442.tar.gz emacs-c46768fcff4496ae50136039b114bab5ba4c6442.tar.bz2 emacs-c46768fcff4496ae50136039b114bab5ba4c6442.zip | |
* edmacro.el (edmacro-parse-keys): Fix 2008-08-19 change (Bug#3387).
Diffstat (limited to 'lisp/edmacro.el')
| -rw-r--r-- | lisp/edmacro.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index db8bf6a6c31..96d1bc316fc 100644 --- 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) |