mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(edmacro-parse-keys): Fix last change to omit macros of the <<foo>>

Browse Source 
form.
This commit is contained in:
Chong Yidong 2008-09-10 21:51:06 +00:00
parent 39badb7749
commit a6e05096a9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/edmacro.el
View File

@ -697,7 +697,7 @@ This function assumes that the events can be stored in a string."
(times 1) (times 1)
key) key)
;; Try to catch events of the form "<as df>". ;; 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) (setq word (match-string 0 word)
pos (+ word-beg (match-end 0))) pos (+ word-beg (match-end 0)))
(setq word (substring string word-beg word-end) (setq word (substring string word-beg word-end)