1 ;;; viper.el --- A full-featured Vi emulator for GNU Emacs and XEmacs,
2 ;; a VI Plan for Emacs Rescue,
3 ;; and a venomous VI PERil.
4 ;; Viper Is also a Package for Emacs Rebels.
6 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
7 ;; 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
9 ;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
10 ;; Keywords: emulations
12 (defconst viper-version
"3.14 of January 09, 2008"
13 "The current version of Viper")
15 ;; This file is part of GNU Emacs.
17 ;; GNU Emacs is free software; you can redistribute it and/or modify
18 ;; it under the terms of the GNU General Public License as published by
19 ;; the Free Software Foundation; either version 3, or (at your option)
22 ;; GNU Emacs is distributed in the hope that it will be useful,
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 ;; GNU General Public License for more details.
27 ;; You should have received a copy of the GNU General Public License
28 ;; along with GNU Emacs; see the file COPYING. If not, write to the
29 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
30 ;; Boston, MA 02110-1301, USA.
34 ;; Viper is a full-featured Vi emulator for Emacs and XEmacs. It emulates and
35 ;; improves upon the standard features of Vi and, at the same time, allows
36 ;; full access to all Emacs facilities. Viper supports multiple undo,
37 ;; file name completion, command, file, and search history and it extends
38 ;; Vi in many other ways. Viper is highly customizable through the various
39 ;; hooks, user variables, and keymaps. It is implemented as a collection
40 ;; of minor modes and it is designed to provide full access to all Emacs
41 ;; major and minor modes.
45 ;; Viper is a new name for a package formerly known as VIP-19,
46 ;; which was a successor of VIP version 3.5 by Masahiko Sato
47 ;; <ms@sail.stanford.edu> and VIP version 4.2 by Aamod Sane
48 ;; <sane@cs.uiuc.edu>. Some ideas from vip 4.4.2 by Aamod Sane
49 ;; were also shamelessly plagiarized.
51 ;; Viper maintains some degree of compatibility with these older
52 ;; packages. See the documentation for customization.
54 ;; The main difference between Viper and these older packages are:
56 ;; 1. Viper emulates Vi at several levels, from almost complete conformity
57 ;; to a rather loose Vi-compliance.
59 ;; 2. Viper provides full access to all major and minor modes of Emacs
60 ;; without the need to type extra keys.
61 ;; The older versions of VIP (and other Vi emulators) do not work with
62 ;; some major and minor modes.
64 ;; 3. Viper supports vi-style undo.
66 ;; 4. Viper fully emulates (and improves upon) vi's replacement mode.
68 ;; 5. Viper has a better interface to ex, including command, variable, and
69 ;; file name completion.
71 ;; 6. Viper uses native Emacs history and completion features; it doesn't
72 ;; rely on other packages (such as gmhist.el and completer.el) to provide
75 ;; 7. Viper supports Vi-style editing in the minibuffer, by allowing the
76 ;; user to switch from Insert state to Vi state to Replace state, etc.
78 ;; 8. Viper keeps history of recently inserted pieces of text and recently
79 ;; executed Vi-style destructive commands, such as `i', `d', etc.
80 ;; These pieces of text can be inserted in later insertion commands;
81 ;; the previous destructive commands can be re-executed.
83 ;; 9. Viper has Vi-style keyboard macros, which enhances the similar
84 ;; facility in the original Vi.
85 ;; First, one can execute any Emacs command while defining a
86 ;; macro, not just the Vi commands. Second, macros are defined in a
87 ;; WYSYWYG mode, using an interface to Emacs' WYSIWYG style of defining
88 ;; macros. Third, in Viper, one can define macros that are specific to
89 ;; a given buffer, a given major mode, or macros defined for all buffers.
90 ;; The same macro name can have several different definitions:
91 ;; one global, several definitions for various major modes, and
92 ;; definitions for specific buffers.
93 ;; Buffer-specific definitions override mode-specific
94 ;; definitions, which, in turn, override global definitions.
103 ;;; Acknowledgements:
105 ;; Bug reports and ideas contributed by many users have helped
106 ;; improve Viper and the various versions of VIP.
107 ;; See the on-line manual for a complete list of contributors.
113 ;; In most cases, Viper handles major modes correctly, i.e., they come up
114 ;; in the right state (either vi-state or emacs-state). For instance, text
115 ;; files come up in vi-state, while, say, Dired appears in emacs-state by
117 ;; However, some modes do not appear in the right mode in the beginning,
118 ;; usually because they neglect to follow Emacs conventions (e.g., they don't
119 ;; use kill-all-local-variables when they start). Some major modes
120 ;; may fail to come up in emacs-state if they call hooks, such as
121 ;; text-hook, for no good reason.
123 ;; As an immediate solution, you can hit C-z to bring about the right mode.
124 ;; An interim solution is to add an appropriate hook to the mode like this:
126 ;; (add-hook 'your-favorite-mode 'viper-mode)
128 ;; (add-hook 'your-favorite-mode 'viper-change-state-to-emacs)
130 ;; whichever applies. The right thing to do, however, is to complain to the
131 ;; author of the respective package. (Sometimes they also neglect to equip
132 ;; their modes with hooks, which is one more reason for complaining.)
134 ;; 2. Keymap handling
135 ;; Each Viper state (insert, vi, replace) is implemented as a collection of
136 ;; several minor modes, each with its own keymap.
138 ;; Viper's Vi state consists of seven minor modes:
140 ;; viper-vi-intercept-minor-mode
141 ;; viper-vi-local-user-minor-mode
142 ;; viper-vi-global-user-minor-mode
143 ;; viper-vi-kbd-minor-mode
144 ;; viper-vi-state-modifier-minor-mode
145 ;; viper-vi-diehard-minor-mode
146 ;; viper-vi-basic-minor-mode
148 ;; Bindings done to the keymap of the first mode overshadow those done to
149 ;; the second, which, in turn, overshadows those done to the third, etc.
151 ;; The last viper-vi-basic-minor-mode contains most of the usual Vi bindings
152 ;; in its edit mode. This mode provides access to all Emacs facilities.
153 ;; Novice users, however, may want to set their viper-expert-level to 1
154 ;; in their .viper file. This will enable viper-vi-diehard-minor-mode. This
155 ;; minor mode's bindings make Viper simulate the usual Vi very closely.
156 ;; For instance, C-c will not have its standard Emacs binding
157 ;; and so many of the goodies of Emacs are not available.
159 ;; A skilled user should set viper-expert-level to at least 3. This will
160 ;; enable `C-c' and many Emacs facilities will become available.
161 ;; In this case, viper-vi-diehard-minor-mode is inactive.
163 ;; Viper gurus should have at least
164 ;; (setq viper-expert-level 4)
165 ;; in their ~/.viper files. This will unsuppress all Emacs keys that are not
166 ;; essential for VI-style editing.
167 ;; Pick-and-choose users may want to put
168 ;; (setq viper-expert-level 5)
169 ;; in ~/.viper. Viper will then leave it up to the user to set the variables
170 ;; viper-want-* See viper-set-expert-level for details.
172 ;; The very first minor mode, viper-vi-intercept-minor-mode, is of no
173 ;; concern for the user. It is needed to bind Viper's vital keys, such as
176 ;; The second mode, viper-vi-local-user-minor-mode, usually has an
177 ;; empty keymap. However, the user can set bindings in this keymap, which
178 ;; will overshadow the corresponding bindings in the other two minor
179 ;; modes. This is useful, for example, for setting up ZZ in gnus,
180 ;; rmail, mh-e, etc., to send message instead of saving it in a file.
181 ;; Likewise, in Dired mode, you may want to bind ZN and ZP to commands
182 ;; that would visit the next or the previous file in the Dired buffer.
183 ;; Setting local keys is tricky, so don't do it directly. Instead, use
184 ;; viper-add-local-keys function (see its doc).
186 ;; The third minor mode, viper-vi-global-user-minor-mode, is also intended
187 ;; for the users but, unlike viper-vi-local-user-minor-mode, its key
188 ;; bindings are seen in all Viper buffers. This mode keys can be done
189 ;; with define-key command.
191 ;; The fourth minor mode, viper-vi-kbd-minor-mode, is used by keyboard
192 ;; macros. Users are NOT supposed to modify this keymap directly.
194 ;; The fifth mode, viper-vi-state-modifier-minor-mode, can be used to set
195 ;; key bindings that are visible in some major modes but not in others.
197 ;; Users are allowed to modify keymaps that belong to
198 ;; viper-vi-local-user-minor-mode, viper-vi-global-user-minor-mode,
199 ;; and viper-vi-state-modifier-minor-mode only.
201 ;; Viper's Insert state also has seven minor modes:
203 ;; viper-insert-intercept-minor-mode
204 ;; viper-insert-local-user-minor-mode
205 ;; viper-insert-global-user-minor-mode
206 ;; viper-insert-kbd-minor-mode
207 ;; viper-insert-state-modifier-minor-mode
208 ;; viper-insert-diehard-minor-mode
209 ;; viper-insert-basic-minor-mode
211 ;; As with VI's editing modes, the first mode,
212 ;; viper-insert-intercept-minor-mode is used to bind vital keys that are not
213 ;; to be changed by the user.
215 ;; The next mode, viper-insert-local-user-minor-mode, is used to customize
216 ;; bindings in the insert state of Viper. The third mode,
217 ;; viper-insert-global-user-minor-mode is like
218 ;; viper-insert-local-user-minor-mode, except that its bindings are seen in
219 ;; all Viper buffers. As with viper-vi-local-user-minor-mode, its bindings
220 ;; should be done via the function viper-add-local-keys. Bindings for
221 ;; viper-insert-global-user-minor-mode can be set with the define-key command.
223 ;; The next minor mode, viper-insert-kbd-minor-mode,
224 ;; is used for keyboard VI-style macros defined with :map!.
226 ;; The fifth minor mode, viper-insert-state-modifier-minor-mode, is like
227 ;; viper-vi-state-modifier-minor-mode, except that it is used in the Insert
228 ;; state; it can be used to modify keys in a mode-specific fashion.
230 ;; The minor mode viper-insert-diehard-minor-mode is in effect when
231 ;; the user wants a high degree of Vi compatibility (a bad idea, really!).
232 ;; The last minor mode, viper-insert-basic-minor-mode, is always in effect
233 ;; when Viper is in insert state. It binds a small number of keys needed for
234 ;; Viper's operation.
236 ;; Finally, Viper provides minor modes for overriding bindings set by Emacs
237 ;; modes when Viper is in Emacs state:
239 ;; viper-emacs-local-user-minor-mode
240 ;; viper-emacs-global-user-minor-mode
241 ;; viper-emacs-kbd-minor-mode
242 ;; viper-emacs-state-modifier-minor-mode
244 ;; These minor modes are in effect when Viper is in Emacs state. The keymap
245 ;; associated with viper-emacs-global-user-minor-mode,
246 ;; viper-emacs-global-user-map, overrides the global and local keymaps as
247 ;; well as the minor mode keymaps set by other modes. The keymap of
248 ;; viper-emacs-local-user-minor-mode, viper-emacs-local-user-map, overrides
249 ;; everything, but it is used on a per buffer basis.
250 ;; The keymap associated with viper-emacs-state-modifier-minor-mode
251 ;; overrides keys on a per-major-mode basis. The mode
252 ;; viper-emacs-kbd-minor-mode is used to define Vi-style macros in Emacs
255 ;; 3. There is also one minor mode that is used when Viper is in its
256 ;; replace-state (used for commands like cw, C, etc.). This mode is
259 ;; viper-replace-minor-mode
261 ;; and its keymap is viper-replace-map. Replace minor mode is always
262 ;; used in conjunction with the minor modes for insert-state, and its
263 ;; keymap overshadows the keymaps for insert minor modes.
265 ;; 4. Defining buffer-local bindings in Vi and Insert modes.
266 ;; As mentioned before, sometimes, it is convenient to have
267 ;; buffer-specific of mode-specific key bindings in Vi and insert modes.
268 ;; Viper provides a special function, viper-add-local-keys, to do precisely
269 ;; this. For instance, is you need to add couple of mode-specific bindings
270 ;; to Insert mode, you can put
272 ;; (viper-add-local-keys 'insert-state '((key1 . func1) (key2 .func2)))
274 ;; somewhere in a hook of this major mode. If you put something like this
275 ;; in your own elisp function, this will define bindings specific to the
276 ;; buffer that was current at the time of the call to viper-add-local-keys.
277 ;; The only thing to make sure here is that the major mode of this buffer
278 ;; is written according to Emacs conventions, which includes a call to
279 ;; (kill-all-local-variables). See viper-add-local-keys for more details.
282 ;; TO DO (volunteers?):
284 ;; 1. Some of the code that is inherited from VIP-3.5 is rather
285 ;; convoluted. Instead of viper-command-argument, keymaps should bind the
286 ;; actual commands. E.g., "dw" should be bound to a generic command
287 ;; viper-delete that will delete things based on the value of
288 ;; last-command-char. This would greatly simplify the logic and the code.
290 ;; 2. Somebody should venture to write a customization package a la
291 ;; options.el that would allow the user to change values of variables
292 ;; that meet certain specs (e.g., match a regexp) and whose doc string
293 ;; starts with a '*'. Then, the user should be offered to save
294 ;; variables that were changed. This will make user's customization job
301 (defvar mark-even-if-inactive
)
303 (defvar viper-expert-level
)
304 (defvar viper-mode-string
)
305 (defvar viper-major-mode-modifier-list
)
309 (require 'viper-init
)
310 (require 'viper-keym
)
312 ;; better be defined before Viper custom group.
313 (defvar viper-custom-file-name
(convert-standard-filename "~/.viper")
314 "Viper customization file.
315 If set by the user, this must be done _before_ Viper is loaded in `~/.emacs'.")
318 "Vi emulation within Emacs.
319 NOTE: Viper customization should be saved in `viper-custom-file-name', which
320 defaults to `~/.viper'."
326 (defgroup viper-misc nil
327 "Miscellaneous Viper customization."
332 (defcustom viper-always t
333 "Non-nil means, arrange for vi-state to be a default when appropriate.
334 This is different from `viper-mode' variable in that `viper-mode' determines
335 whether to use Viper in the first place, while `viper-always', if nil, lets
336 user decide when to invoke Viper in a major mode."
338 :tag
"Always Invoke Viper"
341 ;; Non-viper variables that need to be saved in case the user decides to
342 ;; de-viperize emacs.
343 (defvar viper-saved-non-viper-variables nil
)
345 (defcustom viper-mode
(cond (noninteractive nil
)
347 "To Viperize or not to Viperize.
348 If t, viperize Emacs. If nil -- don't. If `ask', ask the user.
349 This variable is used primarily when Viper is being loaded.
351 Must be set in `~/.emacs' before Viper is loaded.
352 DO NOT set this variable interactively, unless you are using the customization
354 :type
'(choice (const nil
) (const t
) (const ask
))
355 :tag
"Set Viper Mode on Loading"
358 (defcustom viper-vi-state-mode-list
369 html-mode html-helper-mode
370 emacs-lisp-mode lisp-mode lisp-interaction-mode
373 cc-mode c-mode c
++-mode objc-mode
374 fortran-mode f90-mode
382 text-mode indented-text-mode
383 tex-mode latex-mode bibtex-mode
386 ;; completion-list-mode
396 sh-mode ksh-mode csh-mode
401 "Major modes that require Vi command state."
402 :type
'(repeat symbol
)
405 (defcustom viper-emacs-state-mode-list
412 browse-kill-ring-mode
430 jde-javadoc-checker-report-mode
435 "*A list of major modes that should come up in Emacs state.
436 Normally, Viper would bring buffers up in Emacs state, unless the corresponding
437 major mode has been placed on `viper-vi-state-mode-list' or
438 `viper-insert-state-mode-list'. So, don't place a new mode on this list,
439 unless it is coming up in a wrong Viper state."
440 :type
'(repeat symbol
)
443 (defcustom viper-insert-state-mode-list
444 '(internal-ange-ftp-mode
447 inferior-emacs-lisp-mode
451 "*A list of major modes that should come up in Vi Insert state."
452 :type
'(repeat symbol
)
456 ;; used to set viper-major-mode-modifier-list in defcustom
457 (defun viper-apply-major-mode-modifiers (&optional symbol value
)
460 (mapcar (lambda (triple)
461 (viper-modify-major-mode
462 (nth 0 triple
) (nth 1 triple
) (eval (nth 2 triple
))))
463 viper-major-mode-modifier-list
))
465 ;; We change standard bindings in some major modes, making them slightly
466 ;; different than in "normal" vi/insert/emacs states
467 (defcustom viper-major-mode-modifier-list
468 '((help-mode emacs-state viper-slash-and-colon-map
)
469 (comint-mode insert-state viper-comint-mode-modifier-map
)
470 (comint-mode vi-state viper-comint-mode-modifier-map
)
471 (gud-mode insert-state viper-comint-mode-modifier-map
)
472 (shell-mode insert-state viper-comint-mode-modifier-map
)
473 (inferior-emacs-lisp-mode insert-state viper-comint-mode-modifier-map
)
474 (shell-mode vi-state viper-comint-mode-modifier-map
)
475 (ange-ftp-shell-mode insert-state viper-comint-mode-modifier-map
)
476 (ange-ftp-shell-mode vi-state viper-comint-mode-modifier-map
)
477 (internal-ange-ftp-mode insert-state viper-comint-mode-modifier-map
)
478 (internal-ange-ftp-mode vi-state viper-comint-mode-modifier-map
)
479 (dired-mode emacs-state viper-dired-modifier-map
)
480 (tar-mode emacs-state viper-slash-and-colon-map
)
481 (mh-folder-mode emacs-state viper-slash-and-colon-map
)
482 (gnus-group-mode emacs-state viper-gnus-modifier-map
)
483 (gnus-summary-mode emacs-state viper-gnus-modifier-map
)
484 (Info-mode emacs-state viper-slash-and-colon-map
)
485 (Buffer-menu-mode emacs-state viper-slash-and-colon-map
)
486 (erc-mode insert-state viper-comint-mode-modifier-map
)
487 (erc-mode vi-state viper-comint-mode-modifier-map
)
489 "List specifying how to modify the various major modes to enable some Viperisms.
490 The list has the structure: ((mode viper-state keymap) (mode viper-state
491 keymap) ...). If `mode' is on the list, the `kemap' will be made active (on
492 the minor-mode-map-alist) in the specified viper state.
493 If you change this list, have to restart Emacs for the change to take effect.
494 However, if you did the change through the customization widget, then Emacs
495 needs to be restarted only if you deleted a triple mode-state-keymap from the
496 list. No need to restart Emacs in case of insertion or modification of an
500 (choice (const emacs-state
)
502 (const insert-state
))
504 :set
'viper-apply-major-mode-modifiers
512 (defun toggle-viper-mode ()
513 "Toggle Viper on/off.
514 If Viper is enabled, turn it off. Otherwise, turn it on."
516 (if (eq viper-mode t
)
518 (setq viper-mode nil
)
523 "Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'."
525 (if (not noninteractive
)
527 ;; if the user requested viper-mode explicitly
531 (load-library "viper"))
533 (if viper-first-time
; Important check. Prevents mix-up of startup
534 (progn ; and expert-level msgs when viper-mode recurses
535 (setq viper-first-time nil
)
536 (if (not viper-inhibit-startup-message
)
537 (save-window-excursion
538 (setq viper-inhibit-startup-message t
)
539 (delete-other-windows)
540 (switch-to-buffer "Viper Startup Message")
543 (substitute-command-keys
544 "Viper Is a Package for Emacs Rebels,
545 a VI Plan for Emacs Rescue, and a venomous VI PERil.
547 Incidentally, Viper emulates Vi under GNU Emacs 20 and XEmacs 20.
548 It supports all of what is good in Vi and Ex, while extending
549 and improving upon much of it.
551 1. Viper supports Vi at several levels. Level 1 is the closest to Vi,
552 level 5 provides the most flexibility to depart from many Vi conventions.
554 You will be asked to specify your user level in a following screen.
556 If you select user level 1 then the keys ^X, ^C, ^Z, and ^G will behave
557 as in VI, to smooth transition to Viper for the beginners. However, to
558 use Emacs productively, you are advised to reach user level 3 or higher.
560 At user level 2 or higher, ^X and ^C have Emacs, not Vi, bindings;
561 ^Z toggles Vi/Emacs states; ^G is Emacs' keyboard-quit (like ^C in Vi).
563 2. Vi exit functions (e.g., :wq, ZZ) work on INDIVIDUAL files -- they
564 do not cause Emacs to quit, except at user level 1 (for a novice).
566 4. Viper supports multiple undo: `u' will undo. Typing `.' will repeat
567 undo. Another `u' changes direction.
569 6. Emacs Meta key is `C-\\' (in all modes) or `\\ ESC' (in Vi command mode).
570 On a window system, the best way is to use the Meta-key on your keyboard.
571 7. Try \\[keyboard-quit] and \\[abort-recursive-edit] repeatedly,if
572 something funny happens. This would abort the current editing command.
574 For more information on Viper:
576 a. Type `:help' in Vi command mode
577 b. Print Viper manual, found in ./etc/viper.dvi
578 c. Print the Quick Reference, found in ./etc/viperCard.dvi
580 To submit a bug report or to contact the author, type :submitReport in Vi
581 command mode. To shoo Viper away and return to pure Emacs (horror!), type:
585 This startup message appears whenever you load Viper, unless you type `y' now."
587 (goto-char (point-min))
588 (if (y-or-n-p "Inhibit Viper startup message? ")
590 'viper-inhibit-startup-message
591 "Viper startup message inhibited"
592 viper-custom-file-name t
))
593 ;;(kill-buffer (current-buffer))
595 "The last message is in buffer `Viper Startup Message'")
598 (viper-set-expert-level 'dont-change-unless
)))
600 (if (eq major-mode
'viper-mode
)
601 (setq major-mode
'fundamental-mode
))
603 (or (memq major-mode viper-emacs-state-mode-list
) ; don't switch to Vi
604 (memq major-mode viper-insert-state-mode-list
) ; don't switch
605 (viper-change-state-to-vi))
609 ;; Apply a little heuristic to invoke vi state on major-modes
610 ;; that are not listed in viper-vi-state-mode-list
611 (defun this-major-mode-requires-vi-state (mode)
612 (cond ((memq mode viper-vi-state-mode-list
) t
)
613 ((memq mode viper-emacs-state-mode-list
) nil
)
614 ((memq mode viper-insert-state-mode-list
) nil
)
615 (t (and (eq (key-binding "a") 'self-insert-command
)
616 (eq (key-binding " ") 'self-insert-command
)))))
619 ;; This hook designed to enable Vi-style editing in comint-based modes."
620 (defun viper-comint-mode-hook ()
621 (set (make-local-variable 'require-final-newline
) nil
)
622 (setq viper-ex-style-editing nil
623 viper-ex-style-motion nil
)
624 (viper-change-state-to-insert))
627 ;; remove viper hooks from SYMBOL
628 (defun viper-remove-hooks (symbol)
629 (cond ((not (boundp symbol
)) nil
)
630 ((not (listp (eval symbol
))) nil
)
631 ((string-match "-hook" (symbol-name symbol
))
632 (remove-hook symbol
'viper-mode
)
633 (remove-hook symbol
'viper-change-state-to-emacs
)
634 (remove-hook symbol
'viper-change-state-to-insert
)
635 (remove-hook symbol
'viper-change-state-to-vi
)
636 (remove-hook symbol
'viper-minibuffer-post-command-hook
)
637 (remove-hook symbol
'viper-minibuffer-setup-sentinel
)
638 (remove-hook symbol
'viper-major-mode-change-sentinel
)
639 (remove-hook symbol
'set-viper-state-in-major-mode
)
640 (remove-hook symbol
'viper-post-command-sentinel
)
643 ;; Remove local value in all existing buffers
644 ;; This doesn't delocalize vars (which would have been desirable)
645 (defun viper-delocalize-var (symbol)
646 (mapcar (lambda (buf) (save-excursion
648 (kill-local-variable symbol
)))
652 (defun viper-go-away ()
654 This function tries to do as good a job as possible. However, it may undo some
655 user customization, unrelated to Viper. For instance, if the user advised
656 `read-file-name', `describe-key', and some others, then this advice will be
658 It also can't undo some Viper settings."
661 ;; restore non-viper vars
663 next-line-add-newlines
664 (viper-standard-value
665 'next-line-add-newlines viper-saved-non-viper-variables
)
666 require-final-newline
667 (viper-standard-value
668 'require-final-newline viper-saved-non-viper-variables
)
670 (viper-standard-value 'scroll-step viper-saved-non-viper-variables
)
671 mode-line-buffer-identification
672 (viper-standard-value
673 'mode-line-buffer-identification viper-saved-non-viper-variables
)
675 (delq 'viper-mode-string global-mode-string
))
677 (setq default-major-mode
678 (viper-standard-value 'default-major-mode viper-saved-non-viper-variables
))
680 (if (featurep 'emacs
)
682 mark-even-if-inactive
683 (viper-standard-value
684 'mark-even-if-inactive viper-saved-non-viper-variables
)))
686 ;; Ideally, we would like to be able to de-localize local variables
688 (and (fboundp 'add-to-ordered-list
) (boundp 'emulation-mode-map-alists
))
689 (viper-delocalize-var 'minor-mode-map-alist
))
690 (viper-delocalize-var 'require-final-newline
)
691 (if (featurep 'xemacs
) (viper-delocalize-var 'bar-cursor
))
694 ;; deactivate all advices done by Viper.
695 (ad-deactivate-regexp "viper-")
697 (setq viper-mode nil
)
699 (when (and (fboundp 'add-to-ordered-list
) (boundp 'emulation-mode-map-alists
))
700 (setq emulation-mode-map-alists
701 (delq 'viper--intercept-key-maps
702 (delq 'viper--key-maps emulation-mode-map-alists
))
705 (viper-delocalize-var 'viper-vi-minibuffer-minor-mode
)
706 (viper-delocalize-var 'viper-insert-minibuffer-minor-mode
)
707 (viper-delocalize-var 'viper-vi-intercept-minor-mode
)
708 (viper-delocalize-var 'viper-insert-intercept-minor-mode
)
710 (viper-delocalize-var 'viper-vi-local-user-minor-mode
)
711 (viper-delocalize-var 'viper-vi-kbd-minor-mode
)
712 (viper-delocalize-var 'viper-vi-global-user-minor-mode
)
713 (viper-delocalize-var 'viper-vi-state-modifier-minor-mode
)
714 (viper-delocalize-var 'viper-vi-diehard-minor-mode
)
715 (viper-delocalize-var 'viper-vi-basic-minor-mode
)
717 (viper-delocalize-var 'viper-replace-minor-mode
)
719 (viper-delocalize-var 'viper-insert-local-user-minor-mode
)
720 (viper-delocalize-var 'viper-insert-kbd-minor-mode
)
721 (viper-delocalize-var 'viper-insert-global-user-minor-mode
)
722 (viper-delocalize-var 'viper-insert-state-modifier-minor-mode
)
723 (viper-delocalize-var 'viper-insert-diehard-minor-mode
)
724 (viper-delocalize-var 'viper-insert-basic-minor-mode
)
726 (viper-delocalize-var 'viper-emacs-intercept-minor-mode
)
727 (viper-delocalize-var 'viper-emacs-local-user-minor-mode
)
728 (viper-delocalize-var 'viper-emacs-kbd-minor-mode
)
729 (viper-delocalize-var 'viper-emacs-global-user-minor-mode
)
730 (viper-delocalize-var 'viper-emacs-state-modifier-minor-mode
)
732 (viper-delocalize-var 'viper-current-state
)
733 (viper-delocalize-var 'viper-mode-string
)
735 (setq-default viper-vi-minibuffer-minor-mode nil
736 viper-insert-minibuffer-minor-mode nil
737 viper-vi-intercept-minor-mode nil
738 viper-insert-intercept-minor-mode nil
740 viper-vi-local-user-minor-mode nil
741 viper-vi-kbd-minor-mode nil
742 viper-vi-global-user-minor-mode nil
743 viper-vi-state-modifier-minor-mode nil
744 viper-vi-diehard-minor-mode nil
745 viper-vi-basic-minor-mode nil
747 viper-replace-minor-mode nil
749 viper-insert-local-user-minor-mode nil
750 viper-insert-kbd-minor-mode nil
751 viper-insert-global-user-minor-mode nil
752 viper-insert-state-modifier-minor-mode nil
753 viper-insert-diehard-minor-mode nil
754 viper-insert-basic-minor-mode nil
756 viper-emacs-intercept-minor-mode nil
757 viper-emacs-local-user-minor-mode nil
758 viper-emacs-kbd-minor-mode nil
759 viper-emacs-global-user-minor-mode nil
760 viper-emacs-state-modifier-minor-mode nil
762 viper-current-state
'emacs-state
763 viper-mode-string viper-emacs-state-id
766 ;; remove all hooks set by viper
767 (mapatoms 'viper-remove-hooks
)
768 (remove-hook 'comint-mode-hook
'viper-comint-mode-hook
)
769 (remove-hook 'erc-mode-hook
'viper-comint-mode-hook
)
770 (remove-hook 'change-major-mode-hook
'viper-major-mode-change-sentinel
)
772 ;; unbind Viper mouse bindings
773 (viper-unbind-mouse-search-key)
774 (viper-unbind-mouse-insert-key)
775 ;; In emacs, we have to advice handle-switch-frame
776 ;; This advice is undone earlier, when all advices matchine "viper-" are
778 (if (featurep 'xemacs
)
779 (remove-hook 'mouse-leave-frame-hook
'viper-remember-current-frame
))
780 ) ; end viper-go-away
783 ;; list of buffers that just changed their major mode
784 ;; used in a hack that triggers vi command mode whenever needed
785 (defvar viper-new-major-mode-buffer-list nil
)
787 ;; set appropriate Viper state in buffers that changed major mode
788 (defun set-viper-state-in-major-mode ()
791 (if (viper-buffer-live-p buf
)
792 (with-current-buffer buf
793 (cond ((and (this-major-mode-requires-vi-state major-mode
)
794 (eq viper-current-state
'emacs-state
))
796 ((memq major-mode viper-emacs-state-mode-list
)
797 ;; not checking (eq viper-current-state 'emacs-state)
798 ;; because viper-current-state could have gotten it by
799 ;; default. We need viper-change-state-to-emacs here to have
800 ;; the keymaps take effect.
801 (viper-change-state-to-emacs))
802 ((and (memq major-mode viper-insert-state-mode-list
)
803 (not (eq viper-current-state
'insert-state
)))
804 (viper-change-state-to-insert))
805 )) ; with-current-buffer
807 viper-new-major-mode-buffer-list
)
808 ;; clear the list of bufs that changed major mode
809 (setq viper-new-major-mode-buffer-list nil
)
810 ;; change the global value of hook
811 (remove-hook 'viper-post-command-hooks
'set-viper-state-in-major-mode
))
813 ;; sets up post-command-hook to turn viper-mode, if the current mode is
815 (defun viper-major-mode-change-sentinel ()
817 (or (string-match "\*Minibuf-" (buffer-name))
818 (setq viper-new-major-mode-buffer-list
819 (cons (current-buffer) viper-new-major-mode-buffer-list
))))
820 ;; change the global value of hook
821 (add-hook 'viper-post-command-hooks
'set-viper-state-in-major-mode t
))
825 ;; This sets major mode hooks to make them come up in vi-state.
826 (defun viper-set-hooks ()
827 ;; It is of course a misnomer to call viper-mode a `major mode'.
828 ;; However, this has the effect that if the user didn't specify the
829 ;; default mode, new buffers that fall back on the default will come up
830 ;; in Fundamental Mode and Vi state.
831 ;; When viper-mode is executed in such a case, it will set the major mode
832 ;; back to fundamental-mode.
833 (if (eq default-major-mode
'fundamental-mode
)
834 (setq default-major-mode
'viper-mode
))
836 (add-hook 'change-major-mode-hook
'viper-major-mode-change-sentinel
)
837 (add-hook 'find-file-hooks
'set-viper-state-in-major-mode
)
839 ;; keep this because many modes we don't know about use this hook
840 (defvar text-mode-hook
)
841 (add-hook 'text-mode-hook
'viper-mode
)
843 (defvar emerge-startup-hook
)
844 (add-hook 'emerge-startup-hook
'viper-change-state-to-emacs
)
846 ;; Zap bad bindings in flyspell-mouse-map, which prevent ESC from working
847 ;; over misspelled words (due to the overlay keymaps)
848 (defvar flyspell-mode-hook
)
849 (add-hook 'flyspell-mode-hook
851 (define-key flyspell-mouse-map viper-ESC-key nil
)))
852 ;; if viper is started from .emacs, it might be impossible to get certain
853 ;; info about the display and windows until emacs initialization is complete
854 ;; So do it via the window-setup-hook
855 (add-hook 'window-setup-hook
857 (modify-frame-parameters
859 (list (cons 'viper-vi-state-cursor-color
860 (viper-get-cursor-color))))
861 (setq viper-vi-state-cursor-color
(viper-get-cursor-color))
864 ;; Tell vc-diff to put *vc* in Vi mode
866 (defadvice vc-diff
(after viper-vc-ad activate
)
867 "Force Vi state in VC diff buffer."
868 (viper-change-state-to-vi))
871 '(defadvice vc-diff
(after viper-vc-ad activate
)
872 "Force Vi state in VC diff buffer."
873 (viper-change-state-to-vi))))
877 '(defadvice emerge-quit
(after viper-emerge-advice activate
)
878 "Run `viper-change-state-to-vi' after quitting emerge."
879 (viper-change-state-to-vi)))
880 ;; In case Emerge was loaded before Viper.
881 (defadvice emerge-quit
(after viper-emerge-advice activate
)
882 "Run `viper-change-state-to-vi' after quitting emerge."
883 (viper-change-state-to-vi))
885 ;; passwd.el sets up its own buffer, which turns up in Vi mode,
886 ;; thus overriding the local map. We don't need Vi mode here.
889 '(defadvice read-passwd-1
(before viper-passwd-ad activate
)
890 "Switch to Emacs state while reading password."
891 (viper-change-state-to-emacs)))
893 (defadvice self-insert-command
(around viper-self-insert-ad activate
)
894 "Ignore all self-inserting keys in the vi-state."
895 (if (and (eq viper-current-state
'vi-state
) (interactive-p))
900 (defadvice set-cursor-color
(after viper-set-cursor-color-ad activate
)
901 "Change cursor color in VI state."
902 (modify-frame-parameters
904 (list (cons 'viper-vi-state-cursor-color
(ad-get-arg 0))))
905 (setq viper-vi-state-cursor-color
(ad-get-arg 0))
908 (when (and (fboundp 'add-to-ordered-list
) (boundp 'emulation-mode-map-alists
))
909 ;; needs to be as early as possible
911 'emulation-mode-map-alists
'viper--intercept-key-maps
100)
912 ;; needs to be after cua-mode
913 (add-to-ordered-list 'emulation-mode-map-alists
'viper--key-maps
500)
916 ;; Emacs shell, ange-ftp, and comint-based modes
917 (add-hook 'comint-mode-hook
'viper-comint-mode-hook
) ; comint
918 (add-hook 'erc-mode-hook
'viper-comint-mode-hook
) ; ERC
920 (add-hook 'eshell-mode-hook
921 (lambda () (setq viper-auto-indent nil
)))
923 (viper-set-emacs-state-searchstyle-macros nil
'dired-mode
) ; dired
924 (viper-set-emacs-state-searchstyle-macros nil
'tar-mode
) ; tar
925 (viper-set-emacs-state-searchstyle-macros nil
'mh-folder-mode
) ; mhe
926 (viper-set-emacs-state-searchstyle-macros nil
'gnus-group-mode
) ; gnus
927 (viper-set-emacs-state-searchstyle-macros nil
'gnus-summary-mode
)
928 (viper-set-emacs-state-searchstyle-macros nil
'Info-mode
) ; info
929 (viper-set-emacs-state-searchstyle-macros nil
'Buffer-menu-mode
) ;buffer-menu
931 ;; Modify major modes according to viper-major-mode-modifier-list
932 (viper-apply-major-mode-modifiers)
935 ;; Put buf in Emacs state after edit.
938 '(defadvice rmail-cease-edit
(after viper-rmail-advice activate
)
939 "Switch to Emacs state when done editing message."
940 (viper-change-state-to-emacs)))
941 ;; In case RMAIL was loaded before Viper.
942 (defadvice rmail-cease-edit
(after viper-rmail-advice activate
)
943 "Switch to emacs state when done editing message."
944 (viper-change-state-to-emacs))
947 ;; Need to do it after loading iso-acc, or else this loading will wipe out
951 '(defadvice iso-accents-mode
(around viper-iso-accents-advice activate
)
952 "Set viper-automatic-iso-accents to iso-accents-mode."
953 (let ((arg (ad-get-arg 0)))
955 (setq viper-automatic-iso-accents
956 (if (eq viper-current-state
'vi-state
)
958 ;; if iso-accents-mode was called with positive arg, turn
960 (> (prefix-numeric-value arg
) 0)
961 ;; else: toggle viper-automatic-iso-accents
962 (not viper-automatic-iso-accents
))
963 ;; other states: accept what iso-accents-mode has done
965 ;; turn off ISO accents in vi-state
966 (if (eq viper-current-state
'vi-state
)
967 (viper-set-iso-accents-mode nil
))
968 (if (memq viper-current-state
'(vi-state insert-state replace-state
))
969 (message "Viper ISO accents mode: %s"
970 (if viper-automatic-iso-accents
"on" "off")))
973 ;; International input methods
974 (if (featurep 'emacs
)
975 (eval-after-load "mule-cmds"
977 (defadvice inactivate-input-method
(after viper-mule-advice activate
)
978 "Set viper-special-input-method to disable intl. input methods."
979 (viper-inactivate-input-method-action))
980 (defadvice activate-input-method
(after viper-mule-advice activate
)
981 "Set viper-special-input-method to enable intl. input methods."
982 (viper-activate-input-method-action))
984 ;; XEmacs Although these hooks exist in Emacs, they don't seem to be always
985 ;; called on input-method activation/deactivation, so we the above advise
986 ;; functions instead.
987 (eval-after-load "mule-cmds"
989 (add-hook 'input-method-activate-hook
990 'viper-activate-input-method-action t
)
991 (add-hook 'input-method-inactivate-hook
992 'viper-inactivate-input-method-action t
)))
994 (eval-after-load "mule-cmds"
995 '(defadvice toggle-input-method
(around viper-mule-advice activate
)
996 "Adjust input-method toggling in vi-state."
997 (if (and viper-special-input-method
(eq viper-current-state
'vi-state
))
998 (viper-inactivate-input-method)
1004 ;; these are primarily advices and Vi-ish variable settings
1005 (defun viper-non-hook-settings ()
1007 ;;;; Viper changes the default mode-line-buffer-identification
1008 ;;(setq-default mode-line-buffer-identification '(" %b"))
1010 ;; setup emacs-supported vi-style feel
1011 (setq next-line-add-newlines nil
1012 require-final-newline t
)
1014 ;; don't bark when mark is inactive
1015 (if (featurep 'emacs
)
1016 (setq mark-even-if-inactive t
))
1018 (setq scroll-step
1)
1020 ;; Variable displaying the current Viper state in the mode line.
1021 (or (memq 'viper-mode-string global-mode-string
)
1022 (setq global-mode-string
1023 (append '("" viper-mode-string
) (cdr global-mode-string
))))
1025 (if (featurep 'xemacs
)
1027 (defadvice describe-key
(before viper-describe-key-ad protect activate
)
1028 "Force to read key via `viper-read-key-sequence'."
1029 (interactive (list (viper-read-key-sequence "Describe key: "))))
1031 (defadvice describe-key
(before viper-describe-key-ad protect activate
)
1032 "Force to read key via `viper-read-key-sequence'."
1033 (interactive (let (key)
1034 (setq key
(viper-read-key-sequence
1035 "Describe key (or click or menu item): "))
1037 (prefix-numeric-value current-prefix-arg
)
1038 ;; If KEY is a down-event, read also the
1039 ;; corresponding up-event.
1041 (let ((last-idx (1- (length key
))))
1042 (and (eventp (aref key last-idx
))
1043 (memq 'down
(event-modifiers
1044 (aref key last-idx
)))))
1045 (or (and (eventp (aref key
0))
1046 (memq 'down
(event-modifiers
1048 ;; For the C-down-mouse-2 popup menu,
1049 ;; there is no subsequent up-event
1051 (and (> (length key
) 1)
1052 (eventp (aref key
1))
1053 (memq 'down
(event-modifiers (aref key
1)))))
1055 ) ; (if (featurep 'xemacs)
1057 (if (featurep 'xemacs
)
1059 (defadvice describe-key-briefly
1060 (before viper-describe-key-briefly-ad protect activate
)
1061 "Force to read key via `viper-read-key-sequence'."
1062 (interactive (list (viper-read-key-sequence "Describe key briefly: "))))
1064 (defadvice describe-key-briefly
1065 (before viper-describe-key-briefly-ad protect activate
)
1066 "Force to read key via `viper-read-key-sequence'."
1067 (interactive (let (key)
1068 (setq key
(viper-read-key-sequence
1069 "Describe key (or click or menu item): "))
1070 ;; If KEY is a down-event, read and discard the
1071 ;; corresponding up-event.
1073 (let ((last-idx (1- (length key
))))
1074 (and (eventp (aref key last-idx
))
1075 (memq 'down
(event-modifiers (aref key last-idx
)))))
1078 (if current-prefix-arg
1079 (prefix-numeric-value current-prefix-arg
))
1081 ) ; (if (featurep 'xemacs)
1083 (defadvice find-file
(before viper-add-suffix-advice activate
)
1084 "Use `read-file-name' for reading arguments."
1085 (interactive (cons (read-file-name "Find file: " nil default-directory
)
1086 ;; XEmacs: if Mule & prefix arg, ask for coding system
1087 (cond ((and (featurep 'xemacs
) (featurep 'mule
))
1089 (and current-prefix-arg
1090 (read-coding-system "Coding-system: "))))
1091 ;; Emacs: do wildcards
1092 ((and (featurep 'emacs
) (boundp 'find-file-wildcards
))
1093 (list find-file-wildcards
))))
1096 (defadvice find-file-other-window
(before viper-add-suffix-advice activate
)
1097 "Use `read-file-name' for reading arguments."
1098 (interactive (cons (read-file-name "Find file in other window: "
1099 nil default-directory
)
1100 ;; XEmacs: if Mule & prefix arg, ask for coding system
1101 (cond ((and (featurep 'xemacs
) (featurep 'mule
))
1103 (and current-prefix-arg
1104 (read-coding-system "Coding-system: "))))
1105 ;; Emacs: do wildcards
1106 ((and (featurep 'emacs
) (boundp 'find-file-wildcards
))
1107 (list find-file-wildcards
))))
1111 (defadvice find-file-other-frame
(before viper-add-suffix-advice activate
)
1112 "Use `read-file-name' for reading arguments."
1113 (interactive (cons (read-file-name "Find file in other frame: "
1114 nil default-directory
)
1115 ;; XEmacs: if Mule & prefix arg, ask for coding system
1116 (cond ((and (featurep 'xemacs
) (featurep 'mule
))
1118 (and current-prefix-arg
1119 (read-coding-system "Coding-system: "))))
1120 ;; Emacs: do wildcards
1121 ((and (featurep 'emacs
) (boundp 'find-file-wildcards
))
1122 (list find-file-wildcards
))))
1126 (defadvice read-file-name
(around viper-suffix-advice activate
)
1127 "Tell `exit-minibuffer' to run `viper-file-add-suffix' as a hook."
1128 (let ((viper-minibuffer-exit-hook
1129 (append viper-minibuffer-exit-hook
1130 '(viper-minibuffer-trim-tail viper-file-add-suffix
))))
1133 (defadvice start-kbd-macro
(after viper-kbd-advice activate
)
1134 "Remove Viper's intercepting bindings for C-x ).
1135 This may be needed if the previous `:map' command terminated abnormally."
1136 (define-key viper-vi-intercept-map
"\C-x)" nil
)
1137 (define-key viper-insert-intercept-map
"\C-x)" nil
)
1138 (define-key viper-emacs-intercept-map
"\C-x)" nil
))
1140 (defadvice add-minor-mode
(after
1141 viper-advice-add-minor-mode
1142 (toggle name
&optional keymap after toggle-fun
)
1144 "Run viper-normalize-minor-mode-map-alist after adding a minor mode."
1145 (viper-normalize-minor-mode-map-alist)
1147 (and (fboundp 'add-to-ordered-list
) (boundp 'emulation-mode-map-alists
))
1148 (setq-default minor-mode-map-alist minor-mode-map-alist
)))
1150 ;; catch frame switching event
1151 (if (viper-window-display-p)
1152 (if (featurep 'xemacs
)
1153 (add-hook 'mouse-leave-frame-hook
1154 'viper-remember-current-frame
)
1155 (defadvice handle-switch-frame
(before viper-frame-advice activate
)
1156 "Remember the selected frame before the switch-frame event."
1157 (viper-remember-current-frame (selected-frame)))) )
1159 ) ; end viper-non-hook-settings
1163 ;; Ask only if this-command/last-command are nil, i.e., when loading
1164 (cond ((and (eq viper-mode
'ask
) (null this-command
) (null last-command
))
1165 (save-window-excursion
1166 (with-output-to-temp-buffer " *viper-info*"
1168 You have loaded Viper, and are about to Viperize your Emacs!
1170 Viper is a Package for Emacs Rebels and a venomous VI PERil,
1172 It's time to decide: to Viperize or not to Viperize...
1174 If you wish to Viperize AND make this your way of life, please put
1179 in your .emacs file (preferably, close to the top).
1180 These two lines must come in the order given.
1183 **** The startup file name has been changed from .vip to .viper
1184 **** All vip-* style names have been converted to viper-* style."))
1185 (if (y-or-n-p "Viperize? ")
1187 (setq viper-mode nil
))
1189 (kill-buffer " *viper-info*")))
1191 ;; If viper-mode is t, then just continue. Viper will kick in.
1193 ;; Otherwise, it was asking Viper was not loaded through .emacs
1194 ;; In this case, it was either through M-x viper-mode or via something
1195 ;; else, like the custom widget. If Viper was loaded through
1196 ;; M-x viper-mode, then viper will kick in anyway.
1197 (t (setq viper-mode nil
)))
1199 (defun viper-load-custom-file ()
1200 (if (and (file-exists-p viper-custom-file-name
)
1201 (not noninteractive
))
1202 (load viper-custom-file-name
)))
1209 ;; save non-viper vars that Viper might change
1210 (if (null viper-saved-non-viper-variables
)
1211 (setq viper-saved-non-viper-variables
1213 (cons 'default-major-mode
(list default-major-mode
))
1214 (cons 'next-line-add-newlines
(list next-line-add-newlines
))
1215 (cons 'require-final-newline
(list require-final-newline
))
1216 (cons 'scroll-step
(list scroll-step
))
1217 (cons 'mode-line-buffer-identification
1218 (list (default-value 'mode-line-buffer-identification
)))
1219 (cons 'global-mode-string
(list global-mode-string
))
1220 (if (featurep 'emacs
)
1221 (cons 'mark-even-if-inactive
(list mark-even-if-inactive
)))
1225 ;; Set some useful macros, advices
1226 ;; These must be BEFORE ~/.viper is loaded,
1227 ;; so the user can unrecord them in ~/.viper.
1230 ;; set advices and some variables that give emacs Vi look.
1231 (viper-non-hook-settings)
1233 ;; repeat the 2nd previous command without rotating the command history
1234 (viper-record-kbd-macro
1235 (vector viper-repeat-from-history-key
'\
1) 'vi-state
1236 [(meta x
) v i p e r - r e p e a t - f r o m - h i s t o r y return
] 't
)
1237 ;; repeat the 3d previous command without rotating the command history
1238 (viper-record-kbd-macro
1239 (vector viper-repeat-from-history-key
'\
2) 'vi-state
1240 [(meta x
) v i p e r - r e p e a t - f r o m - h i s t o r y return
] 't
)
1242 ;; set macros for toggling case sensitivity and regexp search
1243 (viper-set-searchstyle-toggling-macros nil
)
1244 ;; Make %%% toggle parsing comments for matching parentheses
1245 (viper-set-parsing-style-toggling-macro nil
)
1247 ;; ~/.viper is loaded if exists
1248 (viper-load-custom-file)
1250 ;; should be after loading custom file to avoid the pesky msg that
1251 ;; mouse-search/insert keys are already bound
1252 (viper-bind-mouse-search-key)
1253 (viper-bind-mouse-insert-key)
1258 ;; Applying Viper customization -- runs after (load .viper)
1260 ;; Save user settings or Viper defaults for vars controlled by
1261 ;; viper-expert-level
1262 (if (null viper-saved-user-settings
)
1263 (setq viper-saved-user-settings
1264 (list (cons 'viper-want-ctl-h-help
(list viper-want-ctl-h-help
))
1265 (cons 'viper-always
(list viper-always
))
1266 (cons 'viper-no-multiple-ESC
(list viper-no-multiple-ESC
))
1267 (cons 'viper-ex-style-motion
(list viper-ex-style-motion
))
1268 (cons 'viper-ex-style-editing
1269 (list viper-ex-style-editing
))
1270 (cons 'viper-want-emacs-keys-in-vi
1271 (list viper-want-emacs-keys-in-vi
))
1272 (cons 'viper-electric-mode
(list viper-electric-mode
))
1273 (cons 'viper-want-emacs-keys-in-insert
1274 (list viper-want-emacs-keys-in-insert
))
1275 (cons 'viper-re-search
(list viper-re-search
)))))
1280 (viper-set-minibuffer-style)
1281 (if viper-buffer-search-char
1282 (viper-buffer-search-enable))
1283 (viper-update-syntax-classes 'set-default
)
1287 ;;; Familiarize Viper with some minor modes that have their own keymaps
1290 (viper-harness-minor-mode "compile")
1291 (viper-harness-minor-mode "outline")
1292 (viper-harness-minor-mode "allout")
1293 (viper-harness-minor-mode "xref")
1294 (viper-harness-minor-mode "lmenu")
1295 (viper-harness-minor-mode "vc")
1296 (viper-harness-minor-mode "ltx-math") ; LaTeX-math-mode in AUC-TeX, which
1297 (viper-harness-minor-mode "latex") ; sits in one of these two files
1298 (viper-harness-minor-mode "cyrillic")
1299 (viper-harness-minor-mode "russian")
1300 (viper-harness-minor-mode "view-less")
1301 (viper-harness-minor-mode "view")
1302 (viper-harness-minor-mode "reftex")
1303 (viper-harness-minor-mode "flyspell")
1307 ;; Intercept maps could go in viper-keym.el
1308 ;; We keep them here in case someone redefines them in ~/.viper
1310 (define-key viper-vi-intercept-map viper-ESC-key
'viper-intercept-ESC-key
)
1311 (define-key viper-insert-intercept-map viper-ESC-key
'viper-intercept-ESC-key
)
1313 ;; This is taken care of by viper-insert-global-user-map.
1314 ;;(define-key viper-replace-map viper-ESC-key 'viper-intercept-ESC-key)
1317 ;; The default viper-toggle-key is \C-z; for the novice, it suspends or
1319 (define-key viper-vi-intercept-map viper-toggle-key
'viper-toggle-key-action
)
1321 viper-emacs-intercept-map viper-toggle-key
'viper-change-state-to-vi
)
1323 ;;; Removed to avoid bad interaction with cua-mode.
1324 ;;; Escape from Emacs and Insert modes to Vi for one command
1325 ;;(define-key viper-emacs-intercept-map "\C-c\\" 'viper-escape-to-vi)
1326 ;;(define-key viper-insert-intercept-map "\C-c\\" 'viper-escape-to-vi)
1329 (setq-default viper-emacs-intercept-minor-mode t
1330 viper-emacs-local-user-minor-mode t
1331 viper-emacs-global-user-minor-mode t
1332 viper-emacs-kbd-minor-mode t
1333 viper-emacs-state-modifier-minor-mode t
))
1334 (if (and viper-mode
(eq viper-current-state
'emacs-state
))
1335 (setq viper-emacs-intercept-minor-mode t
1336 viper-emacs-local-user-minor-mode t
1337 viper-emacs-global-user-minor-mode t
1338 viper-emacs-kbd-minor-mode t
1339 viper-emacs-state-modifier-minor-mode t
))
1344 (and (< viper-expert-level
5) (> viper-expert-level
0))))
1347 ;; Let all minor modes take effect after loading.
1348 ;; This may not be enough, so we also set default minor-mode-alist.
1349 ;; Without setting the default, new buffers that come up in emacs mode have
1350 ;; minor-mode-map-alist = nil, unless we call viper-change-state-*
1351 (if (and viper-mode
(eq viper-current-state
'emacs-state
))
1353 (viper-change-state-to-emacs)
1355 (and (fboundp 'add-to-ordered-list
)
1356 (boundp 'emulation-mode-map-alists
))
1357 (setq-default minor-mode-map-alist minor-mode-map-alist
))
1360 (if (and viper-mode
(this-major-mode-requires-vi-state major-mode
))
1364 (setq initial-major-mode
1366 (funcall (quote ,initial-major-mode
))
1367 (set-viper-state-in-major-mode))
1372 (run-hooks 'viper-load-hook
) ; the last chance to change something
1378 ;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
1381 ;; arch-tag: 5f3e844c-c4e6-4bbd-9b73-63bdc14e7d79
1382 ;;; viper.el ends here