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