annotate lisp/emulation/vi.el @ 7303:a4f8f33135e7

(x_own_selection): Catch errors around XSetSelectionOwner.
author Richard M. Stallman <rms@gnu.org>
date Wed, 04 May 1994 00:46:39 +0000
parents 507f64624555
children 6f9b0830f124
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
1 ;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs.
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
2
773
9c89fd7ddd41 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
3 ;; Author: Neal Ziring <nz@rsch.wisc.edu>
9c89fd7ddd41 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
4 ;; Felix S. T. Wu <wu@crys.wisc.edu>
812
485e82a8acb5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 789
diff changeset
5 ;; Keywords: emulations
773
9c89fd7ddd41 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
6
9c89fd7ddd41 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
7 ;;; Commentary:
9c89fd7ddd41 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
8
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ; Last revision: 01/07/87 Wed (for GNU Emacs 18.33)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ; INSTALLATION PROCEDURE:
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ; 1) Add a global key binding for command "vi-mode" (I use ESC ESC instead of
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ; the single ESC used in real "vi", so I can access other ESC prefixed emacs
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ; commands while I'm in "vi"), say, by putting the following line in your
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ; ".emacs" file:
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ; (define-key global-map "\e\e" 'vi-mode) ;quick switch into vi-mode
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ; 2) If you wish you can define "find-file-hooks" to enter "vi" automatically
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ; after a file is loaded into the buffer. For example, I defined it as:
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ; (setq find-file-hooks (list
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ; (function (lambda ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ; (if (not (or (eq major-mode 'Info-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ; (eq major-mode 'vi-mode)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ; (vi-mode))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ; 3) In your .emacs file you can define the command "vi-mode" to be "autoload"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ; or you can execute the "load" command to load "vi" directly.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ; 4) Read the comments for command "vi-mode" before you start using it.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ; COULD DO
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ; 1). A general 'define-operator' function to replace current hack
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ; 2). In operator handling, should allow other point moving Emacs commands
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ; (such as ESC <, ESC >) to be used as arguments.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;
773
9c89fd7ddd41 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
35 ;;; Code:
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 (defun vi-switch-mode (arg mode-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 "Switch the major mode of current buffer as specified by the following char \\{vi-tilde-map}"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 (interactive "P\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 (let ((mode-cmd (lookup-key vi-tilde-map (char-to-string mode-char))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 (if (null mode-cmd)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 (with-output-to-temp-buffer "*Help*"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 (princ (substitute-command-keys "Possible major modes to switch to: \\{vi-tilde-map}")))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 (setq prefix-arg arg) ; prefix arg will be passed down
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 (command-execute mode-cmd nil) ; may need to save mode-line-format etc
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 (set-buffer-modified-p (buffer-modified-p))))) ; just in case
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 (if (null (where-is-internal 'vi-switch-mode (current-local-map)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 (define-key ctl-x-map "~" 'vi-switch-mode))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 (defvar vi-tilde-map nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 "Keymap used for \\[vi-switch-mode] prefix key. Link to various major modes.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 (if vi-tilde-map
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 (setq vi-tilde-map (make-keymap))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 (define-key vi-tilde-map "a" 'abbrev-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 (define-key vi-tilde-map "c" 'c-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 (define-key vi-tilde-map "d" 'vi-debugging)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 (define-key vi-tilde-map "e" 'emacs-lisp-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 (define-key vi-tilde-map "f" 'auto-fill-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 (define-key vi-tilde-map "g" 'prolog-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 (define-key vi-tilde-map "h" 'hanoi)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 (define-key vi-tilde-map "i" 'info-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 (define-key vi-tilde-map "l" 'lisp-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 (define-key vi-tilde-map "n" 'nroff-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 (define-key vi-tilde-map "o" 'overwrite-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 (define-key vi-tilde-map "O" 'outline-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 (define-key vi-tilde-map "P" 'picture-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 (define-key vi-tilde-map "r" 'vi-readonly-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 (define-key vi-tilde-map "t" 'text-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 (define-key vi-tilde-map "v" 'vi-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 (define-key vi-tilde-map "x" 'tex-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 (define-key vi-tilde-map "~" 'vi-back-to-old-mode))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (defun vi-debugging (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 "Toggle debug-on-error flag. If prefix arg is given, set t."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 (if arg
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 (setq debug-on-error t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 (setq debug-on-error (not debug-on-error)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 (if debug-on-error
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 (message "Debug-on-error ...")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 (message "NO more debug-on-error")))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 (defun vi-back-to-old-mode ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 "Go back to the previous mode without setting up for insertion."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 (if vi-mode-old-major-mode
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (progn
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (setq mode-name vi-mode-old-mode-name)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (use-local-map vi-mode-old-local-map)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (setq major-mode vi-mode-old-major-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 (setq case-fold-search vi-mode-old-case-fold)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 (set-buffer-modified-p (buffer-modified-p)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 (defun vi-readonly-mode ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 "Toggle current buffer's readonly flag."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 (setq buffer-read-only (not buffer-read-only)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 (defvar vi-com-map nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 "Keymap used in Evi's command state
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 Command state includes most of the vi editing commands, with some Emacs
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 command extensions.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 (put 'vi-undefined 'suppress-keymap t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 (if vi-com-map nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 (setq vi-com-map (make-keymap))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 ;;(fillarray vi-com-map 'vi-undefined)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 (define-key vi-com-map "\C-@" 'vi-mark-region) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 (define-key vi-com-map "\C-a" 'vi-ask-for-info) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 (define-key vi-com-map "\C-b" 'vi-backward-windowfull)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 (define-key vi-com-map "\C-c" 'vi-do-old-mode-C-c-command) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 (define-key vi-com-map "\C-d" 'vi-scroll-down-window)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (define-key vi-com-map "\C-e" 'vi-expose-line-below)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 (define-key vi-com-map "\C-f" 'vi-forward-windowfull)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (define-key vi-com-map "\C-g" 'keyboard-quit)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (define-key vi-com-map "\C-i" 'indent-relative-maybe) ; TAB
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 (define-key vi-com-map "\C-j" 'vi-next-line) ; LFD
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (define-key vi-com-map "\C-k" 'vi-kill-line) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (define-key vi-com-map "\C-l" 'recenter)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 (define-key vi-com-map "\C-m" 'vi-next-line-first-nonwhite) ; RET
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 (define-key vi-com-map "\C-n" 'vi-next-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 (define-key vi-com-map "\C-o" 'vi-split-open-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (define-key vi-com-map "\C-p" 'previous-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (define-key vi-com-map "\C-q" 'vi-query-replace) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (define-key vi-com-map "\C-r" 'vi-isearch-backward) ; modification
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 (define-key vi-com-map "\C-s" 'vi-isearch-forward) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 (define-key vi-com-map "\C-t" 'vi-transpose-objects) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 (define-key vi-com-map "\C-u" 'vi-scroll-up-window)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 (define-key vi-com-map "\C-v" 'scroll-up) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 (define-key vi-com-map "\C-w" 'vi-kill-region) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 (define-key vi-com-map "\C-x" 'Control-X-prefix) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 (define-key vi-com-map "\C-y" 'vi-expose-line-above)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 (define-key vi-com-map "\C-z" 'suspend-emacs)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 (define-key vi-com-map "\e" 'ESC-prefix); C-[ (ESC)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 (define-key vi-com-map "\C-\\" 'vi-unimplemented)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 (define-key vi-com-map "\C-]" 'find-tag)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 (define-key vi-com-map "\C-^" 'vi-locate-def) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 (define-key vi-com-map "\C-_" 'vi-undefined)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 (define-key vi-com-map " " 'forward-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 (define-key vi-com-map "!" 'vi-operator)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 (define-key vi-com-map "\"" 'vi-char-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 (define-key vi-com-map "#" 'universal-argument) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 (define-key vi-com-map "$" 'end-of-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 (define-key vi-com-map "%" 'vi-find-matching-paren)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 (define-key vi-com-map "&" 'vi-unimplemented)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (define-key vi-com-map "'" 'vi-goto-line-mark)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (define-key vi-com-map "(" 'backward-sexp)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 (define-key vi-com-map ")" 'forward-sexp)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 (define-key vi-com-map "*" 'vi-name-last-change-or-macro) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (define-key vi-com-map "+" 'vi-next-line-first-nonwhite)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 (define-key vi-com-map "," 'vi-reverse-last-find-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 (define-key vi-com-map "-" 'vi-previous-line-first-nonwhite)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 (define-key vi-com-map "." 'vi-redo-last-change-command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 (define-key vi-com-map "/" 'vi-search-forward)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 (define-key vi-com-map "0" 'beginning-of-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 (define-key vi-com-map "1" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 (define-key vi-com-map "2" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 (define-key vi-com-map "3" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 (define-key vi-com-map "4" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 (define-key vi-com-map "5" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 (define-key vi-com-map "6" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 (define-key vi-com-map "7" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 (define-key vi-com-map "8" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 (define-key vi-com-map "9" 'vi-digit-argument)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (define-key vi-com-map ":" 'vi-ex-cmd)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 (define-key vi-com-map ";" 'vi-repeat-last-find-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (define-key vi-com-map "<" 'vi-operator)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 (define-key vi-com-map "=" 'vi-operator)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 (define-key vi-com-map ">" 'vi-operator)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 (define-key vi-com-map "?" 'vi-search-backward)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 (define-key vi-com-map "@" 'vi-call-named-change-or-macro) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 (define-key vi-com-map "A" 'vi-append-at-end-of-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 (define-key vi-com-map "B" 'vi-backward-blank-delimited-word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 (define-key vi-com-map "C" 'vi-change-rest-of-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (define-key vi-com-map "D" 'vi-kill-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 (define-key vi-com-map "E" 'vi-end-of-blank-delimited-word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 (define-key vi-com-map "F" 'vi-backward-find-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (define-key vi-com-map "G" 'vi-goto-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 (define-key vi-com-map "H" 'vi-home-window-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 (define-key vi-com-map "I" 'vi-insert-before-first-nonwhite)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (define-key vi-com-map "J" 'vi-join-lines)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 (define-key vi-com-map "K" 'vi-undefined)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 (define-key vi-com-map "L" 'vi-last-window-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 (define-key vi-com-map "M" 'vi-middle-window-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (define-key vi-com-map "N" 'vi-reverse-last-search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 (define-key vi-com-map "O" 'vi-open-above)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 (define-key vi-com-map "P" 'vi-put-before)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 (define-key vi-com-map "Q" 'vi-quote-words) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 (define-key vi-com-map "R" 'vi-replace-chars)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 (define-key vi-com-map "S" 'vi-substitute-lines)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 (define-key vi-com-map "T" 'vi-backward-upto-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 (define-key vi-com-map "U" 'vi-unimplemented)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 (define-key vi-com-map "V" 'vi-undefined)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 (define-key vi-com-map "W" 'vi-forward-blank-delimited-word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 (define-key vi-com-map "X" 'call-last-kbd-macro) ; modification/extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 (define-key vi-com-map "Y" 'vi-yank-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 (define-key vi-com-map "Z" (make-sparse-keymap)) ;allow below prefix command
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 (define-key vi-com-map "ZZ" 'vi-save-all-and-exit)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 (define-key vi-com-map "[" 'vi-unimplemented)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (define-key vi-com-map "\\" 'vi-operator) ; extension for vi-narrow-op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 (define-key vi-com-map "]" 'vi-unimplemented)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 (define-key vi-com-map "^" 'back-to-indentation)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 (define-key vi-com-map "_" 'vi-undefined)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 (define-key vi-com-map "`" 'vi-goto-char-mark)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 (define-key vi-com-map "a" 'vi-insert-after)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 (define-key vi-com-map "b" 'backward-word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 (define-key vi-com-map "c" 'vi-operator)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 (define-key vi-com-map "d" 'vi-operator)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 (define-key vi-com-map "e" 'vi-end-of-word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 (define-key vi-com-map "f" 'vi-forward-find-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 (define-key vi-com-map "g" 'vi-beginning-of-buffer) ; extension
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 (define-key vi-com-map "h" 'backward-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 (define-key vi-com-map "i" 'vi-insert-before)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 (define-key vi-com-map "j" 'vi-next-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 (define-key vi-com-map "k" 'previous-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 (define-key vi-com-map "l" 'forward-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 (define-key vi-com-map "m" 'vi-set-mark)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (define-key vi-com-map "n" 'vi-repeat-last-search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 (define-key vi-com-map "o" 'vi-open-below)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (define-key vi-com-map "p" 'vi-put-after)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 (define-key vi-com-map "q" 'vi-replace)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 (define-key vi-com-map "r" 'vi-replace-1-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 (define-key vi-com-map "s" 'vi-substitute-chars)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 (define-key vi-com-map "t" 'vi-forward-upto-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 (define-key vi-com-map "u" 'undo)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 (define-key vi-com-map "v" 'vi-verify-spelling)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 (define-key vi-com-map "w" 'vi-forward-word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 (define-key vi-com-map "x" 'vi-kill-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 (define-key vi-com-map "y" 'vi-operator)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 (define-key vi-com-map "z" 'vi-adjust-window)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 (define-key vi-com-map "{" 'backward-paragraph)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 (define-key vi-com-map "|" 'vi-goto-column)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 (define-key vi-com-map "}" 'forward-paragraph)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 (define-key vi-com-map "~" 'vi-change-case)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 (define-key vi-com-map "\177" 'delete-backward-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 (put 'backward-char 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 (put 'vi-next-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 (put 'next-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 (put 'forward-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (put 'previous-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 (put 'vi-isearch-backward 'point-moving-unit 'search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 (put 'vi-search-backward 'point-moving-unit 'search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 (put 'vi-isearch-forward 'point-moving-unit 'search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 (put 'vi-search-forward 'point-moving-unit 'search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 (put 'forward-char 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 (put 'end-of-line 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 (put 'vi-find-matching-paren 'point-moving-unit 'match)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 (put 'vi-goto-line-mark 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 (put 'backward-sexp 'point-moving-unit 'sexp)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 (put 'forward-sexp 'point-moving-unit 'sexp)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 (put 'vi-next-line-first-nonwhite 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 (put 'vi-previous-line-first-nonwhite 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 (put 'vi-reverse-last-find-char 'point-moving-unit 'rev-find)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (put 'vi-re-search-forward 'point-moving-unit 'search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (put 'beginning-of-line 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (put 'vi-beginning-of-buffer 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (put 'vi-repeat-last-find-char 'point-moving-unit 'find)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (put 'vi-re-search-backward 'point-moving-unit 'search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (put 'vi-backward-blank-delimited-word 'point-moving-unit 'WORD)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 (put 'vi-end-of-blank-delimited-word 'point-moving-unit 'match)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 (put 'vi-backward-find-char 'point-moving-unit 'find)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (put 'vi-goto-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 (put 'vi-home-window-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 (put 'vi-last-window-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 (put 'vi-middle-window-line 'point-moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 (put 'vi-reverse-last-search 'point-moving-unit 'rev-search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 (put 'vi-backward-upto-char 'point-moving-unit 'find)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 (put 'vi-forward-blank-delimited-word 'point-moving-unit 'WORD)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 (put 'back-to-indentation 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 (put 'vi-goto-char-mark 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 (put 'backward-word 'point-moving-unit 'word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 (put 'vi-end-of-word 'point-moving-unit 'match)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 (put 'vi-forward-find-char 'point-moving-unit 'find)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 (put 'backward-char 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 (put 'vi-forward-char 'point-moving-unit 'char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 (put 'vi-repeat-last-search 'point-moving-unit 'search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 (put 'vi-forward-upto-char 'point-moving-unit 'find)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 (put 'vi-forward-word 'point-moving-unit 'word)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 (put 'vi-goto-column 'point-moving-unit 'match)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 (put 'forward-paragraph 'point-moving-unit 'paragraph)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 (put 'backward-paragraph 'point-moving-unit 'paragraph)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 ;;; region mark commands
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 (put 'mark-page 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 (put 'mark-paragraph 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 (put 'mark-word 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 (put 'mark-sexp 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 (put 'mark-defun 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 (put 'mark-whole-buffer 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (put 'mark-end-of-sentence 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 (put 'mark-c-function 'point-moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 ;;;
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 (defvar vi-mark-alist nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 "Alist of (NAME . MARK), marks are local to each buffer.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 (defvar vi-scroll-amount (/ (window-height) 2)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 "Default amount of lines for scrolling (used by "^D"/"^U").")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 (defvar vi-shift-width 4
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 "Shift amount for "<"/">" operators.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (defvar vi-ins-point nil ; integer
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 "Last insertion point. Should use 'mark' instead.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (defvar vi-ins-length nil ; integer
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 "Length of last insertion.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 (defvar vi-ins-repetition nil ; integer
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 "The repetition required for last insertion.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 (defvar vi-ins-overwrt-p nil ; boolean
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 "T if last insertion was a replace actually.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 (defvar vi-ins-prefix-code nil ; ready-to-eval sexp
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 "Code to be eval'ed before (redo-)insertion begins.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 (defvar vi-last-find-char nil ; cons cell
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 "Save last direction, char and upto-flag used for char finding.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 (defvar vi-last-change-command nil ; cons cell
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 1577
diff changeset
335 "Save commands for redoing last changes. Each command is in (FUNC . ARGS)
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 form that is ready to be 'apply'ed.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 (defvar vi-last-shell-command nil ; last shell op command line
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 "Save last shell command given for \"!\" operator.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 (defvar vi-insert-state nil ; boolean
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 "T if it is in insert state.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 ; in "loaddefs.el"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 ;(defvar search-last-string ""
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 ; "Last string search for by a search command.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 (defvar vi-search-last-command nil ; (re-)search-forward(backward)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 "Save last search command for possible redo.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 (defvar vi-mode-old-local-map nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 "Save the local-map used before entering vi-mode.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 (defvar vi-mode-old-mode-name nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 "Save the mode-name before entering vi-mode.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 (defvar vi-mode-old-major-mode nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 "Save the major-mode before entering vi-mode.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 (defvar vi-mode-old-case-fold nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 ;(defconst vi-add-to-mode-line-1
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 ; '(overwrite-mode nil " Insert"))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 ;; Value is same as vi-add-to-mode-line-1 when in vi mode,
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 ;; but nil in other buffers.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 ;(defvar vi-add-to-mode-line nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 (defun vi-mode-setup ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 "Setup a buffer for vi-mode by creating necessary buffer-local variables."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 ; (make-local-variable 'vi-add-to-mode-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 ; (setq vi-add-to-mode-line vi-add-to-mode-line-1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 ; (or (memq vi-add-to-mode-line minor-mode-alist)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 ; (setq minor-mode-alist (cons vi-add-to-mode-line minor-mode-alist)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 (make-local-variable 'vi-scroll-amount)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 (setq vi-scroll-amount (/ (window-height) 2))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 (make-local-variable 'vi-shift-width)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 (setq vi-shift-width 4)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 (make-local-variable 'vi-ins-point)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 (make-local-variable 'vi-ins-length)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381 (make-local-variable 'vi-ins-repetition)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 (make-local-variable 'vi-ins-overwrt-p)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (make-local-variable 'vi-ins-prefix-code)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 (make-local-variable 'vi-last-change-command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 (make-local-variable 'vi-last-shell-command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 (make-local-variable 'vi-last-find-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 (make-local-variable 'vi-mark-alist)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 (make-local-variable 'vi-insert-state)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 (make-local-variable 'vi-mode-old-local-map)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 (make-local-variable 'vi-mode-old-mode-name)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 (make-local-variable 'vi-mode-old-major-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 (make-local-variable 'vi-mode-old-case-fold)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (run-hooks 'vi-mode-hook))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394
258
1e0bc00dca7a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 6
diff changeset
395 ;;;###autoload
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 (defun vi-mode ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 "Major mode that acts like the `vi' editor.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 The purpose of this mode is to provide you the combined power of vi (namely,
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 the \"cross product\" effect of commands and repeat last changes) and Emacs.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 This command redefines nearly all keys to look like vi commands.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 It records the previous major mode, and any vi command for input
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 \(`i', `a', `s', etc.) switches back to that mode.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 Thus, ordinary Emacs (in whatever major mode you had been using)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 is \"input\" mode as far as vi is concerned.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 To get back into vi from \"input\" mode, you must issue this command again.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 Therefore, it is recommended that you assign it to a key.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 Major differences between this mode and real vi :
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 * Limitations and unsupported features
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 - Search patterns with line offset (e.g. /pat/+3 or /pat/z.) are
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 not supported.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 - Ex commands are not implemented; try ':' to get some hints.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 - No line undo (i.e. the 'U' command), but multi-undo is a standard feature.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 * Modifications
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 - The stopping positions for some point motion commands (word boundary,
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 pattern search) are slightly different from standard 'vi'.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 Also, no automatic wrap around at end of buffer for pattern searching.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 - Since changes are done in two steps (deletion then insertion), you need
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 to undo twice to completely undo a change command. But this is not needed
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 for undoing a repeated change command.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 - No need to set/unset 'magic', to search for a string with regular expr
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 in it just put a prefix arg for the search commands. Replace cmds too.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 - ^R is bound to incremental backward search, so use ^L to redraw screen.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 * Extensions
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 - Some standard (or modified) Emacs commands were integrated, such as
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 incremental search, query replace, transpose objects, and keyboard macros.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 - In command state, ^X links to the 'ctl-x-map', and ESC can be linked to
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 esc-map or set undefined. These can give you the full power of Emacs.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 - See vi-com-map for those keys that are extensions to standard vi, e.g.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 `vi-name-last-change-or-macro', `vi-verify-spelling', `vi-locate-def',
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 `vi-mark-region', and 'vi-quote-words'. Some of them are quite handy.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 - Use \\[vi-switch-mode] to switch among different modes quickly.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 Syntax table and abbrevs while in vi mode remain as they were in Emacs."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 (if (null vi-mode-old-major-mode) ; very first call for current buffer
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 (vi-mode-setup))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 (if (eq major-mode 'vi-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 (message "Already in vi-mode." (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 (setq vi-mode-old-local-map (current-local-map))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 (setq vi-mode-old-mode-name mode-name)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 (setq vi-mode-old-major-mode major-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 (setq vi-mode-old-case-fold case-fold-search) ; this is needed !!
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 (setq case-fold-search nil) ; exact case match in searching
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 (use-local-map vi-com-map)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 (setq major-mode 'vi-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 (setq mode-name "VI")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 (set-buffer-modified-p (buffer-modified-p)) ; force mode line update
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 (if vi-insert-state ; this is a return from insertion
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 (vi-end-of-insert-state))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 (defun vi-ding()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 "Ding !"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 (defun vi-save-all-and-exit ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 "Save all modified buffers without asking, then exits emacs."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 (save-some-buffers t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 (kill-emacs))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 ;; to be used by "ex" commands
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 (defvar vi-replaced-string nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 (defvar vi-replacing-string nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 (defun vi-ex-cmd ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 "Ex commands are not implemented in Evi mode. For some commonly used ex
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 commands, you can use the following alternatives for similar effect :
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 w C-x C-s (save-buffer)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 wq C-x C-c (save-buffers-kill-emacs)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 w fname C-x C-w (write-file)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 e fname C-x C-f (find-file)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 r fname C-x i (insert-file)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 s/old/new use q (vi-replace) to do unconditional replace
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 use C-q (vi-query-replace) to do query replace
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 set sw=n M-x set-variable vi-shift-width n "
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 ;; (let ((cmd (read-string ":")) (lines 1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 ;; (cond ((string-match "s"))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 (with-output-to-temp-buffer "*Help*"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 (princ (documentation 'vi-ex-cmd))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 (defun vi-undefined ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 (message "Command key \"%s\" is undefined in Evi."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (single-key-description last-command-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 (defun vi-unimplemented ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 (message "Command key \"%s\" is not implemented in Evi."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 (single-key-description last-command-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 ;;;;;
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (defun vi-goto-insert-state (repetition &optional prefix-code do-it-now-p)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 "Go into insert state, the text entered will be repeated if REPETITION > 1.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 If PREFIX-CODE is given, do it before insertion begins if DO-IT-NOW-P is T.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 In any case, the prefix-code will be done before each 'redo-insert'.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 This function expects 'overwrite-mode' being set properly beforehand."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (if do-it-now-p (apply (car prefix-code) (cdr prefix-code)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 (setq vi-ins-point (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (setq vi-ins-repetition repetition)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 (setq vi-ins-prefix-code prefix-code)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (setq mode-name vi-mode-old-mode-name)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (setq case-fold-search vi-mode-old-case-fold)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (use-local-map vi-mode-old-local-map)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 (setq major-mode vi-mode-old-major-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 (set-buffer-modified-p (buffer-modified-p)) ; force mode line update
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 (setq vi-insert-state t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 (defun vi-end-of-insert-state ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 "Terminate insertion and set up last change command."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 (if (or (< (point) vi-ins-point) ;Check if there is any effective change
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 (and (= (point) vi-ins-point) (null vi-ins-prefix-code))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (<= vi-ins-repetition 0))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 (vi-goto-command-state t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (if (> vi-ins-repetition 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (progn
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (let ((str (buffer-substring vi-ins-point (point))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (while (> vi-ins-repetition 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 (insert str)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 (setq vi-ins-repetition (1- vi-ins-repetition))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (vi-set-last-change-command 'vi-first-redo-insertion vi-ins-point (point)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 overwrite-mode vi-ins-prefix-code)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (vi-goto-command-state t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (defun vi-first-redo-insertion (begin end &optional overwrite-p prefix-code)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 "Redo last insertion the first time. Extract the string and save it for
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 future redoes. Do prefix-code if it's given, use overwrite mode if asked."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 (let ((str (buffer-substring begin end)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 (if prefix-code (apply (car prefix-code) (cdr prefix-code)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 (if overwrite-p (delete-region (point) (+ (point) (length str))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (insert str)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 (vi-set-last-change-command 'vi-more-redo-insertion str overwrite-p prefix-code)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 (defun vi-more-redo-insertion (str &optional overwrite-p prefix-code)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 "Redo more insertion : copy string from STR to point, use overwrite mode
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 if overwrite-p is T; apply prefix-code first if it's non-nil."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 (if prefix-code (apply (car prefix-code) (cdr prefix-code)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (if overwrite-p (delete-region (point) (+ (point) (length str))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 (insert str))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 (defun vi-goto-command-state (&optional from-insert-state-p)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 "Go to vi-mode command state. If optional arg exists, means return from
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 insert state."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 (use-local-map vi-com-map)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 (setq vi-insert-state nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 (if from-insert-state-p
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 (if overwrite-mode
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 (overwrite-mode 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 ; (set-minor-mode 'ins "Insert" nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 )))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 (defun vi-kill-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 "kill specified number of lines (=d$), text saved in the kill ring."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 (interactive "*P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 (kill-line arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 (vi-set-last-change-command 'kill-line arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 (defun vi-kill-region ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 (kill-region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 (vi-set-last-change-command 'kill-region))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 (defun vi-append-at-end-of-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 "go to end of line and then go into vi insert state."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 (vi-goto-insert-state arg '(end-of-line) t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 (defun vi-change-rest-of-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 "Change the rest of (ARG) lines (= c$ in vi)."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 (interactive "*P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 (vi-goto-insert-state 1 (list 'kill-line arg) t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 (defun vi-insert-before-first-nonwhite (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 "(= ^i in vi)"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (vi-goto-insert-state arg '(back-to-indentation) t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 (defun vi-open-above (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 "open new line(s) above current line and enter insert state."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 (vi-goto-insert-state 1
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 (list (function (lambda (x)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 (or (beginning-of-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 (open-line x)))) arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 (defun vi-open-below (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 "open new line(s) and go into insert mode on the last line."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 (vi-goto-insert-state 1
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 (list (function (lambda (x)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 (or (end-of-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 (open-line x)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 (forward-line x)))) arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 (defun vi-insert-after (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 "start vi insert state after cursor."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 (vi-goto-insert-state arg
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 (list (function (lambda ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 (if (not (eolp)) (forward-char)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 (defun vi-insert-before (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 "enter insert state before the cursor."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 (vi-goto-insert-state arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (defun vi-goto-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 "Go to ARGth line."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 (if (null (vi-raw-numeric-prefix arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 (end-of-buffer)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 (goto-line (vi-prefix-numeric-value arg))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 (defun vi-beginning-of-buffer ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 "Move point to the beginning of current buffer."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 (goto-char (point-min)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 ;;;;; not used now
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 ;;(defvar regexp-search t ; string
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 ;; "*T if search string can contain regular expressions. (= set magic in vi)")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 ;;;;;
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 (defun vi-isearch-forward (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 "Incremental search forward. Use regexp version if ARG is non-nil."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 (let ((scmd (if arg 'isearch-forward-regexp 'isearch-forward))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 (opoint (point)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 (call-interactively scmd)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 (if (= opoint (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 (setq vi-search-last-command (if arg 're-search-forward 'search-forward)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 (defun vi-isearch-backward (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 "Incremental search backward. Use regexp version if ARG is non-nil."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 (let ((scmd (if arg 'isearch-backward-regexp 'isearch-backward))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 (opoint (point)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 (call-interactively scmd)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 (if (= opoint (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 (setq vi-search-last-command (if arg 're-search-backward 'search-backward)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 (defun vi-search-forward (arg string)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 "Nonincremental search forward. Use regexp version if ARG is non-nil."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 (interactive (if current-prefix-arg
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 (list t (read-string "regexp/" nil))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 (list nil (read-string "/" nil))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 (setq vi-search-last-command (if arg 're-search-forward 'search-forward))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 (if (> (length string) 0) (setq search-last-string string))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 (funcall vi-search-last-command search-last-string nil nil 1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 (defun vi-search-backward (arg string)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 "Nonincremental search backward. Use regexp version if ARG is non-nil."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668 (interactive (if current-prefix-arg
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 (list t (read-string "regexp?" nil))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 (list nil (read-string "?" nil))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 (setq vi-search-last-command (if arg 're-search-backward 'search-backward))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672 (if (> (length string) 0) (setq search-last-string string))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 (funcall vi-search-last-command search-last-string nil nil 1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 (defun vi-repeat-last-search (arg &optional search-command search-string)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 "Repeat last search command. If optional search-command/string are given,
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 use those instead of the ones saved."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 (if (null search-command) (setq search-command vi-search-last-command))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 (if (null search-string) (setq search-string search-last-string))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 (if (null search-command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 (message "No last search command to repeat." (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 (funcall search-command search-string nil nil arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 (defun vi-reverse-last-search (arg &optional search-command search-string)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 "Redo last search command in reverse direction. If the optional search args
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 are given, use those instead of the ones saved."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 (if (null search-command) (setq search-command vi-search-last-command))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 (if (null search-string) (setq search-string search-last-string))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691 (if (null search-command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692 (message "No last search command to repeat." (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 (funcall (cond ((eq search-command 're-search-forward) 're-search-backward)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 ((eq search-command 're-search-backward) 're-search-forward)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
695 ((eq search-command 'search-forward) 'search-backward)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696 ((eq search-command 'search-backward) 'search-forward))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 search-string nil nil arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 (defun vi-join-lines (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 "join ARG lines from current line (default 2), cleaning up white space."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 (if (null (vi-raw-numeric-prefix arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 (delete-indentation t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 (setq count (vi-prefix-numeric-value arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705 (while (>= count 2)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 (delete-indentation t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 (setq count (1- count))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 (vi-set-last-change-command 'vi-join-lines arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 (defun vi-backward-kill-line ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 "kill the current line. Only works in insert state."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 (if (not vi-insert-state)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 (beginning-of-line 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 (kill-line nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 (defun vi-abort-ins ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 "abort insert state, kill inserted text and go back to command state."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 (if (not vi-insert-state)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722 nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 (if (> (point) vi-ins-point)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 (kill-region vi-ins-point (point)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 (vi-goto-command-state t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 (defun vi-backward-windowfull (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 "Backward COUNT windowfulls. Default is one."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 ; (set-mark-command nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 (while (> count 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 (scroll-down nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 (setq count (1- count))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 (defun vi-scroll-down-window (count)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
736 "Scrolls down window COUNT lines.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
737 If COUNT is nil (actually, non-integer), scrolls default amount.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
738 The given COUNT is remembered for future scrollings."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 (if (integerp count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 (setq vi-scroll-amount count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 (scroll-up vi-scroll-amount))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 (defun vi-expose-line-below (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 "Expose COUNT more lines below the current window. Default COUNT is 1."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 (scroll-up count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 (defun vi-forward-windowfull (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 "Forward COUNT windowfulls. Default is one."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 ; (set-mark-command nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 (while (> count 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 (scroll-up nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 (setq count (1- count))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 (defun vi-next-line (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 "Go down count lines, try to keep at the same column."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 (setq this-command 'next-line) ; this is a needed trick
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 (if (= (point) (or (line-move count) (point)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 (ding) ; no moving, already at end of buffer
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 (setq last-command 'next-line)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 (defun vi-next-line-first-nonwhite (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 "Go down COUNT lines. Stop at first non-white."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 (if (= (point) (progn (forward-line count) (back-to-indentation) (point)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 (ding))) ; no moving, already at end of buffer
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 (defun vi-previous-line-first-nonwhite (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 "Go up COUNT lines. Stop at first non-white."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774 (previous-line count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 (back-to-indentation))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 (defun vi-scroll-up-window (count)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
778 "Scrolls up window COUNT lines.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
779 If COUNT is nil (actually, non-integer), scrolls default amount.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
780 The given COUNT is remembered for future scrollings."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 (if (integerp count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 (setq vi-scroll-amount count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
784 (scroll-down vi-scroll-amount))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786 (defun vi-expose-line-above (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 "Expose COUNT more lines above the current window. Default COUNT is 1."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 (scroll-down count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 (defun vi-char-argument (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 "Get following character (could be any CHAR) as part of the prefix argument.
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 1577
diff changeset
793 Possible prefix-arg cases are NIL, INTEGER, (NIL . CHAR) or (INTEGER . CHAR)."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
795 (let ((char (read-char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 (cond ((null arg) (setq prefix-arg (cons nil char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 ((integerp arg) (setq prefix-arg (cons arg char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798 ; This can happen only if the user changed his/her mind for CHAR,
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799 ; Or there are some leading "universal-argument"s
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 (t (setq prefix-arg (cons (car arg) char))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802 (defun vi-goto-mark (mark-char &optional line-flag)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
803 "Go to marked position or line (if line-flag is given).
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
804 Goto mark '@' means jump into and pop the top mark on the mark ring."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
805 (cond ((char-equal mark-char last-command-char) ; `` or ''
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
806 (exchange-point-and-mark) (if line-flag (back-to-indentation)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807 ((char-equal mark-char ?@) ; jump and pop mark
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
808 (set-mark-command t) (if line-flag (back-to-indentation)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809 (t
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810 (let ((mark (vi-get-mark mark-char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
811 (if (null mark)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 (message "Mark register undefined." (vi-ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
813 (set-mark-command nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 (goto-char mark)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
815 (if line-flag (back-to-indentation)))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
817 (defun vi-goto-line-mark (char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
818 "Go to the line (at first non-white) marked by next char."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819 (interactive "c")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 (vi-goto-mark char t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
821
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 (defun vi-goto-char-mark (char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
823 "Go to the char position marked by next mark-char."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
824 (interactive "c")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825 (vi-goto-mark char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 (defun vi-digit-argument (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828 "Set numeric prefix argument."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 (cond ((null arg) (digit-argument arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 ((integerp arg) (digit-argument nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 (setq prefix-arg (* prefix-arg arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 (t (digit-argument nil) ; in (NIL . CHAR) or (NUM . CHAR) form
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
834 (setq prefix-arg (cons (* prefix-arg
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 (if (null (car arg)) 1 (car arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836 (cdr arg))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 (defun vi-raw-numeric-prefix (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 "Return the raw value of numeric part prefix argument."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 (if (consp arg) (car arg) arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 (defun vi-prefix-numeric-value (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 "Return numeric meaning of the raw prefix argument. This is a modification
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 to the standard one provided in `callint.c' to handle (_ . CHAR) cases."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 (cond ((null arg) 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 ((integerp arg) arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 ((consp arg) (if (car arg) (car arg) 1))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849 (defun vi-reverse-last-find-char (count &optional find-arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 "Reverse last f F t T operation COUNT times. If the optional FIND-ARG
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
851 is given, it is used instead of the saved one."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 (if (null find-arg) (setq find-arg vi-last-find-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 (if (null find-arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
855 (message "No last find char to repeat." (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856 (vi-find-char (cons (* (car find-arg) -1) (cdr find-arg)) count))) ;6/13/86
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858 (defun vi-find-char (arg count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
859 "Find in DIRECTION (1/-1) for CHAR of COUNT'th times on current line.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 If UPTO-FLAG is T, stop before the char. ARG = (DIRECTION.CHAR.UPTO-FLAG."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 (let* ((direction (car arg)) (char (car (cdr arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 (upto-flag (cdr (cdr arg))) (pos (+ (point) direction)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 (if (catch 'exit-find-char
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 (while t
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 (cond ((null (char-after pos)) (throw 'exit-find-char nil))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 ((char-equal (char-after pos) ?\n) (throw 'exit-find-char nil))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
867 ((char-equal char (char-after pos)) (setq count (1- count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868 (if (= count 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
869 (throw 'exit-find-char
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
870 (if upto-flag
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871 (setq pos (- pos direction))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 pos)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 (setq pos (+ pos direction))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 (goto-char pos)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 (ding))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 (defun vi-repeat-last-find-char (count &optional find-arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 "Repeat last f F t T operation COUNT times. If optional FIND-ARG is given,
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 it is used instead of the saved one."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 (if (null find-arg) (setq find-arg vi-last-find-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 (if (null find-arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 (message "No last find char to repeat." (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 (vi-find-char find-arg count)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 (defun vi-backward-find-char (count char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 "Find the COUNT'th CHAR backward on current line."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 (setq vi-last-find-char (cons -1 (cons char nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 (vi-repeat-last-find-char count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 (defun vi-forward-find-char (count char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 "Find the COUNT'th CHAR forward on current line."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 (setq vi-last-find-char (cons 1 (cons char nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 (vi-repeat-last-find-char count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 (defun vi-backward-upto-char (count char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 "Find upto the COUNT'th CHAR backward on current line."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 (setq vi-last-find-char (cons -1 (cons char t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 (vi-repeat-last-find-char count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 (defun vi-forward-upto-char (count char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 "Find upto the COUNT'th CHAR forward on current line."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907 (setq vi-last-find-char (cons 1 (cons char t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908 (vi-repeat-last-find-char count))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910 (defun vi-end-of-word (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
911 "Move forward until encountering the end of a word.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 With argument, do this that many times."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 (if (not (eobp)) (forward-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 (if (re-search-forward "\\W*\\w+\\>" nil t count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 (backward-char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 (defun vi-replace-1-char (count char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 "Replace char after point by CHAR. Repeat COUNT times."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 (delete-char count nil) ; don't save in kill ring
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 (setq last-command-char char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 (self-insert-command count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 (vi-set-last-change-command 'vi-replace-1-char count char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 (defun vi-replace-chars (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 "Replace chars over old ones."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 (overwrite-mode 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 (vi-goto-insert-state arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 (defun vi-substitute-chars (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 "Substitute COUNT chars by the input chars, enter insert state."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
935 (vi-goto-insert-state 1 (list (function (lambda (c) ; this is a bit tricky
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 (delete-region (point)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 (+ (point) c))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938 count) t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
940 (defun vi-substitute-lines (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941 "Substitute COUNT lines by the input chars. (=cc in vi)"
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 (vi-goto-insert-state 1 (list 'vi-delete-op 'next-line (1- count)) t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
944
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 (defun vi-prefix-char-value (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 "Get the char part of the current prefix argument."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947 (cond ((null arg) nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948 ((integerp arg) nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
949 ((consp arg) (cdr arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
950 (t nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952 (defun vi-operator (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953 "Handling vi operators (d/c/</>/!/=/y). Current implementation requires
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954 the key bindings of the operators being fixed."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 (catch 'vi-exit-op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 (let ((this-op-char last-command-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 (setq last-command-char (read-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 (setq this-command (lookup-key vi-com-map (char-to-string last-command-char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 (if (not (eq this-command 'vi-digit-argument))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 (setq prefix-arg arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 (vi-digit-argument arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 (setq last-command-char (read-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964 (setq this-command (lookup-key vi-com-map (char-to-string last-command-char))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965 (cond ((char-equal this-op-char last-command-char) ; line op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 (vi-execute-op this-op-char 'next-line
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 (cons (1- (vi-prefix-numeric-value prefix-arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 (vi-prefix-char-value prefix-arg))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
969 ;; We assume any command that has no property 'point-moving-unit'
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 ;; as having that property with the value 'CHAR'. 3/12/86
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971 (t ;; (get this-command 'point-moving-unit)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 (vi-execute-op this-op-char this-command prefix-arg))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 ;; (t (throw 'vi-exit-op (ding)))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
975 (defun vi-execute-op (op-char motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 "Execute vi edit operator as specified by OP-CHAR, the operand is the region
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
977 determined by the MOTION-COMMAND with ARG."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
978 (cond ((= op-char ?d)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
979 (if (vi-delete-op motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
980 (vi-set-last-change-command 'vi-delete-op (vi-repeat-command-of motion-command) arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
981 ((= op-char ?c)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
982 (if (vi-delete-op motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
983 (vi-goto-insert-state 1 (list 'vi-delete-op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
984 (vi-repeat-command-of motion-command) arg) nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
985 ((= op-char ?y)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
986 (if (vi-yank-op motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
987 (vi-set-last-change-command 'vi-yank-op (vi-repeat-command-of motion-command) arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
988 ((= op-char ?!)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
989 (if (vi-shell-op motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 (vi-set-last-change-command 'vi-shell-op (vi-repeat-command-of motion-command) arg vi-last-shell-command)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991 ((= op-char ?<)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
992 (if (vi-shift-op motion-command arg (- vi-shift-width))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
993 (vi-set-last-change-command 'vi-shift-op (vi-repeat-command-of motion-command) arg (- vi-shift-width))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
994 ((= op-char ?>)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
995 (if (vi-shift-op motion-command arg vi-shift-width)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
996 (vi-set-last-change-command 'vi-shift-op (vi-repeat-command-of motion-command) arg vi-shift-width)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
997 ((= op-char ?=)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
998 (if (vi-indent-op motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
999 (vi-set-last-change-command 'vi-indent-op (vi-repeat-command-of motion-command) arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1000 ((= op-char ?\\)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1001 (vi-narrow-op motion-command arg))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1002
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1003 (defun vi-repeat-command-of (command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1004 "Return the command for redo the given command."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1005 (let ((cmd-type (get command 'point-moving-unit)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1006 (cond ((eq cmd-type 'search) 'vi-repeat-last-search)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1007 ((eq cmd-type 'find) 'vi-repeat-last-find-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1008 (t command))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1009
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1010 (defun vi-effective-range (motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1011 "Return (begin . end) of the range spanned by executing the given
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1012 MOTION-COMMAND with ARG.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1013 MOTION-COMMAND in ready-to-eval list form is not yet supported."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1014 (save-excursion
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1015 (let ((begin (point)) end opoint
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016 (moving-unit (get motion-command 'point-moving-unit)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1017 (setq prefix-arg arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1018 (setq opoint (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1019 (command-execute motion-command nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1020 ;; Check if there is any effective motion. Note that for single line operation
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 ;; the motion-command causes no effective point movement (since it moves up or
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1022 ;; down zero lines), but it should be counted as effectively moved.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 (if (and (= (point) opoint) (not (eq moving-unit 'line)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 (cons opoint opoint) ; no effective motion
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025 (if (eq moving-unit 'region)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 (setq begin (or (mark) (point))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 (if (<= begin (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028 (setq end (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1029 (setq end begin)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030 (setq begin (point)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 (cond ((or (eq moving-unit 'match) (eq moving-unit 'find))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 (setq end (1+ end)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1033 ((eq moving-unit 'line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1034 (goto-char begin) (beginning-of-line) (setq begin (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035 (goto-char end) (next-line 1) (beginning-of-line) (setq end (point))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1036 (if (> end (point-max)) (setq end (point-max))) ; force in buffer region
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1037 (cons begin end)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1038
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1039 (defun vi-delete-op (motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1040 "Delete range specified by MOTION-COMMAND with ARG."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1041 (let* ((range (vi-effective-range motion-command arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1042 (begin (car range)) (end (cdr range)) reg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1043 (if (= begin end)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1044 nil ; point not moved, abort op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1045 (setq reg (vi-prefix-char-value arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1046 (if (null reg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1047 (kill-region begin end) ; kill ring as unnamed registers
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1048 (if (and (>= reg ?A) (<= reg ?Z))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1049 (append-to-register (downcase reg) begin end t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1050 (copy-to-register reg begin end t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1051 t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1052
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053 (defun vi-yank-op (motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1054 "Yank (in vi sense) range specified by MOTION-COMMAND with ARG."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1055 (let* ((range (vi-effective-range motion-command arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1056 (begin (car range)) (end (cdr range)) reg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1057 (if (= begin end)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1058 nil ; point not moved, abort op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1059 (setq reg (vi-prefix-char-value arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1060 (if (null reg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1061 (copy-region-as-kill begin end); kill ring as unnamed registers
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1062 (if (and (>= reg ?A) (<= reg ?Z))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1063 (append-to-register (downcase reg) begin end nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1064 (copy-to-register reg begin end nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1065 t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1066
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1067 (defun vi-yank-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1068 "Yank (in vi sense) lines (= `yy' command)."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 (interactive "*P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1070 (setq arg (cons (1- (vi-prefix-numeric-value arg)) (vi-prefix-char-value arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071 (if (vi-yank-op 'next-line arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1072 (vi-set-last-change-command 'vi-yank-op 'next-line arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1073
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1074 (defun vi-string-end-with-nl-p (string)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1075 "See if STRING ends with a newline char.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1076 Used in checking whether the yanked text should be put back as lines or not."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1077 (= (aref string (1- (length string))) ?\n))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1079 (defun vi-put-before (arg &optional after-p)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1080 "Put yanked (in vi sense) text back before/above cursor.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1081 If a numeric prefix value (currently it should be >1) is given, put back
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1082 text as lines. If the optional after-p is given, put after/below the cursor."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1083 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1084 (let ((reg (vi-prefix-char-value arg)) put-text)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1085 (if (and reg (or (< reg ?1) (> reg ?9)) (null (get-register reg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 (error "Nothing in register %c" reg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 (if (null reg) (setq reg ?1)) ; the default is the last text killed
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 (setq put-text
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 657
diff changeset
1089 (cond
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 657
diff changeset
1090 ((and (>= reg ?1) (<= reg ?9))
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 657
diff changeset
1091 (setq this-command 'yank) ; So we may yank-pop !!
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 657
diff changeset
1092 (current-kill (- reg ?0 1) 'do-not-rotate))
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 657
diff changeset
1093 ((stringp (get-register reg)) (get-register reg))
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 657
diff changeset
1094 (t (error "Register %c is not containing text string" reg))))
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1095 (if (vi-string-end-with-nl-p put-text) ; put back text as lines
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1096 (if after-p
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1097 (progn (next-line 1) (beginning-of-line))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1098 (beginning-of-line))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 (if after-p (forward-char 1)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1100 (push-mark (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101 (insert put-text)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1102 (exchange-point-and-mark)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103 ;; (back-to-indentation) ; this is not allowed if we allow yank-pop
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1104 (vi-set-last-change-command 'vi-put-before arg after-p))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106 (defun vi-put-after (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 "Put yanked (in vi sense) text back after/below cursor."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 (vi-put-before arg t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 (defun vi-shell-op (motion-command arg &optional shell-command)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1112 "Perform shell command (as filter).
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1113 Performs command on range specified by MOTION-COMMAND
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1114 with ARG. If SHELL-COMMAND is not given, ask for one from minibuffer.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 If char argument is given, it directs the output to a *temp* buffer."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 (let* ((range (vi-effective-range motion-command arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117 (begin (car range)) (end (cdr range)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 (if (= begin end)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1119 nil ; point not moved, abort op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 (cond ((null shell-command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 (setq shell-command (read-string "!" nil))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122 (setq vi-last-shell-command shell-command)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1123 (shell-command-on-region begin end shell-command (not (vi-prefix-char-value arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 (defun vi-shift-op (motion-command arg amount)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 "Perform shift command on range specified by MOTION-COMMAND with ARG for
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 AMOUNT on each line. Negative amount means shift left.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129 SPECIAL FEATURE: char argument can be used to specify shift amount(1-9)."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 (let* ((range (vi-effective-range motion-command arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 (begin (car range)) (end (cdr range)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132 (if (= begin end)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 nil ; point not moved, abort op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1134 (if (vi-prefix-char-value arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135 (setq amount (if (> amount 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 (- (vi-prefix-char-value arg) ?0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137 (- ?0 (vi-prefix-char-value arg)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 (indent-rigidly begin end amount)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1139 t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 (defun vi-indent-op (motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1142 "Perform indent command on range specified by MOTION-COMMAND with ARG."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143 (let* ((range (vi-effective-range motion-command arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 (begin (car range)) (end (cdr range)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145 (if (= begin end)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1146 nil ; point not moved, abort op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1147 (indent-region begin end nil) ; insert TAB as indent command
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1148 t)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150 (defun vi-narrow-op (motion-command arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 "Narrow to region specified by MOTION-COMMAND with ARG."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152 (let* ((range (vi-effective-range motion-command arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1153 (begin (car range)) (end (cdr range)) reg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 (if (= begin end)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 nil ; point not moved, abort op
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 (narrow-to-region begin end))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 (defun vi-get-mark (char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 "Return contents of vi mark register named CHAR, or nil if undefined."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160 (cdr (assq char vi-mark-alist)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1161
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 (defun vi-set-mark (char)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1163 "Set contents of vi mark register named CHAR to current point.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1164 '@' is the special anonymous mark register."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 (interactive "c")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166 (if (char-equal char ?@)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1167 (set-mark-command nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1168 (let ((aelt (assq char vi-mark-alist)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1169 (if aelt
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1170 (move-marker (cdr aelt) (point)) ; fixed 6/12/86
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1171 (setq aelt (cons char (copy-marker (point))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1172 (setq vi-mark-alist (cons aelt vi-mark-alist))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1173
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1174 (defun vi-find-matching-paren ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1175 "Locate the matching paren. It's a hack right now."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1176 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1177 (cond ((looking-at "[[({]") (forward-sexp 1) (backward-char 1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1178 ((looking-at "[])}]") (forward-char 1) (backward-sexp 1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1179 (t (ding))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181 (defun vi-backward-blank-delimited-word (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1182 "Backward COUNT blank-delimited words."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 (if (re-search-backward "[ \t\n\`][^ \t\n\`]+" nil t count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1185 (if (not (bobp)) (forward-char 1))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1186
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1187 (defun vi-forward-blank-delimited-word (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188 "Forward COUNT blank-delimited words."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1189 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190 (if (re-search-forward "[^ \t\n]*[ \t\n]+[^ \t\n]" nil t count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1191 (if (not (eobp)) (backward-char 1))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1192
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1193 (defun vi-end-of-blank-delimited-word (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1194 "Forward to the end of the COUNT'th blank-delimited word."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1195 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1196 (if (re-search-forward "[^ \t\n\']+[ \t\n\']" nil t count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 (if (not (eobp)) (backward-char 2))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199 (defun vi-home-window-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200 "To window home or arg'th line from the top of the window."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 (move-to-window-line (1- arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 (back-to-indentation))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205 (defun vi-last-window-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1206 "To window last line or arg'th line from the bottom of the window."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1208 (move-to-window-line (- arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1209 (back-to-indentation))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1210
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1211 (defun vi-middle-window-line ()
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212 "To the middle line of the window."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1213 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 (move-to-window-line nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 (back-to-indentation))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 (defun vi-forward-word (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 "Stop at the beginning of the COUNT'th words from point."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220 (if (re-search-forward "\\w*\\W+\\<" nil t count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221 t
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 (vi-ding)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1224 (defun vi-set-last-change-command (fun &rest args)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1225 "Set (FUN . ARGS) as the `last-change-command'."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 (setq vi-last-change-command (cons fun args)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1227
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 (defun vi-redo-last-change-command (count &optional command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229 "Redo last change command COUNT times. If the optional COMMAND is given,
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1230 it is used instead of the current `last-change-command'."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1231 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1232 (if (null command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1233 (setq command vi-last-change-command))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1234 (if (null command)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1235 (message "No last change command available.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1236 (while (> count 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1237 (apply (car command) (cdr command))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238 (setq count (1- count)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1239
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1240 (defun vi-kill-char (count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1241 "Kill COUNT chars from current point."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1242 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243 (delete-char count t) ; save in kill ring
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1244 (vi-set-last-change-command 'delete-char count t))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1245
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1246 (defun vi-transpose-objects (arg unit)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1247 "Transpose objects.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1248 The following char specifies unit of objects to be
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1249 transposed -- \"c\" for chars, \"l\" for lines, \"w\" for words, \"s\" for
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1250 sexp, \"p\" for paragraph.
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1251 For the use of the prefix-arg, refer to individual functions called."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1252 (interactive "*P\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1253 (if (char-equal unit ??)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1254 (progn
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1255 (message "Transpose: c(har), l(ine), p(aragraph), s(-exp), w(ord),")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256 (setq unit (read-char))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1257 (vi-set-last-change-command 'vi-transpose-objects arg unit)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258 (cond ((char-equal unit ?c) (transpose-chars arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1259 ((char-equal unit ?l) (transpose-lines (vi-prefix-numeric-value arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1260 ((char-equal unit ?p) (transpose-paragraphs (vi-prefix-numeric-value arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 ((char-equal unit ?s) (transpose-sexps (vi-prefix-numeric-value arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262 ((char-equal unit ?w) (transpose-words (vi-prefix-numeric-value arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263 (t (vi-transpose-objects arg ??))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 (defun vi-query-replace (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266 "Query replace, use regexp version if ARG is non-nil."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267 (interactive "*P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 (let ((rcmd (if arg 'query-replace-regexp 'query-replace)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269 (call-interactively rcmd nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1271 (defun vi-replace (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1272 "Replace strings, use regexp version if ARG is non-nil."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273 (interactive "*P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1274 (let ((rcmd (if arg 'replace-regexp 'replace-string)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275 (call-interactively rcmd nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1276
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1277 (defun vi-adjust-window (arg position)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278 "Move current line to the top/center/bottom of the window."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1279 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1280 (cond ((char-equal position ?\r) (recenter 0))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1281 ((char-equal position ?-) (recenter -1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1282 ((char-equal position ?.) (recenter (/ (window-height) 2)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1283 (t (message "Move current line to: \\r(top) -(bottom) .(middle)")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1284 (setq position (read-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1285 (vi-adjust-window arg position))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1286
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1287 (defun vi-goto-column (col)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1288 "Go to given column of the current line."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1289 (interactive "p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1290 (let ((opoint (point)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291 (beginning-of-line)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1292 (while (> col 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1293 (if (eolp)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1294 (setq col 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1295 (forward-char 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1296 (setq col (1- col))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1297 (if (= col 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1298 t
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1299 (goto-char opoint)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1300 (ding))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1301
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1302 (defun vi-name-last-change-or-macro (arg char)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1303 "Give name to the last change command or just defined kbd macro.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1304 If prefix ARG is given, name last macro, otherwise name last change command.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1305 The following CHAR will be the name for the command or macro."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1306 (interactive "P\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1307 (if arg
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1308 (name-last-kbd-macro (intern (char-to-string char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1309 (if (eq (car vi-last-change-command) 'vi-first-redo-insertion)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1310 (let* ((args (cdr vi-last-change-command)) ; save the insertion text
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1311 (str (buffer-substring (nth 0 args) (nth 1 args)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1312 (overwrite-p (nth 2 args))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1313 (prefix-code (nth 3 args)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1314 (vi-set-last-change-command 'vi-more-redo-insertion str
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1315 overwrite-p prefix-code)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1316 (fset (intern (char-to-string char)) vi-last-change-command)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1317
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1318 (defun vi-call-named-change-or-macro (count char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1319 "Execute COUNT times the keyboard macro definition named by the following CHAR."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1320 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1321 (if (stringp (symbol-function (intern (char-to-string char))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322 (execute-kbd-macro (intern (char-to-string char)) count)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1323 (vi-redo-last-change-command count (symbol-function (intern (char-to-string char))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1325 (defun vi-change-case (arg) ; could be made as an operator ?
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326 "Change the case of the char after point."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1327 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1328 (catch 'exit
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 (if (looking-at "[a-z]")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1330 (upcase-region (point) (+ (point) arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 (if (looking-at "[A-Z]")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332 (downcase-region (point) (+ (point) arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 (ding)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1334 (throw 'exit nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1335 (vi-set-last-change-command 'vi-change-case arg) ;should avoid redundant save
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1336 (forward-char arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1337
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 (defun vi-ask-for-info (char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339 "Inquire status info. The next CHAR will specify the particular info requested."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1340 (interactive "c")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1341 (cond ((char-equal char ?l) (what-line))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342 ((char-equal char ?c) (what-cursor-position))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 ((char-equal char ?p) (what-page))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344 (t (message "Ask for: l(ine number), c(ursor position), p(age number)")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1345 (setq char (read-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1346 (vi-ask-for-info char))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1347
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1348 (defun vi-mark-region (arg region)
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 1577
diff changeset
1349 "Mark region appropriately. The next char REGION is d(efun),s(-exp),b(uffer),
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1350 p(aragraph), P(age), f(unction in C/Pascal etc.), w(ord), e(nd of sentence),
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1351 l(ines)."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1352 (interactive "p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1353 (cond ((char-equal region ?d) (mark-defun arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1354 ((char-equal region ?s) (mark-sexp arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1355 ((char-equal region ?b) (mark-whole-buffer))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1356 ((char-equal region ?p) (mark-paragraph arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1357 ((char-equal region ?P) (mark-page arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1358 ((char-equal region ?f) (mark-c-function arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1359 ((char-equal region ?w) (mark-word arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1360 ((char-equal region ?e) (mark-end-of-sentence arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361 ((char-equal region ?l) (vi-mark-lines arg))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1362 (t (message "Mark: d(efun),s(-exp),b(uf),p(arag),P(age),f(unct),w(ord),e(os),l(ines)")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1363 (setq region (read-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1364 (vi-mark-region arg region))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1365
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1366 (defun vi-mark-lines (num)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1367 "Mark NUM of lines from current line as current region."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1368 (beginning-of-line 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1369 (push-mark)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1370 (end-of-line num))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1371
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1372 (defun vi-verify-spelling (arg unit)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1373 "Verify spelling for the objects specified by char UNIT : [b(uffer),
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1374 r(egion), s(tring), w(ord) ]."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1375 (interactive "P\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1376 (setq prefix-arg arg) ; seems not needed
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1377 (cond ((char-equal unit ?b) (call-interactively 'spell-buffer))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1378 ((char-equal unit ?r) (call-interactively 'spell-region))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1379 ((char-equal unit ?s) (call-interactively 'spell-string))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1380 ((char-equal unit ?w) (call-interactively 'spell-word))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1381 (t (message "Spell check: b(uffer), r(egion), s(tring), w(ord)")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1382 (setq unit (read-char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1383 (vi-verify-spelling arg unit))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1384
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1385 (defun vi-do-old-mode-C-c-command (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1386 "This is a hack for accessing mode specific C-c commands in vi-mode."
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1387 (interactive "P")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1388 (let ((cmd (lookup-key vi-mode-old-local-map
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1389 (concat "\C-c" (char-to-string (read-char))))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1390 (if (catch 'exit-vi-mode ; kludge hack due to dynamic binding
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1391 ; of case-fold-search
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1392 (if (null cmd)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1393 (progn (ding) nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1394 (let ((case-fold-search vi-mode-old-case-fold)) ; a hack
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1395 (setq prefix-arg arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1396 (command-execute cmd nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1397 nil)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1398 (progn
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1399 (vi-back-to-old-mode)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1400 (setq prefix-arg arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1401 (command-execute cmd nil)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1402
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1403 (defun vi-quote-words (arg char)
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1404 "Quote ARG words from the word point is on with pattern specified by CHAR.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1405 Currently, CHAR could be [,{,(,\",',`,<,*, etc."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1406 (interactive "*p\nc")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1407 (while (not (string-match "[[({<\"'`*]" (char-to-string char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1408 (message "Enter any of [,{,(,<,\",',`,* as quoting character.")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1409 (setq char (read-char)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1410 (vi-set-last-change-command 'vi-quote-words arg char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1411 (if (not (looking-at "\\<")) (forward-word -1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1412 (insert char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1413 (cond ((char-equal char ?[) (setq char ?]))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1414 ((char-equal char ?{) (setq char ?}))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1415 ((char-equal char ?<) (setq char ?>))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1416 ((char-equal char ?() (setq char ?)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1417 ((char-equal char ?`) (setq char ?')))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1418 (vi-end-of-word arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1419 (forward-char 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1420 (insert char))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1421
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1422 (defun vi-locate-def ()
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1423 "Locate definition in current file for the name before the point.
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1424 It assumes a `(def..' always starts at the beginning of a line."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1425 (interactive)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1426 (let (name)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1427 (save-excursion
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1428 (setq name (buffer-substring (progn (vi-backward-blank-delimited-word 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1429 (skip-chars-forward "^a-zA-Z")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1430 (point))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1431 (progn (vi-end-of-blank-delimited-word 1)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1432 (forward-char)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1433 (skip-chars-backward "^a-zA-Z")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1434 (point)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1435 (set-mark-command nil)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1436 (goto-char (point-min))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1437 (if (re-search-forward (concat "^(def[unvarconst ]*" name) nil t)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1438 nil
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1439 (message "No definition for \"%s\" in current file." name (ding))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1440 (set-mark-command t))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1441
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1442 (defun vi-split-open-line (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1443 "Insert a newline and leave point before it.
1577
a52da8d63ff3 Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 841
diff changeset
1444 With ARG, inserts that many newlines."
6
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1445 (interactive "*p")
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1446 (vi-goto-insert-state 1
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1447 (list (function (lambda (arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1448 (let ((flag (and (bolp) (not (bobp)))))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1449 (if flag (forward-char -1))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1450 (while (> arg 0)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1451 (save-excursion
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1452 (insert ?\n)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1453 (if fill-prefix (insert fill-prefix)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1454 (setq arg (1- arg)))
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1455 (if flag (forward-char 1))))) arg)
058329560a88 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1456 t))
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
1457
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
1458 ;;; vi.el ends here