aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-04-13 08:08:11 +0000
committerRichard M. Stallman1997-04-13 08:08:11 +0000
commitd128fe857109398139e3e0fbc3cb8a9f8a45c876 (patch)
tree37970811641eef727c02cbb3e2124cc8b32309c1
parent00ed33e7ab1f430e43aeff27c3aa767590b2207e (diff)
downloademacs-d128fe857109398139e3e0fbc3cb8a9f8a45c876.tar.gz
emacs-d128fe857109398139e3e0fbc3cb8a9f8a45c876.zip
(kbd): New macro.
-rw-r--r--lisp/subr.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 656f02a1b30..edd425d33e6 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -226,6 +226,12 @@ The order of bindings in a keymap matters when it is used as a menu."
226 (setq inserted t))) 226 (setq inserted t)))
227 (setq tail (cdr tail))))) 227 (setq tail (cdr tail)))))
228 228
229(defmacro kbd (keys)
230 "Convert KEYS to the internal Emacs key representation.
231KEYS should be a string constant in the format used for
232saving keyboard macros (see `insert-kbd-macro')."
233 (read-kbd-macro keys))
234
229(put 'keyboard-translate-table 'char-table-extra-slots 0) 235(put 'keyboard-translate-table 'char-table-extra-slots 0)
230 236
231(defun keyboard-translate (from to) 237(defun keyboard-translate (from to)