Mercurial > emacs
changeset 58836:89cc919b0ccd
`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).
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Wed, 08 Dec 2004 01:10:13 +0000 |
| parents | 9bdd97960431 |
| children | e3c6ff0922c2 |
| files | lisp/edmacro.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/edmacro.el Tue Dec 07 21:56:42 2004 +0000 +++ b/lisp/edmacro.el Wed Dec 08 01:10:13 2004 +0000 @@ -1,6 +1,6 @@ ;;; 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 @@ (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 @@ 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)