diff options
| author | Chong Yidong | 2008-09-10 21:51:06 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-09-10 21:51:06 +0000 |
| commit | a6e05096a9af5bbf183374aabdc88404f351fa11 (patch) | |
| tree | 6fe0ddc344636c7bf551848a9e4531cdbf98605e | |
| parent | 39badb7749d690905733c97e95dd4d4461d2d38b (diff) | |
| download | emacs-a6e05096a9af5bbf183374aabdc88404f351fa11.tar.gz emacs-a6e05096a9af5bbf183374aabdc88404f351fa11.zip | |
(edmacro-parse-keys): Fix last change to omit macros of the <<foo>>
form.
| -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 be948ad579f..29f99676062 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el | |||
| @@ -697,7 +697,7 @@ This function assumes that the events can be stored in a string." | |||
| 697 | (times 1) | 697 | (times 1) |
| 698 | key) | 698 | key) |
| 699 | ;; Try to catch events of the form "<as df>". | 699 | ;; Try to catch events of the form "<as df>". |
| 700 | (if (string-match "^<[^ >\t\n\f][^>\t\n\f]*>" word) | 700 | (if (string-match "^<[^ <>\t\n\f][^>\t\n\f]*>" word) |
| 701 | (setq word (match-string 0 word) | 701 | (setq word (match-string 0 word) |
| 702 | pos (+ word-beg (match-end 0))) | 702 | pos (+ word-beg (match-end 0))) |
| 703 | (setq word (substring string word-beg word-end) | 703 | (setq word (substring string word-beg word-end) |