diff options
Diffstat (limited to 'lisp/edmacro.el')
| -rw-r--r-- | lisp/edmacro.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index ff5e2f7e0b2..68de4404cb8 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -444,8 +444,7 @@ doubt, use whitespace." (rest-mac (vconcat macro [end-macro])) (res "") (len 0) - (one-line (eq verbose 1)) - (fkm (terminal-local-value 'local-function-key-map nil))) + (one-line (eq verbose 1))) (if one-line (setq verbose nil)) (when (stringp macro) (loop for i below (length macro) do @@ -490,9 +489,9 @@ doubt, use whitespace." (fkey nil) tlen tkey (bind (or (loop for map in maps for b = (lookup-key map key) thereis (and (not (integerp b)) b)) - (and (setq fkey (lookup-key fkm rest-mac)) + (and (setq fkey (lookup-key local-function-key-map rest-mac)) (setq tlen fkey tkey (edmacro-subseq rest-mac 0 tlen) - fkey (lookup-key fkm tkey)) + fkey (lookup-key local-function-key-map tkey)) (loop for map in maps for b = (lookup-key map fkey) when (and (not (integerp b)) b) |