Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-macs.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 0132846995bd
children bfd6434d15b3
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
25 25
26 ;; compiler pacifier 26 ;; compiler pacifier
27 (defvar vip-ex-work-buf) 27 (defvar vip-ex-work-buf)
28 (defvar vip-custom-file-name) 28 (defvar vip-custom-file-name)
29 (defvar vip-current-state) 29 (defvar vip-current-state)
30 (defvar vip-fast-keyseq-timeout)
30 31
31 ;; loading happens only in non-interactive compilation 32 ;; loading happens only in non-interactive compilation
32 ;; in order to spare non-viperized emacs from being viperized 33 ;; in order to spare non-viperized emacs from being viperized
33 (if noninteractive 34 (if noninteractive
34 (eval-when-compile 35 (eval-when-compile
69 (defvar vip-this-kbd-macro nil 70 (defvar vip-this-kbd-macro nil
70 "Vector of keys representing the name of currently running Viper kbd macro.") 71 "Vector of keys representing the name of currently running Viper kbd macro.")
71 (defvar vip-last-kbd-macro nil 72 (defvar vip-last-kbd-macro nil
72 "Vector of keys representing the name of last Viper keyboard macro.") 73 "Vector of keys representing the name of last Viper keyboard macro.")
73 74
74 (defconst vip-fast-keyseq-timeout 200 75 (defcustom vip-repeat-from-history-key 'f12
75 "*Key sequence separated by no more than this many milliseconds is viewed as a macro, if such a macro is defined. 76 "Prefix key for accessing previously typed Vi commands.
76 This also controls ESC-keysequences generated by keyboard function keys.") 77
77 78 The previous command is accessible, as usual, via `.'. The command before this
78 79 can be invoked as `<this key> 1', and the command before that, and the command
79 (defvar vip-repeat-from-history-key 'f12 80 before that one is accessible as `<this key> 2'.
80 "Prefix key for invocation of vip-repeat-from-history function,
81 which repeats previous destructive commands from the history of such
82 commands.
83 This function can then be invoked as <this-key> 1 or <this-key> 2.
84 The notation for these keys is borrowed from XEmacs. Basically, 81 The notation for these keys is borrowed from XEmacs. Basically,
85 a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., 82 a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
86 `(meta control f1)'.") 83 `(meta control f1)'."
84 :type 'key
85 :group 'viper)
87 86
88 87
89 88
90 ;;; Code 89 ;;; Code
91 90
542 (setq macro-pair mode-mapping) 541 (setq macro-pair mode-mapping)
543 (message "%S is unmapped for %s in %S" 542 (message "%S is unmapped for %s in %S"
544 (vip-display-macro macro-name) state-name major-mode)) 543 (vip-display-macro macro-name) state-name major-mode))
545 ((cdr (setq macro-pair (vip-kbd-global-pair macro-entry))) 544 ((cdr (setq macro-pair (vip-kbd-global-pair macro-entry)))
546 (message 545 (message
547 "Global mapping of %S for %s is removed" 546 "Global mapping for %S in %s is removed"
548 (vip-display-macro macro-name) state-name)) 547 (vip-display-macro macro-name) state-name))
549 (t (error "%S is not mapped to a macro for %s in `%s'" 548 (t (error "%S is not mapped to a macro for %s in `%s'"
550 (vip-display-macro macro-name) 549 (vip-display-macro macro-name)
551 state-name (buffer-name)))) 550 state-name (buffer-name))))
552 (setcdr macro-pair nil) 551 (setcdr macro-pair nil)