/[emacs]/emacs/lisp/kmacro.el
ViewVC logotype

Diff of /emacs/lisp/kmacro.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by kfstorm, Mon Oct 11 22:13:20 2004 UTC revision 1.24 by kfstorm, Mon Nov 1 23:03:40 2004 UTC
# Line 1  Line 1 
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
# Line 120  Line 120 
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    
# Line 222  macro to be executed before appending to Line 223  macro to be executed before appending to
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    
# Line 585  Use \\[kmacro-bind-to-key] to bind it to Line 594  Use \\[kmacro-bind-to-key] to bind it to
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

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26