a guest Nov 27th, 2018 88 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (defmacro repro ()
- (let* ((kmap-sym (gensym "kmap-")))
- `(let ((,kmap-sym (make-sparse-keymap)))
- (define-key ,kmap-sym "a"
- ',(lambda () (interactive) (message "kmap is %S" (symbol-value kmap-sym))))
- (funcall (lookup-key (repro) "a"))
RAW Paste Data