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 05df7f6ac39..ff5e2f7e0b2 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -444,7 +444,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 @@ -489,9 +490,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) |