Commit | Line | Data |
---|---|---|
9b70a748 MK |
1 | ;;; viper-init.el --- some common definitions for Viper |
2 | ||
5fd6d89f | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
f0fa15c5 | 4 | ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
9b70a748 | 5 | |
50a07e18 | 6 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
02f34c70 | 7 | |
9b70a748 MK |
8 | ;; This file is part of GNU Emacs. |
9 | ||
10 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 | ;; it under the terms of the GNU General Public License as published by | |
12 | ;; the Free Software Foundation; either version 2, or (at your option) | |
13 | ;; any later version. | |
14 | ||
15 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | ;; GNU General Public License for more details. | |
19 | ||
20 | ;; You should have received a copy of the GNU General Public License | |
21 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
3a35cf56 LK |
22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 | ;; Boston, MA 02110-1301, USA. | |
9b70a748 | 24 | |
60370d40 PJ |
25 | ;;; Commentary: |
26 | ||
27 | ;;; Code: | |
9b70a748 MK |
28 | |
29 | (provide 'viper-init) | |
30 | ||
31 | ;; compiler pacifier | |
32 | (defvar mark-even-if-inactive) | |
34317da2 MK |
33 | (defvar quail-mode) |
34 | (defvar iso-accents-mode) | |
35 | (defvar viper-current-state) | |
726e270f | 36 | (defvar viper-version) |
1e70790f | 37 | (defvar viper-expert-level) |
2eb4bdca MK |
38 | (defvar current-input-method) |
39 | (defvar default-input-method) | |
40 | (defvar describe-current-input-method-function) | |
50a07e18 MK |
41 | (defvar bar-cursor) |
42 | (defvar default-cursor-type) | |
43 | (defvar cursor-type) | |
9b70a748 MK |
44 | ;; end pacifier |
45 | ||
726e270f MK |
46 | |
47 | ;; Viper version | |
48 | (defun viper-version () | |
49 | (interactive) | |
f1097063 | 50 | (message "Viper version is %s" viper-version)) |
726e270f | 51 | |
9b70a748 | 52 | ;; Is it XEmacs? |
8626cfa2 | 53 | (defconst viper-xemacs-p (string-match "XEmacs" emacs-version)) |
9b70a748 | 54 | ;; Is it Emacs? |
8626cfa2 | 55 | (defconst viper-emacs-p (not viper-xemacs-p)) |
9b70a748 | 56 | ;; Tell whether we are running as a window application or on a TTY |
50a07e18 MK |
57 | |
58 | ;; This is used to avoid compilation warnings. When emacs/xemacs forms can | |
59 | ;; generate compile time warnings, we use this macro. | |
60 | ;; In this case, the macro will expand into the form that is appropriate to the | |
61 | ;; compiler at hand. | |
62 | ;; Suggested by rms. | |
63 | (defmacro viper-cond-compile-for-xemacs-or-emacs (xemacs-form emacs-form) | |
64 | (if (string-match "XEmacs" emacs-version) | |
65 | xemacs-form emacs-form)) | |
66 | ||
67 | ||
8626cfa2 | 68 | (defsubst viper-device-type () |
50a07e18 MK |
69 | (viper-cond-compile-for-xemacs-or-emacs |
70 | (device-type (selected-device)) | |
71 | window-system | |
72 | )) | |
73 | ||
3f9526a3 MK |
74 | (defun viper-color-display-p () |
75 | (condition-case nil | |
76 | (viper-cond-compile-for-xemacs-or-emacs | |
77 | (eq (device-class (selected-device)) 'color) ; xemacs form | |
78 | (if (fboundp 'display-color-p) ; emacs form | |
79 | (display-color-p) | |
80 | (x-display-color-p)) | |
81 | ) | |
82 | (error nil))) | |
83 | ||
9b70a748 | 84 | ;; in XEmacs: device-type is tty on tty and stream in batch. |
8626cfa2 MK |
85 | (defun viper-window-display-p () |
86 | (and (viper-device-type) (not (memq (viper-device-type) '(tty stream pc))))) | |
9b70a748 | 87 | |
8e41a31c MK |
88 | (defcustom viper-ms-style-os-p (memq system-type |
89 | '(ms-dos windows-nt windows-95)) | |
1e70790f MK |
90 | "Tells if Emacs is running under an MS-style OS: ms-dos, windows-nt, W95." |
91 | :type 'boolean | |
92 | :tag "Is it Microsoft-made OS?" | |
8e41a31c | 93 | :group 'viper-misc) |
8626cfa2 | 94 | (defcustom viper-vms-os-p (memq system-type '(vax-vms axp-vms)) |
1e70790f MK |
95 | "Tells if Emacs is running under VMS." |
96 | :type 'boolean | |
97 | :tag "Is it VMS?" | |
8e41a31c | 98 | :group 'viper-misc) |
1e70790f | 99 | |
ac64a728 MK |
100 | (defcustom viper-suppress-input-method-change-message nil |
101 | "If t, the message notifying about changes in the input method is not displayed. | |
102 | Normally, a message is displayed each time on enters the vi, insert or replace | |
103 | state." | |
104 | :type 'boolean | |
105 | :group 'viper-misc) | |
106 | ||
8626cfa2 | 107 | (defcustom viper-force-faces nil |
9b70a748 | 108 | "If t, Viper will think that it is running on a display that supports faces. |
1e70790f MK |
109 | This is provided as a temporary relief for users of graphics-capable terminals |
110 | that Viper doesn't know about. | |
111 | In all likelihood, you don't need to bother with this setting." | |
112 | :type 'boolean | |
8e41a31c | 113 | :group 'viper-highlighting) |
9b70a748 | 114 | |
8626cfa2 MK |
115 | (defun viper-has-face-support-p () |
116 | (cond ((viper-window-display-p)) | |
117 | (viper-force-faces) | |
3f9526a3 | 118 | ((viper-color-display-p)) |
8626cfa2 MK |
119 | (viper-emacs-p (memq (viper-device-type) '(pc))) |
120 | (viper-xemacs-p (memq (viper-device-type) '(tty pc))))) | |
9b70a748 MK |
121 | |
122 | \f | |
123 | ;;; Macros | |
124 | ||
8626cfa2 | 125 | (defmacro viper-deflocalvar (var default-value &optional documentation) |
f1097063 SS |
126 | `(progn |
127 | (defvar ,var ,default-value | |
128 | ,(format "%s\n\(buffer local\)" documentation)) | |
129 | (make-variable-buffer-local ',var))) | |
9b70a748 | 130 | |
34317da2 MK |
131 | ;; (viper-loop COUNT BODY) Execute BODY COUNT times. |
132 | (defmacro viper-loop (count &rest body) | |
f1097063 SS |
133 | `(let ((count ,count)) |
134 | (while (> count 0) | |
135 | ,@body | |
136 | (setq count (1- count))))) | |
9b70a748 | 137 | |
8626cfa2 | 138 | (defmacro viper-buffer-live-p (buf) |
f1097063 SS |
139 | `(and ,buf (get-buffer ,buf) (buffer-name (get-buffer ,buf)))) |
140 | ||
9b70a748 | 141 | ;; return buffer-specific macro definition, given a full macro definition |
8626cfa2 | 142 | (defmacro viper-kbd-buf-alist (macro-elt) |
f1097063 | 143 | `(nth 1 ,macro-elt)) |
9b70a748 | 144 | ;; get a pair: (curr-buffer . macro-definition) |
8626cfa2 | 145 | (defmacro viper-kbd-buf-pair (macro-elt) |
f1097063 | 146 | `(assoc (buffer-name) (viper-kbd-buf-alist ,macro-elt))) |
9b70a748 | 147 | ;; get macro definition for current buffer |
8626cfa2 | 148 | (defmacro viper-kbd-buf-definition (macro-elt) |
f1097063 SS |
149 | `(cdr (viper-kbd-buf-pair ,macro-elt))) |
150 | ||
9b70a748 | 151 | ;; return mode-specific macro definitions, given a full macro definition |
8626cfa2 | 152 | (defmacro viper-kbd-mode-alist (macro-elt) |
f1097063 | 153 | `(nth 2 ,macro-elt)) |
9b70a748 | 154 | ;; get a pair: (major-mode . macro-definition) |
8626cfa2 | 155 | (defmacro viper-kbd-mode-pair (macro-elt) |
f1097063 | 156 | `(assoc major-mode (viper-kbd-mode-alist ,macro-elt))) |
9b70a748 | 157 | ;; get macro definition for the current major mode |
8626cfa2 | 158 | (defmacro viper-kbd-mode-definition (macro-elt) |
f1097063 SS |
159 | `(cdr (viper-kbd-mode-pair ,macro-elt))) |
160 | ||
9b70a748 | 161 | ;; return global macro definition, given a full macro definition |
8626cfa2 | 162 | (defmacro viper-kbd-global-pair (macro-elt) |
f1097063 | 163 | `(nth 3 ,macro-elt)) |
9b70a748 | 164 | ;; get global macro definition from an elt of macro-alist |
8626cfa2 | 165 | (defmacro viper-kbd-global-definition (macro-elt) |
f1097063 SS |
166 | `(cdr (viper-kbd-global-pair ,macro-elt))) |
167 | ||
9b70a748 | 168 | ;; last elt of a sequence |
8626cfa2 | 169 | (defsubst viper-seq-last-elt (seq) |
9b70a748 | 170 | (elt seq (1- (length seq)))) |
34317da2 MK |
171 | |
172 | (defsubst viper-string-to-list (string) | |
173 | (append (vconcat string) nil)) | |
174 | ||
175 | (defsubst viper-charlist-to-string (list) | |
176 | (mapconcat 'char-to-string list "")) | |
177 | ||
178 | ;; like char-after/before, but saves typing | |
179 | (defun viper-char-at-pos (direction &optional offset) | |
180 | (or (integerp offset) (setq offset 0)) | |
181 | (if (eq direction 'forward) | |
182 | (char-after (+ (point) offset)) | |
183 | (char-before (- (point) offset)))) | |
f1097063 | 184 | |
9b70a748 | 185 | \f |
8626cfa2 MK |
186 | (defvar viper-minibuffer-overlay-priority 300) |
187 | (defvar viper-replace-overlay-priority 400) | |
188 | (defvar viper-search-overlay-priority 500) | |
f1097063 | 189 | |
9b70a748 MK |
190 | \f |
191 | ;;; Viper minor modes | |
192 | ||
9b70a748 | 193 | ;; Mode for vital things like \e, C-z. |
8626cfa2 | 194 | (viper-deflocalvar viper-vi-intercept-minor-mode nil) |
9b70a748 | 195 | |
8626cfa2 | 196 | (viper-deflocalvar viper-vi-basic-minor-mode nil |
9b70a748 | 197 | "Viper's minor mode for Vi bindings.") |
f1097063 | 198 | |
8626cfa2 | 199 | (viper-deflocalvar viper-vi-local-user-minor-mode nil |
9b70a748 MK |
200 | "Auxiliary minor mode for user-defined local bindings in Vi state.") |
201 | ||
8626cfa2 | 202 | (viper-deflocalvar viper-vi-global-user-minor-mode nil |
9b70a748 MK |
203 | "Auxiliary minor mode for user-defined global bindings in Vi state.") |
204 | ||
8626cfa2 | 205 | (viper-deflocalvar viper-vi-state-modifier-minor-mode nil |
9b70a748 MK |
206 | "Minor mode used to make major-mode-specific modification to Vi state.") |
207 | ||
8626cfa2 | 208 | (viper-deflocalvar viper-vi-diehard-minor-mode nil |
9b70a748 MK |
209 | "This minor mode is in effect when the user wants Viper to be Vi.") |
210 | ||
8626cfa2 | 211 | (viper-deflocalvar viper-vi-kbd-minor-mode nil |
9b70a748 MK |
212 | "Minor mode for Ex command macros in Vi state. |
213 | The corresponding keymap stores key bindings of Vi macros defined with | |
214 | the Ex command :map.") | |
215 | ||
216 | ;; Mode for vital things like \e, C-z. | |
8626cfa2 | 217 | (viper-deflocalvar viper-insert-intercept-minor-mode nil) |
9b70a748 | 218 | |
8626cfa2 | 219 | (viper-deflocalvar viper-insert-basic-minor-mode nil |
9b70a748 MK |
220 | "Viper's minor mode for bindings in Insert mode.") |
221 | ||
8626cfa2 | 222 | (viper-deflocalvar viper-insert-local-user-minor-mode nil |
9b70a748 MK |
223 | "Auxiliary minor mode for buffer-local user-defined bindings in Insert state. |
224 | This is a way to overshadow normal Insert mode bindings locally to certain | |
225 | designated buffers.") | |
226 | ||
8626cfa2 | 227 | (viper-deflocalvar viper-insert-global-user-minor-mode nil |
9b70a748 MK |
228 | "Auxiliary minor mode for global user-defined bindings in Insert state.") |
229 | ||
8626cfa2 | 230 | (viper-deflocalvar viper-insert-state-modifier-minor-mode nil |
9b70a748 MK |
231 | "Minor mode used to make major-mode-specific modification to Insert state.") |
232 | ||
8626cfa2 | 233 | (viper-deflocalvar viper-insert-diehard-minor-mode nil |
9b70a748 MK |
234 | "Minor mode that simulates Vi very closely. |
235 | Not recommened, except for the novice user.") | |
236 | ||
8626cfa2 | 237 | (viper-deflocalvar viper-insert-kbd-minor-mode nil |
9b70a748 MK |
238 | "Minor mode for Ex command macros Insert state. |
239 | The corresponding keymap stores key bindings of Vi macros defined with | |
240 | the Ex command :map!.") | |
241 | ||
8626cfa2 | 242 | (viper-deflocalvar viper-replace-minor-mode nil |
9b70a748 MK |
243 | "Minor mode in effect in replace state (cw, C, and the like commands).") |
244 | ||
328b4b70 | 245 | ;; Mode for vital things like \C-z and \C-x) This is set to t, when viper-mode |
3af0304a MK |
246 | ;; is invoked. So, any new buffer will have C-z defined as switch to Vi, |
247 | ;; unless we switched states in this buffer | |
328b4b70 | 248 | (viper-deflocalvar viper-emacs-intercept-minor-mode nil) |
f1097063 | 249 | |
328b4b70 | 250 | (viper-deflocalvar viper-emacs-local-user-minor-mode nil |
9b70a748 MK |
251 | "Minor mode for local user bindings effective in Emacs state. |
252 | Users can use it to override Emacs bindings when Viper is in its Emacs | |
f1097063 SS |
253 | state.") |
254 | ||
328b4b70 | 255 | (viper-deflocalvar viper-emacs-global-user-minor-mode nil |
9b70a748 MK |
256 | "Minor mode for global user bindings in effect in Emacs state. |
257 | Users can use it to override Emacs bindings when Viper is in its Emacs | |
f1097063 | 258 | state.") |
9b70a748 | 259 | |
328b4b70 | 260 | (viper-deflocalvar viper-emacs-kbd-minor-mode nil |
9b70a748 MK |
261 | "Minor mode for Vi style macros in Emacs state. |
262 | The corresponding keymap stores key bindings of Vi macros defined with | |
3af0304a | 263 | `viper-record-kbd-macro' command. There is no Ex-level command to do this |
9b70a748 MK |
264 | interactively.") |
265 | ||
328b4b70 | 266 | (viper-deflocalvar viper-emacs-state-modifier-minor-mode nil |
9b70a748 MK |
267 | "Minor mode used to make major-mode-specific modification to Emacs state. |
268 | For instance, a Vi purist may want to bind `dd' in Dired mode to a function | |
269 | that deletes a file.") | |
270 | ||
8626cfa2 | 271 | (viper-deflocalvar viper-vi-minibuffer-minor-mode nil |
9b70a748 MK |
272 | "Minor mode that forces Vi-style when the Minibuffer is in Vi state.") |
273 | ||
8626cfa2 | 274 | (viper-deflocalvar viper-insert-minibuffer-minor-mode nil |
9b70a748 | 275 | "Minor mode that forces Vi-style when the Minibuffer is in Insert state.") |
f1097063 | 276 | |
9b70a748 MK |
277 | \f |
278 | ||
279 | ;; Some common error messages | |
280 | ||
8626cfa2 MK |
281 | (defconst viper-SpuriousText "Spurious text after command" "") |
282 | (defconst viper-BadExCommand "Not an editor command" "") | |
283 | (defconst viper-InvalidCommandArgument "Invalid command argument" "") | |
284 | (defconst viper-NoPrevSearch "No previous search string" "") | |
285 | (defconst viper-EmptyRegister "`%c': Nothing in this register" "") | |
286 | (defconst viper-InvalidRegister "`%c': Invalid register" "") | |
287 | (defconst viper-EmptyTextmarker "`%c': Text marker doesn't point anywhere" "") | |
288 | (defconst viper-InvalidTextmarker "`%c': Invalid text marker" "") | |
289 | (defconst viper-InvalidViCommand "Invalid command" "") | |
290 | (defconst viper-BadAddress "Ill-formed address" "") | |
291 | (defconst viper-FirstAddrExceedsSecond "First address exceeds second" "") | |
292 | (defconst viper-NoFileSpecified "No file specified" "") | |
9b70a748 | 293 | |
f1097063 | 294 | ;; Is t until viper-mode executes for the very first time. |
9b70a748 | 295 | ;; Prevents recursive descend into startup messages. |
8626cfa2 | 296 | (defvar viper-first-time t) |
9b70a748 | 297 | |
8626cfa2 | 298 | (defvar viper-expert-level (if (boundp 'viper-expert-level) viper-expert-level 0) |
9b70a748 | 299 | "User's expert level. |
8626cfa2 MK |
300 | The minor mode viper-vi-diehard-minor-mode is in effect when |
301 | viper-expert-level is 1 or 2 or when viper-want-emacs-keys-in-vi is t. | |
302 | The minor mode viper-insert-diehard-minor-mode is in effect when | |
303 | viper-expert-level is 1 or 2 or if viper-want-emacs-keys-in-insert is t. | |
1e70790f | 304 | Use `M-x viper-set-expert-level' to change this.") |
9b70a748 | 305 | |
3af0304a | 306 | ;; Max expert level supported by Viper. This is NOT a user option. |
9b70a748 | 307 | ;; It is here to make it hard for the user from resetting it. |
1e70790f | 308 | (defconst viper-max-expert-level 5) |
9b70a748 | 309 | |
9b70a748 | 310 | |
34317da2 MK |
311 | ;;; ISO characters and MULE |
312 | ||
313 | ;; If non-nil, ISO accents will be turned on in insert/replace emacs states and | |
314 | ;; turned off in vi-state. For some users, this behavior may be too | |
3af0304a | 315 | ;; primitive. In this case, use insert/emacs/vi state hooks. |
8626cfa2 | 316 | (viper-deflocalvar viper-automatic-iso-accents nil "") |
3af0304a | 317 | ;; Set iso-accents-mode to ARG. Check if it is bound first |
34317da2 MK |
318 | (defsubst viper-set-iso-accents-mode (arg) |
319 | (if (boundp 'iso-accents-mode) | |
320 | (setq iso-accents-mode arg))) | |
f1097063 | 321 | |
34317da2 MK |
322 | ;; Internal flag used to control when viper mule hooks are run. |
323 | ;; Don't change this! | |
324 | (defvar viper-mule-hook-flag t) | |
3af0304a | 325 | ;; If non-nil, the default intl. input method is turned on. |
34317da2 | 326 | (viper-deflocalvar viper-special-input-method nil "") |
f1097063 | 327 | |
34317da2 MK |
328 | ;; viper hook to run on input-method activation |
329 | (defun viper-activate-input-method-action () | |
330 | (if (null viper-mule-hook-flag) | |
331 | () | |
332 | (setq viper-special-input-method t) | |
333 | ;; turn off special input methods in vi-state | |
334 | (if (eq viper-current-state 'vi-state) | |
335 | (viper-set-input-method nil)) | |
ac64a728 MK |
336 | (if (and (memq viper-current-state '(vi-state insert-state replace-state)) |
337 | (not viper-suppress-input-method-change-message)) | |
34317da2 MK |
338 | (message "Viper special input method%s: on" |
339 | (if (or current-input-method default-input-method) | |
f1097063 | 340 | (format " %S" |
34317da2 MK |
341 | (or current-input-method default-input-method)) |
342 | ""))) | |
343 | )) | |
2eb4bdca | 344 | |
34317da2 MK |
345 | ;; viper hook to run on input-method deactivation |
346 | (defun viper-inactivate-input-method-action () | |
347 | (if (null viper-mule-hook-flag) | |
348 | () | |
349 | (setq viper-special-input-method nil) | |
ac64a728 MK |
350 | (if (and (memq viper-current-state '(vi-state insert-state replace-state)) |
351 | (not viper-suppress-input-method-change-message)) | |
34317da2 MK |
352 | (message "Viper special input method%s: off" |
353 | (if (or current-input-method default-input-method) | |
354 | (format " %S" | |
355 | (or current-input-method default-input-method)) | |
356 | ""))))) | |
357 | ||
358 | (defun viper-inactivate-input-method () | |
359 | (cond ((and viper-emacs-p (fboundp 'inactivate-input-method)) | |
360 | (inactivate-input-method)) | |
361 | ((and viper-xemacs-p (boundp 'current-input-method)) | |
362 | ;; XEmacs had broken quil-mode for some time, so we are working around | |
f1097063 | 363 | ;; it here |
34317da2 MK |
364 | (setq quail-mode nil) |
365 | (if (featurep 'quail) | |
366 | (quail-delete-overlays)) | |
367 | (setq describe-current-input-method-function nil) | |
368 | (setq current-input-method nil) | |
369 | (run-hooks 'input-method-inactivate-hook) | |
370 | (force-mode-line-update)) | |
371 | )) | |
372 | (defun viper-activate-input-method () | |
373 | (cond ((and viper-emacs-p (fboundp 'activate-input-method)) | |
374 | (activate-input-method default-input-method)) | |
b674ceaf RS |
375 | ((featurep 'xemacs) |
376 | (if (fboundp 'quail-mode) (quail-mode 1))))) | |
34317da2 MK |
377 | |
378 | ;; Set quail-mode to ARG | |
379 | (defun viper-set-input-method (arg) | |
380 | (setq viper-mule-hook-flag t) ; just a precaution | |
ac64a728 | 381 | (let (viper-mule-hook-flag) ; temporarily deactivate viper mule hooks |
34317da2 MK |
382 | (cond ((and arg (> (prefix-numeric-value arg) 0) default-input-method) |
383 | ;; activate input method | |
384 | (viper-activate-input-method)) | |
385 | (t ; deactivate input method | |
386 | (viper-inactivate-input-method))) | |
387 | )) | |
388 | ||
9b70a748 MK |
389 | |
390 | ;; VI-style Undo | |
391 | ||
392 | ;; Used to 'undo' complex commands, such as replace and insert commands. | |
8626cfa2 MK |
393 | (viper-deflocalvar viper-undo-needs-adjustment nil) |
394 | (put 'viper-undo-needs-adjustment 'permanent-local t) | |
9b70a748 MK |
395 | |
396 | ;; A mark that Viper puts on buffer-undo-list. Marks the beginning of a | |
3af0304a | 397 | ;; complex command that must be undone atomically. If inserted, it is |
8626cfa2 MK |
398 | ;; erased by viper-change-state-to-vi and viper-repeat. |
399 | (defconst viper-buffer-undo-list-mark 'viper) | |
9b70a748 | 400 | |
8626cfa2 | 401 | (defcustom viper-keep-point-on-undo nil |
9b70a748 | 402 | "*Non-nil means not to move point while undoing commands. |
3af0304a | 403 | This style is different from Emacs and Vi. Try it to see if |
1e70790f MK |
404 | it better fits your working style." |
405 | :type 'boolean | |
406 | :tag "Preserve Position of Point After Undo" | |
f1097063 | 407 | :group 'viper) |
9b70a748 MK |
408 | |
409 | ;; Replace mode and changing text | |
410 | ||
2eb4bdca | 411 | ;; Hack used to pass global states around for short period of time |
8626cfa2 MK |
412 | (viper-deflocalvar viper-intermediate-command nil "") |
413 | ||
414 | ;; This is used to pass the right Vi command key sequence to | |
415 | ;; viper-set-destructive-command whenever (this-command-keys) doesn't give the | |
3af0304a MK |
416 | ;; right result. For instance, in commands like c/bla<RET>, |
417 | ;; (this-command-keys) will return ^M, which invoked exit-minibuffer, while we | |
f1097063 | 418 | ;; need "c/" |
8626cfa2 | 419 | (defconst viper-this-command-keys nil) |
9b70a748 MK |
420 | |
421 | ;; Indicates that the current destructive command has started in replace mode. | |
8626cfa2 | 422 | (viper-deflocalvar viper-began-as-replace nil "") |
9b70a748 | 423 | |
8626cfa2 | 424 | (defcustom viper-allow-multiline-replace-regions t |
9b70a748 MK |
425 | "If non-nil, Viper will allow multi-line replace regions. |
426 | This is an extension to standard Vi. | |
427 | If nil, commands that attempt to replace text spanning multiple lines first | |
1e70790f MK |
428 | delete the text being replaced, as in standard Vi." |
429 | :type 'boolean | |
430 | :group 'viper) | |
431 | ||
8626cfa2 | 432 | (defcustom viper-replace-overlay-cursor-color "Red" |
1e70790f MK |
433 | "*Cursor color when Viper is in Replace state." |
434 | :type 'string | |
435 | :group 'viper) | |
38685583 MK |
436 | (if (fboundp 'make-variable-frame-local) |
437 | (make-variable-frame-local 'viper-replace-overlay-cursor-color)) | |
438 | ||
8626cfa2 | 439 | (defcustom viper-insert-state-cursor-color "Green" |
1e70790f MK |
440 | "Cursor color when Viper is in insert state." |
441 | :type 'string | |
442 | :group 'viper) | |
38685583 MK |
443 | (if (fboundp 'make-variable-frame-local) |
444 | (make-variable-frame-local 'viper-insert-state-cursor-color)) | |
9b70a748 | 445 | |
83f49acb MK |
446 | ;; viper-emacs-state-cursor-color doesn't work well. Causes cursor colors to be |
447 | ;; confused in some cases. So, this var is nulled for now. | |
448 | ;; (defcustom viper-emacs-state-cursor-color "Magenta" | |
449 | (defcustom viper-emacs-state-cursor-color nil | |
a6fb441a | 450 | "Cursor color when Viper is in Emacs state." |
b6178721 MK |
451 | :type 'string |
452 | :group 'viper) | |
453 | (if (fboundp 'make-variable-frame-local) | |
454 | (make-variable-frame-local 'viper-emacs-state-cursor-color)) | |
455 | ||
3af0304a MK |
456 | ;; internal var, used to remember the default cursor color of emacs frames |
457 | (defvar viper-vi-state-cursor-color nil) | |
38685583 MK |
458 | (if (fboundp 'make-variable-frame-local) |
459 | (make-variable-frame-local 'viper-vi-state-cursor-color)) | |
f1097063 | 460 | |
8626cfa2 MK |
461 | (viper-deflocalvar viper-replace-overlay nil "") |
462 | (put 'viper-replace-overlay 'permanent-local t) | |
9b70a748 | 463 | |
8626cfa2 | 464 | (defcustom viper-replace-region-end-delimiter "$" |
9b70a748 | 465 | "A string marking the end of replacement regions. |
8626cfa2 | 466 | It is used only with TTYs or if `viper-use-replace-region-delimiters' |
1e70790f MK |
467 | is non-nil." |
468 | :type 'string | |
469 | :group 'viper) | |
8626cfa2 | 470 | (defcustom viper-replace-region-start-delimiter "" |
9b70a748 | 471 | "A string marking the beginning of replacement regions. |
8626cfa2 | 472 | It is used only with TTYs or if `viper-use-replace-region-delimiters' |
1e70790f MK |
473 | is non-nil." |
474 | :type 'string | |
475 | :group 'viper) | |
f1097063 | 476 | (defcustom viper-use-replace-region-delimiters |
96dffd25 MK |
477 | (or (not (viper-has-face-support-p)) |
478 | (and viper-xemacs-p (eq (viper-device-type) 'tty))) | |
8626cfa2 MK |
479 | "*If non-nil, Viper will always use `viper-replace-region-end-delimiter' and |
480 | `viper-replace-region-start-delimiter' to delimit replacement regions, even on | |
3af0304a | 481 | color displays. By default, the delimiters are used only on TTYs." |
1e70790f MK |
482 | :type 'boolean |
483 | :group 'viper) | |
3af0304a MK |
484 | |
485 | (defcustom viper-read-buffer-function 'read-buffer | |
486 | "Function to use for prompting the user for a buffer name." | |
487 | :type 'symbol | |
488 | :group 'viper) | |
f1097063 | 489 | |
9b70a748 | 490 | ;; XEmacs requires glyphs |
50a07e18 MK |
491 | (viper-cond-compile-for-xemacs-or-emacs |
492 | (progn ; xemacs | |
493 | (or (glyphp viper-replace-region-end-delimiter) | |
494 | (setq viper-replace-region-end-delimiter | |
495 | (make-glyph viper-replace-region-end-delimiter))) | |
496 | (or (glyphp viper-replace-region-start-delimiter) | |
497 | (setq viper-replace-region-start-delimiter | |
498 | (make-glyph viper-replace-region-start-delimiter))) | |
499 | ) | |
500 | nil ; emacs | |
501 | ) | |
502 | ||
f1097063 SS |
503 | |
504 | ||
9b70a748 | 505 | ;; These are local marker that must be initialized to nil and moved with |
8626cfa2 | 506 | ;; `viper-move-marker-locally' |
9b70a748 MK |
507 | ;; |
508 | ;; Remember the last position inside the replace region. | |
8626cfa2 | 509 | (viper-deflocalvar viper-last-posn-in-replace-region nil) |
9b70a748 | 510 | ;; Remember the last position while inserting |
8626cfa2 MK |
511 | (viper-deflocalvar viper-last-posn-while-in-insert-state nil) |
512 | (put 'viper-last-posn-in-replace-region 'permanent-local t) | |
513 | (put 'viper-last-posn-while-in-insert-state 'permanent-local t) | |
9b70a748 | 514 | |
8626cfa2 MK |
515 | (viper-deflocalvar viper-sitting-in-replace nil "") |
516 | (put 'viper-sitting-in-replace 'permanent-local t) | |
f1097063 | 517 | |
9b70a748 MK |
518 | ;; Remember the number of characters that have to be deleted in replace |
519 | ;; mode to compensate for the inserted characters. | |
8626cfa2 | 520 | (viper-deflocalvar viper-replace-chars-to-delete 0 "") |
34317da2 | 521 | ;; This variable is used internally by the before/after changed functions to |
3af0304a | 522 | ;; determine how many chars were deleted by the change. This can't be |
34317da2 MK |
523 | ;; determined inside after-change-functions because those get the length of the |
524 | ;; deleted region, not the number of chars deleted (which are two different | |
525 | ;; things under MULE). | |
526 | (viper-deflocalvar viper-replace-region-chars-deleted 0 "") | |
9b70a748 MK |
527 | |
528 | ;; Insertion ring and command ring | |
8626cfa2 | 529 | (defcustom viper-insertion-ring-size 14 |
1e70790f MK |
530 | "The size of history of inserted text. |
531 | This is a list where Viper keeps the history of previously inserted pieces of | |
532 | text." | |
533 | :type 'integer | |
8e41a31c | 534 | :group 'viper-misc) |
9b70a748 | 535 | ;; The insertion ring. |
8626cfa2 | 536 | (defvar viper-insertion-ring nil) |
3af0304a | 537 | ;; This is temp insertion ring. Used to do rotation for display purposes. |
8626cfa2 MK |
538 | ;; When rotation just started, it is initialized to viper-insertion-ring. |
539 | (defvar viper-temp-insertion-ring nil) | |
540 | (defvar viper-last-inserted-string-from-insertion-ring "") | |
9b70a748 | 541 | |
8626cfa2 | 542 | (defcustom viper-command-ring-size 14 |
1e70790f MK |
543 | "The size of history of Vi commands repeatable with dot." |
544 | :type 'integer | |
8e41a31c | 545 | :group 'viper-misc) |
9b70a748 | 546 | ;; The command ring. |
8626cfa2 | 547 | (defvar viper-command-ring nil) |
3af0304a | 548 | ;; This is temp command ring. Used to do rotation for display purposes. |
8626cfa2 MK |
549 | ;; When rotation just started, it is initialized to viper-command-ring. |
550 | (defvar viper-temp-command-ring nil) | |
9b70a748 | 551 | |
1e70790f | 552 | ;; Fast keyseq and ESC keyseq timeouts |
8626cfa2 | 553 | (defcustom viper-fast-keyseq-timeout 200 |
1e70790f | 554 | "*Key sequence separated by no more than this many milliseconds is viewed as a Vi-style macro, if such a macro is defined. |
3af0304a | 555 | Setting this too high may slow down your typing. Setting this value too low |
751d3bc4 | 556 | will make it hard to use Vi-style timeout macros." |
1e70790f | 557 | :type 'integer |
8e41a31c | 558 | :group 'viper-misc) |
1e70790f | 559 | |
8626cfa2 MK |
560 | (defcustom viper-ESC-keyseq-timeout (if (viper-window-display-p) |
561 | 0 viper-fast-keyseq-timeout) | |
1e70790f | 562 | "*Key sequence beginning with ESC and separated by no more than this many milliseconds is considered to be generated by a keyboard function key. |
3af0304a | 563 | Setting this too high may slow down switching from insert to vi state. Setting |
1e70790f MK |
564 | this value too low will make it impossible to use function keys in insert mode |
565 | on a dumb terminal." | |
566 | :type 'integer | |
8e41a31c | 567 | :group 'viper-misc) |
1e70790f | 568 | |
55d7ff38 MK |
569 | (defcustom viper-translate-all-ESC-keysequences (not (viper-window-display-p)) |
570 | "Allow translation of all key sequences into commands. | |
571 | Normally, Viper lets Emacs translate only those ESC key sequences that are | |
572 | defined in the low-level key-translation-map or function-key-map, such as those | |
573 | emitted by the arrow and function keys. Other sequences, e.g., \\e/, are | |
751d3bc4 | 574 | treated as ESC command followed by a `/'. This is done for people who type fast |
55d7ff38 | 575 | and tend to hit other characters right after they hit ESC. Other people like |
a1506d29 | 576 | Emacs to translate ESC sequences all the time. |
55d7ff38 MK |
577 | The default is to translate all sequences only when using a dumb terminal. |
578 | This permits you to use ESC as a meta key in insert mode." | |
579 | :type 'boolean | |
580 | :group 'viper-misc) | |
581 | ||
9b70a748 MK |
582 | ;; Modes and related variables |
583 | ||
584 | ;; Current mode. One of: `emacs-state', `vi-state', `insert-state' | |
8626cfa2 | 585 | (viper-deflocalvar viper-current-state 'emacs-state) |
9b70a748 MK |
586 | |
587 | ||
588 | ;; Autoindent in insert | |
589 | ||
590 | ;; Variable that keeps track of whether C-t has been pressed. | |
8626cfa2 | 591 | (viper-deflocalvar viper-cted nil "") |
9b70a748 MK |
592 | |
593 | ;; Preserve the indent value, used by C-d in insert mode. | |
8626cfa2 | 594 | (viper-deflocalvar viper-current-indent 0) |
9b70a748 MK |
595 | |
596 | ;; Whether to preserve the indent, used by C-d in insert mode. | |
8626cfa2 | 597 | (viper-deflocalvar viper-preserve-indent nil) |
9b70a748 | 598 | |
8626cfa2 MK |
599 | (viper-deflocalvar viper-auto-indent nil "") |
600 | (defcustom viper-auto-indent nil | |
1e70790f MK |
601 | "*Enable autoindent, if t. |
602 | This is a buffer-local variable." | |
603 | :type 'boolean | |
604 | :group 'viper) | |
605 | ||
8626cfa2 MK |
606 | (viper-deflocalvar viper-electric-mode t "") |
607 | (defcustom viper-electric-mode t | |
1e70790f MK |
608 | "*If t, electrify Viper. |
609 | Currently, this only electrifies auto-indentation, making it appropriate to the | |
610 | mode of the buffer. | |
611 | This means that auto-indentation will depart from standard Vi and will indent | |
3af0304a | 612 | appropriate to the mode of the buffer. This is especially useful for editing |
1e70790f MK |
613 | programs and LaTeX documents." |
614 | :type 'boolean | |
615 | :group 'viper) | |
616 | ||
8626cfa2 | 617 | (defcustom viper-shift-width 8 |
2eb4bdca MK |
618 | "*The value of the shiftwidth. |
619 | This determines the number of columns by which the Ctl-t moves the cursor in | |
620 | the Insert state." | |
1e70790f MK |
621 | :type 'integer |
622 | :group 'viper) | |
9b70a748 MK |
623 | |
624 | ;; Variables for repeating destructive commands | |
625 | ||
8626cfa2 | 626 | (defcustom viper-keep-point-on-repeat t |
9b70a748 MK |
627 | "*If t, don't move point when repeating previous command. |
628 | This is useful for doing repeated changes with the '.' key. | |
629 | The user can change this to nil, if she likes when the cursor moves | |
1e70790f MK |
630 | to a new place after repeating previous Vi command." |
631 | :type 'boolean | |
f1097063 | 632 | :group 'viper) |
9b70a748 MK |
633 | |
634 | ;; Remember insert point as a marker. This is a local marker that must be | |
8626cfa2 MK |
635 | ;; initialized to nil and moved with `viper-move-marker-locally'. |
636 | (viper-deflocalvar viper-insert-point nil) | |
637 | (put 'viper-insert-point 'permanent-local t) | |
9b70a748 MK |
638 | |
639 | ;; This remembers the point before dabbrev-expand was called. | |
8626cfa2 MK |
640 | ;; If viper-insert-point turns out to be bigger than that, it is reset |
641 | ;; back to viper-pre-command-point. | |
9b70a748 MK |
642 | ;; The reason this is needed is because dabbrev-expand (and possibly |
643 | ;; others) may jump to before the insertion point, delete something and | |
3af0304a | 644 | ;; then reinsert a bigger piece. For instance: bla^blo |
8626cfa2 | 645 | ;; If dabbrev-expand is called after `blo' and ^ undicates viper-insert-point, |
3af0304a MK |
646 | ;; then point jumps to the beginning of `blo'. If expansion is found, `blablo' |
647 | ;; is deleted, and we have |^, where | denotes point. Next, dabbrev-expand | |
9b70a748 MK |
648 | ;; will insert the expansion, and we get: blablo^ |
649 | ;; Whatever we insert next goes before the ^, i.e., before the | |
3af0304a MK |
650 | ;; viper-insert-point marker. So, Viper will think that nothing was |
651 | ;; inserted. Remembering the orig position of the marker circumvents the | |
9b70a748 MK |
652 | ;; problem. |
653 | ;; We don't know of any command, except dabbrev-expand, that has the same | |
3af0304a | 654 | ;; problem. However, the same trick can be used if such a command is |
9b70a748 MK |
655 | ;; discovered later. |
656 | ;; | |
8626cfa2 MK |
657 | (viper-deflocalvar viper-pre-command-point nil) |
658 | (put 'viper-pre-command-point 'permanent-local t) ; this is probably an overkill | |
9b70a748 MK |
659 | |
660 | ;; This is used for saving inserted text. | |
8626cfa2 | 661 | (defvar viper-last-insertion nil) |
f1097063 | 662 | |
9b70a748 | 663 | ;; Remembers the last replaced region. |
8626cfa2 | 664 | (defvar viper-last-replace-region "") |
f1097063 | 665 | |
9b70a748 | 666 | ;; Remember com point as a marker. |
3af0304a | 667 | ;; This is a local marker. Should be moved with `viper-move-marker-locally' |
8626cfa2 | 668 | (viper-deflocalvar viper-com-point nil) |
9b70a748 MK |
669 | |
670 | ;; If non-nil, the value is a list (M-COM VAL COM REG inserted-text cmd-keys) | |
671 | ;; It is used to re-execute last destructive command. | |
672 | ;; M-COM is a Lisp symbol representing the function to be executed. | |
673 | ;; VAL is the prefix argument that was used with that command. | |
674 | ;; COM is an internal descriptor, such as ?r, ?c, ?C, which contains | |
675 | ;; additional information on how the function in M-COM is to be handled. | |
676 | ;; REG is the register used by command | |
677 | ;; INSERTED-TEXT is text inserted by that command (in case of o, c, C, i, r | |
678 | ;; commands). | |
679 | ;; COMMAND-KEYS are the keys that were typed to invoke the command. | |
8626cfa2 | 680 | (defvar viper-d-com nil) |
9b70a748 MK |
681 | |
682 | ;; The character remembered by the Vi `r' command. | |
8626cfa2 | 683 | (defvar viper-d-char nil) |
9b70a748 MK |
684 | |
685 | ;; Name of register to store deleted or yanked strings | |
8626cfa2 | 686 | (defvar viper-use-register nil) |
9b70a748 MK |
687 | |
688 | ||
34317da2 | 689 | ;;; Variables for Moves and Searches |
9b70a748 | 690 | |
8e41a31c MK |
691 | (defgroup viper-search nil |
692 | "Variables that define the search and query-replace behavior of Viper." | |
693 | :prefix "viper-" | |
694 | :group 'viper) | |
695 | ||
9b70a748 | 696 | ;; For use by `;' command. |
8626cfa2 | 697 | (defvar viper-f-char nil) |
9b70a748 MK |
698 | |
699 | ;; For use by `.' command. | |
8626cfa2 | 700 | (defvar viper-F-char nil) |
9b70a748 MK |
701 | |
702 | ;; For use by `;' command. | |
8626cfa2 | 703 | (defvar viper-f-forward nil) |
9b70a748 MK |
704 | |
705 | ;; For use by `;' command. | |
8626cfa2 | 706 | (defvar viper-f-offset nil) |
9b70a748 MK |
707 | |
708 | ;; Last search string | |
8626cfa2 | 709 | (defvar viper-s-string "") |
9b70a748 | 710 | |
8626cfa2 | 711 | (defcustom viper-quote-string "> " |
1e70790f MK |
712 | "String inserted at the beginning of quoted region." |
713 | :type 'string | |
714 | :group 'viper) | |
9b70a748 MK |
715 | |
716 | ;; If t, search is forward. | |
8626cfa2 | 717 | (defvar viper-s-forward nil) |
9b70a748 | 718 | |
8626cfa2 | 719 | (defcustom viper-case-fold-search nil |
1e70790f MK |
720 | "*If not nil, search ignores cases." |
721 | :type 'boolean | |
8e41a31c | 722 | :group 'viper-search) |
9b70a748 | 723 | |
8626cfa2 | 724 | (defcustom viper-re-search t |
1e70790f MK |
725 | "*If not nil, search is regexp search, otherwise vanilla search." |
726 | :type 'boolean | |
727 | :tag "Regexp Search" | |
8e41a31c | 728 | :group 'viper-search) |
9b70a748 | 729 | |
8626cfa2 | 730 | (defcustom viper-search-scroll-threshold 2 |
9b70a748 MK |
731 | "*If search lands within this threshnold from the window top/bottom, |
732 | the window will be scrolled up or down appropriately, to reveal context. | |
733 | If you want Viper search to behave as usual in Vi, set this variable to a | |
1e70790f MK |
734 | negative number." |
735 | :type 'boolean | |
8e41a31c | 736 | :group 'viper-search) |
1e70790f | 737 | |
8626cfa2 | 738 | (defcustom viper-re-query-replace t |
1e70790f MK |
739 | "*If t then do regexp replace, if nil then do string replace." |
740 | :type 'boolean | |
741 | :tag "Regexp Query Replace" | |
8e41a31c | 742 | :group 'viper-search) |
1e70790f | 743 | |
8626cfa2 | 744 | (defcustom viper-re-replace t |
3af0304a | 745 | "*If t, do regexp replace. nil means do string replace." |
1e70790f MK |
746 | :type 'boolean |
747 | :tag "Regexp Replace" | |
8e41a31c | 748 | :group 'viper-search) |
1e70790f | 749 | |
8626cfa2 | 750 | (defcustom viper-parse-sexp-ignore-comments t |
1e70790f MK |
751 | "*If t, `%' ignores the parentheses that occur inside comments." |
752 | :type 'boolean | |
753 | :group 'viper) | |
754 | ||
8626cfa2 MK |
755 | (viper-deflocalvar viper-ex-style-motion t "") |
756 | (defcustom viper-ex-style-motion t | |
1e70790f MK |
757 | "*If t, the commands l,h do not cross lines, etc (Ex-style). |
758 | If nil, these commands cross line boundaries." | |
759 | :type 'boolean | |
760 | :group 'viper) | |
761 | ||
34317da2 MK |
762 | (viper-deflocalvar viper-ex-style-editing t "") |
763 | (defcustom viper-ex-style-editing t | |
764 | "*If t, Ex-style behavior while editing in Vi command and insert states. | |
765 | `Backspace' and `Delete' don't cross line boundaries in insert. | |
766 | `X' and `x' can't delete characters across line boundary in Vi, etc. | |
1e70790f | 767 | Note: this doesn't preclude `Backspace' and `Delete' from deleting characters |
3af0304a | 768 | by moving past the insertion point. This is a feature, not a bug. |
34317da2 MK |
769 | |
770 | If nil, the above commands can work across lines." | |
1e70790f MK |
771 | :type 'boolean |
772 | :group 'viper) | |
773 | ||
34317da2 | 774 | (viper-deflocalvar viper-ESC-moves-cursor-back viper-ex-style-editing "") |
8626cfa2 | 775 | (defcustom viper-ESC-moves-cursor-back nil |
1e70790f | 776 | "*If t, ESC moves cursor back when changing from insert to vi state. |
34317da2 | 777 | If nil, the cursor stays where it was when ESC was hit." |
1e70790f MK |
778 | :type 'boolean |
779 | :group 'viper) | |
780 | ||
8626cfa2 MK |
781 | (viper-deflocalvar viper-delete-backwards-in-replace nil "") |
782 | (defcustom viper-delete-backwards-in-replace nil | |
9b70a748 | 783 | "*If t, DEL key will delete characters while moving the cursor backwards. |
1e70790f MK |
784 | If nil, the cursor will move backwards without deleting anything." |
785 | :type 'boolean | |
786 | :group 'viper) | |
787 | ||
8626cfa2 | 788 | (defcustom viper-buffer-search-char nil |
3af0304a | 789 | "*Key used for buffer-searching. Must be a character type, e.g., ?g." |
1e70790f | 790 | :type '(choice (const nil) character) |
8e41a31c | 791 | :group 'viper-search) |
1e70790f | 792 | |
8626cfa2 | 793 | (defcustom viper-search-wrap-around-t t |
1e70790f MK |
794 | "*If t, search wraps around." |
795 | :type 'boolean | |
796 | :tag "Search Wraps Around" | |
8e41a31c | 797 | :group 'viper-search) |
f1097063 | 798 | |
8626cfa2 MK |
799 | (viper-deflocalvar viper-related-files-and-buffers-ring nil "") |
800 | (defcustom viper-related-files-and-buffers-ring nil | |
1e70790f MK |
801 | "*List of file and buffer names that are considered to be related to the current buffer. |
802 | Related buffers can be cycled through via :R and :P commands." | |
803 | :type 'boolean | |
8e41a31c | 804 | :group 'viper-misc) |
8626cfa2 | 805 | (put 'viper-related-files-and-buffers-ring 'permanent-local t) |
9b70a748 MK |
806 | |
807 | ;; Used to find out if we are done with searching the current buffer. | |
8626cfa2 | 808 | (viper-deflocalvar viper-local-search-start-marker nil) |
9b70a748 | 809 | ;; As above, but global |
8626cfa2 | 810 | (defvar viper-search-start-marker (make-marker)) |
9b70a748 MK |
811 | |
812 | ;; the search overlay | |
8626cfa2 | 813 | (viper-deflocalvar viper-search-overlay nil) |
9b70a748 MK |
814 | |
815 | ||
f1097063 | 816 | (defvar viper-heading-start |
9b70a748 MK |
817 | (concat "^\\s-*(\\s-*defun\\s-\\|" ; lisp |
818 | "^{\\s-*$\\|^[_a-zA-Z][^()]*[()].*{\\s-*$\\|" ; C/C++ | |
819 | "^\\s-*class.*{\\|^\\s-*struct.*{\\|^\\s-*enum.*{\\|" | |
820 | "^\\\\[sb][a-z]*{.*}\\s-*$\\|" ; latex | |
821 | "^@node\\|@table\\|^@m?enu\\|^@itemize\\|^@if\\|" ; texinfo | |
822 | "^.+:-") ; prolog | |
3af0304a | 823 | "*Regexps for Headings. Used by \[\[ and \]\].") |
9b70a748 | 824 | |
f1097063 | 825 | (defvar viper-heading-end |
9b70a748 MK |
826 | (concat "^}\\|" ; C/C++ |
827 | "^\\\\end{\\|" ; latex | |
828 | "^@end \\|" ; texinfo | |
829 | ")\n\n[ \t\n]*\\|" ; lisp | |
830 | "\\.\\s-*$") ; prolog | |
3af0304a | 831 | "*Regexps to end Headings/Sections. Used by \[\].") |
9b70a748 MK |
832 | |
833 | ||
834 | ;; These two vars control the interaction of jumps performed by ' and `. | |
835 | ;; In this new version, '' doesn't erase the marks set by ``, so one can | |
836 | ;; use both kinds of jumps interchangeably and without loosing positions | |
837 | ;; inside the lines. | |
838 | ||
839 | ;; Remembers position of the last jump done using ``'. | |
8626cfa2 | 840 | (viper-deflocalvar viper-last-jump nil) |
9b70a748 | 841 | ;; Remembers position of the last jump done using `''. |
8626cfa2 | 842 | (viper-deflocalvar viper-last-jump-ignore 0) |
9b70a748 MK |
843 | |
844 | ;; History variables | |
845 | ||
846 | ;; History of search strings. | |
8626cfa2 | 847 | (defvar viper-search-history (list "")) |
9b70a748 | 848 | ;; History of query-replace strings used as a source. |
8626cfa2 | 849 | (defvar viper-replace1-history nil) |
9b70a748 | 850 | ;; History of query-replace strings used as replacement. |
8626cfa2 | 851 | (defvar viper-replace2-history nil) |
9b70a748 | 852 | ;; History of region quoting strings. |
8626cfa2 | 853 | (defvar viper-quote-region-history (list viper-quote-string)) |
9b70a748 | 854 | ;; History of Ex-style commands. |
8626cfa2 | 855 | (defvar viper-ex-history nil) |
9b70a748 | 856 | ;; History of shell commands. |
8626cfa2 | 857 | (defvar viper-shell-history nil) |
9b70a748 MK |
858 | |
859 | ||
3af0304a | 860 | ;; Last shell command. There are two of these, one for Ex (in viper-ex) |
9b70a748 MK |
861 | ;; and one for Vi. |
862 | ||
863 | ;; Last shell command executed with ! command. | |
8626cfa2 | 864 | (defvar viper-last-shell-com nil) |
9b70a748 | 865 | |
41497c90 MK |
866 | \f |
867 | ;;; Face-saving tricks | |
868 | ||
41497c90 MK |
869 | (defgroup viper-highlighting nil |
870 | "Hilighting of replace region, search pattern, minibuffer, etc." | |
871 | :prefix "viper-" | |
872 | :group 'viper) | |
873 | ||
41497c90 | 874 | |
25c06649 | 875 | (defface viper-search |
41497c90 | 876 | '((((class color)) (:foreground "Black" :background "khaki")) |
2d30d788 | 877 | (t (:underline t :stipple "gray3"))) |
41497c90 MK |
878 | "*Face used to flash out the search pattern." |
879 | :group 'viper-highlighting) | |
3af0304a | 880 | ;; An internal variable. Viper takes the face from here. |
25c06649 | 881 | (defvar viper-search-face 'viper-search |
8e41a31c | 882 | "Face used to flash out the search pattern. |
3af0304a | 883 | DO NOT CHANGE this variable. Instead, use the customization widget |
8ea74b0e | 884 | to customize the actual face object `viper-search' |
8e41a31c | 885 | this variable represents.") |
41497c90 | 886 | |
25c06649 | 887 | (defface viper-replace-overlay |
41497c90 | 888 | '((((class color)) (:foreground "Black" :background "darkseagreen2")) |
2d30d788 | 889 | (t (:underline t :stipple "gray3"))) |
41497c90 MK |
890 | "*Face for highlighting replace regions on a window display." |
891 | :group 'viper-highlighting) | |
3af0304a | 892 | ;; An internal variable. Viper takes the face from here. |
25c06649 | 893 | (defvar viper-replace-overlay-face 'viper-replace-overlay |
8e41a31c | 894 | "Face for highlighting replace regions on a window display. |
3af0304a | 895 | DO NOT CHANGE this variable. Instead, use the customization widget |
8ea74b0e | 896 | to customize the actual face object `viper-replace-overlay' |
8e41a31c | 897 | this variable represents.") |
41497c90 | 898 | |
25c06649 | 899 | (defface viper-minibuffer-emacs |
41497c90 | 900 | '((((class color)) (:foreground "Black" :background "darkseagreen2")) |
e31c1fd5 | 901 | (t (:weight bold))) |
41497c90 MK |
902 | "Face used in the Minibuffer when it is in Emacs state." |
903 | :group 'viper-highlighting) | |
3af0304a | 904 | ;; An internal variable. Viper takes the face from here. |
25c06649 | 905 | (defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs |
8e41a31c | 906 | "Face used in the Minibuffer when it is in Emacs state. |
3af0304a | 907 | DO NOT CHANGE this variable. Instead, use the customization widget |
8ea74b0e | 908 | to customize the actual face object `viper-minibuffer-emacs' |
8e41a31c | 909 | this variable represents.") |
41497c90 | 910 | |
25c06649 | 911 | (defface viper-minibuffer-insert |
41497c90 | 912 | '((((class color)) (:foreground "Black" :background "pink")) |
e31c1fd5 | 913 | (t (:slant italic))) |
41497c90 MK |
914 | "Face used in the Minibuffer when it is in Insert state." |
915 | :group 'viper-highlighting) | |
3af0304a | 916 | ;; An internal variable. Viper takes the face from here. |
25c06649 | 917 | (defvar viper-minibuffer-insert-face 'viper-minibuffer-insert |
8e41a31c | 918 | "Face used in the Minibuffer when it is in Insert state. |
3af0304a | 919 | DO NOT CHANGE this variable. Instead, use the customization widget |
8ea74b0e | 920 | to customize the actual face object `viper-minibuffer-insert' |
8e41a31c | 921 | this variable represents.") |
41497c90 | 922 | |
25c06649 | 923 | (defface viper-minibuffer-vi |
41497c90 MK |
924 | '((((class color)) (:foreground "DarkGreen" :background "grey")) |
925 | (t (:inverse-video t))) | |
926 | "Face used in the Minibuffer when it is in Vi state." | |
927 | :group 'viper-highlighting) | |
3af0304a | 928 | ;; An internal variable. Viper takes the face from here. |
25c06649 | 929 | (defvar viper-minibuffer-vi-face 'viper-minibuffer-vi |
8e41a31c | 930 | "Face used in the Minibuffer when it is in Vi state. |
3af0304a | 931 | DO NOT CHANGE this variable. Instead, use the customization widget |
8ea74b0e | 932 | to customize the actual face object `viper-minibuffer-vi' |
8e41a31c | 933 | this variable represents.") |
f1097063 | 934 | |
41497c90 | 935 | ;; the current face to be used in the minibuffer |
8e41a31c MK |
936 | (viper-deflocalvar |
937 | viper-minibuffer-current-face viper-minibuffer-emacs-face "") | |
9b70a748 MK |
938 | |
939 | \f | |
940 | ;;; Miscellaneous | |
941 | ||
8626cfa2 | 942 | (defvar viper-inhibit-startup-message nil |
9b70a748 MK |
943 | "Whether Viper startup message should be inhibited.") |
944 | ||
8626cfa2 | 945 | (defcustom viper-spell-function 'ispell-region |
1e70790f MK |
946 | "Spell function used by #s<move> command to spell." |
947 | :type 'function | |
8e41a31c | 948 | :group 'viper-misc) |
9b70a748 | 949 | |
8626cfa2 | 950 | (defcustom viper-tags-file-name "TAGS" |
1e70790f MK |
951 | "The tags file used by Viper." |
952 | :type 'string | |
8e41a31c | 953 | :group 'viper-misc) |
9b70a748 | 954 | |
3af0304a MK |
955 | (defcustom viper-change-notification-threshold 1 |
956 | "Notify the user when this many lines or characters have been deleted/yanked. | |
957 | For line-deleting/yanking commands (like `dd', `yy'), the value denotes the | |
958 | number of lines. For character-based commands (such as `x', `dw', etc.), the | |
959 | value refers to the number of characters affected." | |
960 | :type 'integer | |
961 | :group 'viper-misc) | |
962 | ||
9b70a748 MK |
963 | ;; Minibuffer |
964 | ||
8626cfa2 | 965 | (defcustom viper-vi-style-in-minibuffer t |
9b70a748 | 966 | "If t, use vi-style editing in minibuffer. |
8626cfa2 | 967 | Should be set in `~/.viper' file." |
1e70790f MK |
968 | :type 'boolean |
969 | :group 'viper) | |
f1097063 | 970 | |
9b70a748 | 971 | ;; overlay used in the minibuffer to indicate which state it is in |
8626cfa2 | 972 | (viper-deflocalvar viper-minibuffer-overlay nil) |
3af0304a | 973 | (put 'viper-minibuffer-overlay 'permanent-local t) |
9b70a748 MK |
974 | |
975 | ;; Hook, specific to Viper, which is run just *before* exiting the minibuffer. | |
2eb4bdca MK |
976 | ;; This is needed because beginning with Emacs 19.26, the standard |
977 | ;; `minibuffer-exit-hook' is run *after* exiting the minibuffer | |
978 | (defvar viper-minibuffer-exit-hook nil) | |
f1097063 | 979 | |
9b70a748 MK |
980 | |
981 | ;; Mode line | |
8626cfa2 | 982 | (defconst viper-vi-state-id "<V> " |
9b70a748 | 983 | "Mode line tag identifying the Vi mode of Viper.") |
8626cfa2 | 984 | (defconst viper-emacs-state-id "<E> " |
9b70a748 | 985 | "Mode line tag identifying the Emacs mode of Viper.") |
8626cfa2 | 986 | (defconst viper-insert-state-id "<I> " |
9b70a748 | 987 | "Mode line tag identifying the Insert mode of Viper.") |
8626cfa2 | 988 | (defconst viper-replace-state-id "<R> " |
9b70a748 MK |
989 | "Mode line tag identifying the Replace mode of Viper.") |
990 | ||
9b70a748 | 991 | |
8e41a31c MK |
992 | (defgroup viper-hooks nil |
993 | "Viper hooks." | |
994 | :prefix "viper-" | |
995 | :group 'viper) | |
996 | ||
7d027816 | 997 | (defcustom viper-vi-state-hook 'viper-restore-cursor-type |
1e70790f MK |
998 | "*Hooks run just before the switch to Vi mode is completed." |
999 | :type 'hook | |
8e41a31c | 1000 | :group 'viper-hooks) |
7d027816 | 1001 | (defcustom viper-insert-state-hook 'viper-set-insert-cursor-type |
1e70790f MK |
1002 | "*Hooks run just before the switch to Insert mode is completed." |
1003 | :type 'hook | |
8e41a31c | 1004 | :group 'viper-hooks) |
7d027816 | 1005 | (defcustom viper-replace-state-hook 'viper-restore-cursor-type |
1e70790f MK |
1006 | "*Hooks run just before the switch to Replace mode is completed." |
1007 | :type 'hook | |
8e41a31c | 1008 | :group 'viper-hooks) |
7d027816 | 1009 | (defcustom viper-emacs-state-hook 'viper-restore-cursor-type |
1e70790f MK |
1010 | "*Hooks run just before the switch to Emacs mode is completed." |
1011 | :type 'hook | |
8e41a31c | 1012 | :group 'viper-hooks) |
f1097063 | 1013 | |
8626cfa2 | 1014 | (defcustom viper-load-hook nil |
1e70790f MK |
1015 | "Hooks run just after loading Viper." |
1016 | :type 'hook | |
8e41a31c | 1017 | :group 'viper-hooks) |
f1097063 | 1018 | |
7d027816 | 1019 | (defun viper-restore-cursor-type () |
bea3997a MK |
1020 | (condition-case nil |
1021 | (if viper-xemacs-p | |
e2de3a29 | 1022 | (set (make-local-variable 'bar-cursor) nil) |
bea3997a | 1023 | (setq cursor-type default-cursor-type)) |
50a07e18 | 1024 | (error nil))) |
7d027816 MK |
1025 | |
1026 | (defun viper-set-insert-cursor-type () | |
1027 | (if viper-xemacs-p | |
e2de3a29 | 1028 | (set (make-local-variable 'bar-cursor) 2) |
7d027816 MK |
1029 | (setq cursor-type '(bar . 2)))) |
1030 | ||
1e70790f | 1031 | |
e2de3a29 MK |
1032 | ;; Local Variables: |
1033 | ;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun) | |
1034 | ;; End: | |
1e70790f | 1035 | |
e2de3a29 | 1036 | ;; arch-tag: 4efa2416-1fcb-4690-be10-1a2a0248d250 |
60370d40 | 1037 | ;;; viper-init.el ends here |