572 |
(defmacro kbd (keys) |
(defmacro kbd (keys) |
573 |
"Convert KEYS to the internal Emacs key representation. |
"Convert KEYS to the internal Emacs key representation. |
574 |
KEYS should be a string constant in the format used for |
KEYS should be a string constant in the format used for |
575 |
saving keyboard macros (see `insert-kbd-macro')." |
saving keyboard macros (see `edmacro-mode')." |
576 |
(read-kbd-macro keys)) |
(read-kbd-macro keys)) |
577 |
|
|
578 |
(put 'keyboard-translate-table 'char-table-extra-slots 0) |
(put 'keyboard-translate-table 'char-table-extra-slots 0) |
2310 |
|
|
2311 |
(defun global-unset-key (key) |
(defun global-unset-key (key) |
2312 |
"Remove global binding of KEY. |
"Remove global binding of KEY. |
2313 |
KEY is a string representing a sequence of keystrokes." |
KEY is a string or vector representing a sequence of keystrokes." |
2314 |
(interactive "kUnset key globally: ") |
(interactive "kUnset key globally: ") |
2315 |
(global-set-key key nil)) |
(global-set-key key nil)) |
2316 |
|
|
2317 |
(defun local-unset-key (key) |
(defun local-unset-key (key) |
2318 |
"Remove local binding of KEY. |
"Remove local binding of KEY. |
2319 |
KEY is a string representing a sequence of keystrokes." |
KEY is a string or vector representing a sequence of keystrokes." |
2320 |
(interactive "kUnset key locally: ") |
(interactive "kUnset key locally: ") |
2321 |
(if (current-local-map) |
(if (current-local-map) |
2322 |
(local-set-key key nil)) |
(local-set-key key nil)) |