1 |
;;; kmacro.el --- enhanced keyboard macros |
;;; kmacro.el --- enhanced keyboard macros |
2 |
|
|
3 |
;; Copyright (C) 2002 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Kim F. Storm <storm@cua.dk> |
;; Author: Kim F. Storm <storm@cua.dk> |
6 |
;; Keywords: keyboard convenience |
;; Keywords: keyboard convenience |
120 |
"Simplified keyboard macro user interface." |
"Simplified keyboard macro user interface." |
121 |
:group 'keyboard |
:group 'keyboard |
122 |
:group 'convenience |
:group 'convenience |
123 |
|
:version "21.4" |
124 |
:link '(emacs-commentary-link :tag "Commentary" "kmacro.el") |
:link '(emacs-commentary-link :tag "Commentary" "kmacro.el") |
125 |
:link '(emacs-library-link :tag "Lisp File" "kmacro.el")) |
:link '(emacs-library-link :tag "Lisp File" "kmacro.el")) |
126 |
|
|
223 |
(global-set-key (vector kmacro-call-mouse-event) 'kmacro-end-call-mouse)) |
(global-set-key (vector kmacro-call-mouse-event) 'kmacro-end-call-mouse)) |
224 |
|
|
225 |
|
|
226 |
|
;;; Called from keyboard-quit |
227 |
|
|
228 |
|
(defun kmacro-keyboard-quit () |
229 |
|
(or (not defining-kbd-macro) |
230 |
|
(eq defining-kbd-macro 'append) |
231 |
|
(kmacro-ring-empty-p) |
232 |
|
(kmacro-pop-ring))) |
233 |
|
|
234 |
|
|
235 |
;;; Keyboard macro counter |
;;; Keyboard macro counter |
236 |
|
|
594 |
(and append |
(and append |
595 |
(if kmacro-execute-before-append |
(if kmacro-execute-before-append |
596 |
(> (car arg) 4) |
(> (car arg) 4) |
597 |
(= (car arg) 4))))))) |
(= (car arg) 4)))) |
598 |
|
(if (and defining-kbd-macro append) |
599 |
|
(setq defining-kbd-macro 'append))))) |
600 |
|
|
601 |
|
|
602 |
;;;###autoload |
;;;###autoload |