# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1221083466 0
# Node ID 0007d69c4e5a113e4e5c221c192284059e6658b7
# Parent  a20e31c64c31b5ad86e6aab7390eeab31f230b0c
(edmacro-parse-keys): Fix last change to omit macros of the <<foo>>
form.

diff -r a20e31c64c31 -r 0007d69c4e5a lisp/edmacro.el
--- a/lisp/edmacro.el	Wed Sep 10 21:50:15 2008 +0000
+++ b/lisp/edmacro.el	Wed Sep 10 21:51:06 2008 +0000
@@ -697,7 +697,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)