Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Emacs Lisp bytecode disassembly for keyboard bindings
byte code:
args: nil
0 constant global-set-key
1 constant ""
2 constant backward-delete-char-untabify
3 call 2
4 discard
5 constant local-set-key
6 constant "m"
7 constant vm-mail
8 call 2
9 discard
10 constant global-set-key
11 constant [134217747]
12 constant isearch-forward
13 call 2
14 discard
15 constant local-set-key
16 constant [134217746]
17 constant isearch-backward
18 call 2
19 return
(global-set-key "C-h" 'backward-delete-char-untabify)
(local-set-key "C-xm" 'vm-mail)
(global-set-key '[134217747] 'isearch-forward)
(local-set-key '[134217746] 'isearch-backward))
# eldecompile of LAP
0. body
exprs (4)
0. expr_stmt (2)
0. expr
call_exprn (4)
0. expr
name_expr
0 CONSTANT global-set-key
1. expr
name_expr
1 CONSTANT "
2. expr
name_expr
2 CONSTANT backward-delete-char-untabify
3. 3 CALL_3 3
1. opt_discard
4 DISCARD
1. expr_stmt (2)
0. expr
call_exprn (4)
0. expr
name_expr
5 CONSTANT local-set-key
1. expr
name_expr
6 CONSTANT "m"
2. expr
name_expr
7 CONSTANT vm-mail
3. 8 CALL_3 3
1. opt_discard
9 DISCARD
2. expr_stmt (2)
0. expr
call_exprn (4)
0. expr
name_expr
10 CONSTANT global-set-key
1. expr
name_expr
11 CONSTANT [134217747]
2. expr
name_expr
12 CONSTANT isearch-forward
3. 13 CALL_3 3
1. opt_discard
14 DISCARD
3. expr_stmt (2)
0. expr
call_exprn (4)
0. expr
name_expr
15 CONSTANT local-set-key
1. expr
name_expr
16 CONSTANT [134217746]
2. expr
name_expr
17 CONSTANT isearch-backward
3. 18 CALL_3 3
1. opt_discard
1. opt_return
19 RETURN
(defun unknown()
(global-set-key "\C-h" 'backward-delete-char-untabify)
(local-set-key "\C-xm" 'vm-mail)
(global-set-key (kbd "C-M-s") 'isearch-forward)
(local-set-key (kbd "C-M-r") 'isearch-backward)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.