Skip to content

Instantly share code, notes, and snippets.

@frostidaho
Created June 11, 2016 19:42
Show Gist options
  • Save frostidaho/75de99e0145a3787f393de4d6234daca to your computer and use it in GitHub Desktop.
Save frostidaho/75de99e0145a3787f393de4d6234daca to your computer and use it in GitHub Desktop.
(bind-chords ("f;" . forward-sexp)
:map minibuffer-local-map
("g;" . minibuffer-keyboard-quit))
;; bind-chords errors with:
;; Debugger entered--Lisp error: (wrong-type-argument listp :map)
;; #[(form) "\203 \302\303\"\207\304 @\305 ADEC\207" [maps form mapcar #[(m) "\302@\303AD F\207" [form m bind-chord quote] 4] bind-chord quote] 4](:map)
;; mapcar(#[(form) "\203 \302\303\"\207\304 @\305 ADEC\207" [maps form mapcar #[(m) "\302@\303AD F\207" [form m bind-chord quote] 4] bind-chord quote] 4] (("f;" . forward-sexp) :map minibuffer-local-map ("g;" . minibuffer-keyboard-quit)))
;; #[(&rest args) "\304\305\"\211<\203 \202 C\306@!\203%\211A\210\211A\210\202\307\310\311\312\313 \"\"!+\207" [args map maps key-bindings plist-get :map keywordp macroexp-progn apply nconc mapcar #[(form) "\203 \302\303\"\207\304 @\305 ADEC\207" [maps form mapcar #[(m) "\302@\303AD F\207" [form m bind-chord quote] 4] bind-chord quote] 4]] 7 ("/home/ida/.cache/emacs_packages/bind-chord-20160530.1042/bind-chord.elc" . 865)](("f;" . forward-sexp) :map minibuffer-local-map ("g;" . minibuffer-keyboard-quit))
;; macroexpand((bind-chords ("f;" . forward-sexp) :map minibuffer-local-map ("g;" . minibuffer-keyboard-quit)))
;; elisp--eval-defun()
;; eval-defun(nil)
;; funcall-interactively(eval-defun nil)
;; call-interactively(eval-defun nil nil)
;; command-execute(eval-defun)
;; bind-keys works here
(bind-keys ("C-c f" . forward-sexp)
:map minibuffer-local-map
("C-c g" . minibuffer-keyboard-quit))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment