1 |
;;; edmacro.el --- keyboard macro editor |
;;; edmacro.el --- keyboard macro editor |
2 |
|
|
3 |
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1994, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dave Gillespie <daveg@synaptics.com> |
;; Author: Dave Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Dave Gillespie <daveg@synaptics.com> |
;; Maintainer: Dave Gillespie <daveg@synaptics.com> |
28 |
|
|
29 |
;;; Usage: |
;;; Usage: |
30 |
;; |
;; |
31 |
;; 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 |
32 |
;; in a special buffer. It prompts you to type a key sequence, |
;; in a special buffer. It prompts you to type a key sequence, |
33 |
;; which should be one of: |
;; which should be one of: |
34 |
;; |
;; |
266 |
(and b (commandp b) (not (arrayp b)) |
(and b (commandp b) (not (arrayp b)) |
267 |
(not (kmacro-extract-lambda b)) |
(not (kmacro-extract-lambda b)) |
268 |
(or (not (fboundp b)) |
(or (not (fboundp b)) |
269 |
(not (arrayp (symbol-function b)))) |
(not (or (arrayp (symbol-function b)) |
270 |
|
(get b 'kmacro)))) |
271 |
(not (y-or-n-p |
(not (y-or-n-p |
272 |
(format "Key %s is already defined; %s" |
(format "Key %s is already defined; %s" |
273 |
(edmacro-format-keys key 1) |
(edmacro-format-keys key 1) |
656 |
This function assumes that the events can be stored in a string." |
This function assumes that the events can be stored in a string." |
657 |
(setq seq (copy-sequence seq)) |
(setq seq (copy-sequence seq)) |
658 |
(loop for i below (length seq) do |
(loop for i below (length seq) do |
659 |
(when (< (aref seq i) 0) |
(when (logand (aref seq i) 128) |
660 |
(setf (aref seq i) (logand (aref seq i) 127)))) |
(setf (aref seq i) (logand (aref seq i) 127)))) |
661 |
seq) |
seq) |
662 |
|
|