annotate lisp/emulation/viper-init.el @ 81433:6fa22ccf960b

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