Commit b680abcb authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

`edit-kbd-macro' is now bound to `C-x C-k e'.

(edmacro-finish-edit): Further update for keyboard macros that are
lambda forms.
(edmacro-sanitize-for-string): Correctly remove Meta modifier
(as suggested by Kim Storm).
parent ad136a7c
;;; edmacro.el --- keyboard macro editor
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994, 2004 Free Software Foundation, Inc.
;; Author: Dave Gillespie <daveg@synaptics.com>
;; Maintainer: Dave Gillespie <daveg@synaptics.com>
......@@ -28,7 +28,7 @@
;;; Usage:
;;
;; The `C-x C-k' (`edit-kbd-macro') command edits a keyboard macro
;; The `C-x C-k e' (`edit-kbd-macro') command edits a keyboard macro
;; in a special buffer. It prompts you to type a key sequence,
;; which should be one of:
;;
......@@ -266,7 +266,8 @@ or nil, use a compact 80-column format."
(and b (commandp b) (not (arrayp b))
(not (kmacro-extract-lambda b))
(or (not (fboundp b))
(not (arrayp (symbol-function b))))
(not (or (arrayp (symbol-function b))
(get b 'kmacro))))
(not (y-or-n-p
(format "Key %s is already defined; %s"
(edmacro-format-keys key 1)
......@@ -655,7 +656,7 @@ The string represents the same events; Meta is indicated by bit 7.
This function assumes that the events can be stored in a string."
(setq seq (copy-sequence seq))
(loop for i below (length seq) do
(when (< (aref seq i) 0)
(when (logand (aref seq i) 128)
(setf (aref seq i) (logand (aref seq i) 127))))
seq)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment