| Current Path : /usr/share/emacs/24.3/lisp/emulation/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/emulation/viper.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:01 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/viper.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@30 The current version of Viper
(defconst viper-version "3.14.1 of August 15, 2009" (#$ . 558))
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require advice viper-init viper-keym] 2)
#@105 Viper customization file.
If set by the user, this must be done _before_ Viper is loaded in `~/.emacs'.
(defvar viper-custom-file-name (convert-standard-filename "~/.viper") (#$ . 753))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311!\210\300\312\302\313\304\305\306\301&\210\314\315\316\317\320\321\322\323\306\312& \207" [custom-declare-group viper nil "Vi emulation within Emacs.\nNOTE: Viper customization should be saved in `viper-custom-file-name', which\ndefaults to `~/.viper'." :prefix "viper-" :group emulations require viper-cmd viper-misc "Miscellaneous Viper customization." custom-declare-variable viper-always t "Non-nil means, arrange for vi-state to be a default when appropriate.\nThis is different from `viper-mode' variable in that `viper-mode' determines\nwhether to use Viper in the first place, while `viper-always', if nil, lets\nuser decide when to invoke Viper in a major mode." :type boolean :tag "Always Invoke Viper"] 10)
(defvar viper-saved-non-viper-variables nil)
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\310\311&\210\300\316\317\320\304\321\310\311&\210\300\322\323\324\304\325\310\311&\207" [custom-declare-variable viper-mode (cond (noninteractive nil) (t 'ask)) "To Viperize or not to Viperize.\nIf t, viperize Emacs. If nil -- don't. If `ask', ask the user.\nThis variable is used primarily when Viper is being loaded.\n\nMust be set in your init file before Viper is loaded.\nDO NOT set this variable interactively, unless you are using the customization\nwidget." :type (choice (const nil) (const t) (const ask)) :tag "Set Viper Mode on Loading" :group viper-misc viper-vi-state-mode-list '(fundamental-mode makefile-mode awk-mode m4-mode xrdb-mode winmgr-mode autoconf-mode cvs-edit-mode html-mode html-helper-mode emacs-lisp-mode lisp-mode lisp-interaction-mode jde-mode java-mode cc-mode c-mode c++-mode objc-mode fortran-mode f90-mode basic-mode bat-mode asm-mode prolog-mode flora-mode sql-mode text-mode indented-text-mode tex-mode latex-mode bibtex-mode ps-mode diff-mode idl-mode perl-mode cperl-mode javascript-mode tcl-mode python-mode sh-mode ksh-mode csh-mode gnus-article-mode mh-show-mode) "Major modes that require Vi command state." (repeat symbol) viper-emacs-state-mode-list '(Custom-mode dired-mode efs-mode tar-mode browse-kill-ring-mode recentf-mode recentf-dialog-mode occur-mode mh-folder-mode gnus-group-mode gnus-summary-mode completion-list-mode help-mode Info-mode Buffer-menu-mode compilation-mode rcirc-mode jde-javadoc-checker-report-mode view-mode vm-mode vm-summary-mode) "A list of major modes that should come up in Emacs state.\nNormally, Viper would bring buffers up in Emacs state, unless the corresponding\nmajor mode has been placed on `viper-vi-state-mode-list' or\n`viper-insert-state-mode-list'. So, don't place a new mode on this list,\nunless it is coming up in a wrong Viper state." (repeat symbol) viper-insert-state-mode-list '(internal-ange-ftp-mode comint-mode gud-mode inferior-emacs-lisp-mode erc-mode eshell-mode shell-mode) "A list of major modes that should come up in Vi Insert state." (repeat symbol)] 10)
(defalias 'viper-apply-major-mode-modifiers #[(&optional symbol value) "\203 L\210\303\304\n\"\207" [symbol value viper-major-mode-modifier-list mapcar #[(triple) "\301@A@\302\3038!#\207" [triple viper-modify-major-mode eval 2] 6]] 3])
#@612 List specifying how to modify the various major modes to enable some Viperisms.
The list has the structure: ((mode viper-state keymap) (mode viper-state
keymap) ...). If `mode' is on the list, the `keymap' will be made active (on
the minor-mode-map-alist) in the specified viper state.
If you change this list, have to restart Emacs for the change to take effect.
However, if you did the change through the customization widget, then Emacs
needs to be restarted only if you deleted a triple mode-state-keymap from the
list. No need to restart Emacs in case of insertion or modification of an
existing triple.
(custom-declare-variable 'viper-major-mode-modifier-list ''((help-mode emacs-state viper-slash-and-colon-map) (comint-mode insert-state viper-comint-mode-modifier-map) (comint-mode vi-state viper-comint-mode-modifier-map) (gud-mode insert-state viper-comint-mode-modifier-map) (shell-mode insert-state viper-comint-mode-modifier-map) (inferior-emacs-lisp-mode insert-state viper-comint-mode-modifier-map) (shell-mode vi-state viper-comint-mode-modifier-map) (ange-ftp-shell-mode insert-state viper-comint-mode-modifier-map) (ange-ftp-shell-mode vi-state viper-comint-mode-modifier-map) (internal-ange-ftp-mode insert-state viper-comint-mode-modifier-map) (internal-ange-ftp-mode vi-state viper-comint-mode-modifier-map) (dired-mode emacs-state viper-dired-modifier-map) (tar-mode emacs-state viper-slash-and-colon-map) (mh-folder-mode emacs-state viper-slash-and-colon-map) (gnus-group-mode emacs-state viper-gnus-modifier-map) (gnus-summary-mode emacs-state viper-gnus-modifier-map) (Info-mode emacs-state viper-slash-and-colon-map) (Buffer-menu-mode emacs-state viper-slash-and-colon-map) (erc-mode insert-state viper-comint-mode-modifier-map) (erc-mode vi-state viper-comint-mode-modifier-map)) '(#$ . 4164) :type '(repeat (list symbol (choice (const emacs-state) (const vi-state) (const insert-state)) symbol)) :set 'viper-apply-major-mode-modifiers :group 'viper-misc)
#@80 Toggle Viper on/off.
If Viper is enabled, turn it off. Otherwise, turn it on.
(defalias 'toggle-viper-mode #[nil "\301=\203 \302 \207\303\300 \207" [viper-mode t viper-go-away nil] 2 (#$ . 6155) nil])
#@69 Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'.
(defalias 'viper-mode #[nil "\204^ \204 \306\307\310!\210\n\203K \311 \204G \312 \313\216\306\314 \210\315\316!\210\317 \210\320\321!c\210eb\210\322\323!\203> \324\303\325
\306$\210\326\327!\210\330\331!\210*\332\333!\210 >\204^ >\204^ \334 \210 \301=\205i \335\211 \207" [noninteractive viper-mode viper-first-time viper-inhibit-startup-message #1=#:wconfig viper-custom-file-name t load-library "viper" nil current-window-configuration ((set-window-configuration #1#)) delete-other-windows switch-to-buffer "Viper Startup Message" erase-buffer substitute-command-keys "Viper Is a Package for Emacs Rebels,\na VI Plan for Emacs Rescue, and a venomous VI PERil.\n\nIncidentally, Viper emulates Vi under Emacs/XEmacs 20.\nIt supports all of what is good in Vi and Ex, while extending\nand improving upon much of it.\n\n 1. Viper supports Vi at several levels. Level 1 is the closest to Vi,\n level 5 provides the most flexibility to depart from many Vi conventions.\n\n You will be asked to specify your user level in a following screen.\n\n If you select user level 1 then the keys ^X, ^C, ^Z, and ^G will behave\n as in VI, to smooth transition to Viper for the beginners. However, to\n use Emacs productively, you are advised to reach user level 3 or higher.\n\n At user level 2 or higher, ^X and ^C have Emacs, not Vi, bindings;\n ^Z toggles Vi/Emacs states; ^G is Emacs's keyboard-quit (like ^C in Vi).\n\n 2. Vi exit functions (e.g., :wq, ZZ) work on INDIVIDUAL files -- they\n do not cause Emacs to quit, except at user level 1 (for a novice).\n 3. ^X^C EXITS EMACS.\n 4. Viper supports multiple undo: `u' will undo. Typing `.' will repeat\n undo. Another `u' changes direction.\n\n 6. Emacs Meta key is `C-\\' (in all modes) or `\\ ESC' (in Vi command mode).\n On a window system, the best way is to use the Meta-key on your keyboard.\n 7. Try \\[keyboard-quit] and \\[abort-recursive-edit] repeatedly,if\n something funny happens. This would abort the current editing command.\n\nFor more information on Viper:\n\n a. Type `:help' in Vi command mode\n b. Print Viper manual, found in ./etc/viper.dvi\n c. Print the Quick Reference, found in ./etc/viperCard.dvi\n\nTo submit a bug report or to contact the author, type :submitReport in Vi\ncommand mode. To shoo Viper away and return to pure Emacs (horror!), type:\n\n M-x viper-go-away\n\nThis startup message appears whenever you load Viper, unless you type `y' now." y-or-n-p "Inhibit Viper startup message? " viper-save-setting "Viper startup message inhibited" message "The last message is in buffer `Viper Startup Message'" sit-for 4 viper-set-expert-level dont-change-unless viper-change-state-to-vi fundamental-mode major-mode viper-emacs-state-mode-list viper-insert-state-mode-list] 5 (#$ . 6366) nil])
(defalias 'this-major-mode-requires-vi-state #[(mode) " >\203 \304\207\n>\203 \305\207 >\203 \305\207\306\307!\310=\205% \306\311!\310=\207" [mode viper-vi-state-mode-list viper-emacs-state-mode-list viper-insert-state-mode-list t nil key-binding "a" self-insert-command " "] 2])
(defalias 'viper-comint-mode-hook #[nil "\303\300!\210\304\211\304\305 \207" [require-final-newline viper-ex-style-editing viper-ex-style-motion make-local-variable nil viper-change-state-to-insert] 3])
(defalias 'viper-remove-hooks #[(symbol) "\301!\204 \302\207\303!<\204 \302\207\304\305\306!\"\205F \307\310\"\210\307\311\"\210\307\312\"\210\307\313\"\210\307\314\"\210\307\315\"\210\307\316\"\210\307\317\"\210\307\320\"\207" [symbol boundp nil eval string-match "-hook" symbol-name remove-hook viper-mode viper-change-state-to-emacs viper-change-state-to-insert viper-change-state-to-vi viper-minibuffer-post-command-hook viper-minibuffer-setup-sentinel viper-major-mode-change-sentinel set-viper-state-in-major-mode viper-post-command-sentinel] 4])
(defalias 'viper-delocalize-var #[(symbol) "\303 \304\211\205 @rq\210\305\n!\210) A\211\204 \304*\207" [buf --dolist-tail-- symbol buffer-list nil kill-local-variable] 3])
#@299 De-Viperize Emacs.
This function tries to do as good a job as possible. However, it may undo some
user customization, unrelated to Viper. For instance, if the user advised
`read-file-name', `describe-key', and some others, then this advice will be
undone.
It also can't undo some Viper settings.
(defalias 'viper-go-away #[nil "\305\306\307\306\"\"\210\305\310\307\310\"\"\210\305\311\307\311\"\"\210\305\312\307\312\"\"\210\305\301\313\314 \"\"\210\305\315\307\316\"\"\210\305\317\307\317\"\"\210\320\321!\203D \322\303!\204H \323\324!\210\323\310!\210\325\326!\210\327\320\321!\203f \322\303!\203f \313\330\313\331 \"\"\323\332!\210\323\333!\210\323\334!\210\323\335!\210\323\336!\210\323\337!\210\323\340!\210\323\341!\210\323\342!\210\323\343!\210\323\344!\210\323\345!\210\323\346!\210\323\347!\210\323\350!\210\323\351!\210\323\352!\210\323\353!\210\323\354!\210\323\355!\210\323\356!\210\323\357!\210\323\360!\210\323\314!\210\305\332\327\"\210\305\333\327\"\210\305\334\327\"\210\305\335\327\"\210\305\336\327\"\210\305\337\327\"\210\305\340\327\"\210\305\341\327\"\210\305\342\327\"\210\305\343\327\"\210\305\344\327\"\210\305\345\327\"\210\305\346\327\"\210\305\347\327\"\210\305\350\327\"\210\305\351\327\"\210\305\352\327\"\210\305\353\327\"\210\305\354\327\"\210\305\355\327\"\210\305\356\327\"\210\305\357\327\"\210\305\360\361\"\210\305\314\f\"\210\362\363!\210\364\365\366\"\210\364\367\366\"\210\364\370\371\"\210\372 \210\373 \210\327\207" [viper-saved-non-viper-variables global-mode-string viper-mode emulation-mode-map-alists viper-emacs-state-id set-default next-line-add-newlines viper-standard-value require-final-newline scroll-step mode-line-buffer-identification delq viper-mode-string major-mode default-major-mode mark-even-if-inactive fboundp add-to-ordered-list boundp viper-delocalize-var minor-mode-map-alist ad-deactivate-regexp "viper-" nil viper--intercept-key-maps viper--key-maps viper-vi-minibuffer-minor-mode viper-insert-minibuffer-minor-mode viper-vi-intercept-minor-mode viper-insert-intercept-minor-mode viper-vi-local-user-minor-mode viper-vi-kbd-minor-mode viper-vi-global-user-minor-mode viper-vi-state-modifier-minor-mode viper-vi-diehard-minor-mode viper-vi-basic-minor-mode viper-replace-minor-mode viper-insert-local-user-minor-mode viper-insert-kbd-minor-mode viper-insert-global-user-minor-mode viper-insert-state-modifier-minor-mode viper-insert-diehard-minor-mode viper-insert-basic-minor-mode viper-emacs-intercept-minor-mode viper-emacs-local-user-minor-mode viper-emacs-kbd-minor-mode viper-emacs-global-user-minor-mode viper-emacs-state-modifier-minor-mode viper-current-state emacs-state mapatoms viper-remove-hooks remove-hook comint-mode-hook viper-comint-mode-hook erc-mode-hook change-major-mode-hook viper-major-mode-change-sentinel viper-unbind-mouse-search-key viper-unbind-mouse-insert-key] 5 (#$ . 10547) nil])
(defvar viper-new-major-mode-buffer-list nil)
(defalias 'set-viper-state-in-major-mode #[nil "\301\302\"\210\303\304\305\306\"\207" [viper-new-major-mode-buffer-list mapc #[(buf) "\205B \305!\205B \306\305!!\205B rq\210\307 !\203' \n\310=\203' \311 \202A >\2032 \312 \202A \f>\205A \n\313=?\205A \314 )\207" [buf major-mode viper-current-state viper-emacs-state-mode-list viper-insert-state-mode-list get-buffer buffer-name this-major-mode-requires-vi-state emacs-state viper-mode viper-change-state-to-emacs insert-state viper-change-state-to-insert] 3] nil remove-hook viper-post-command-hooks set-viper-state-in-major-mode] 3])
(defalias 'viper-major-mode-change-sentinel #[nil "\302 \303\216\304\305\306 \"\204 p B*\307\310\311\312#\207" [save-match-data-internal viper-new-major-mode-buffer-list match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "*Minibuf-" buffer-name add-hook viper-post-command-hooks set-viper-state-in-major-mode t] 4])
(defalias 'viper-set-hooks #[nil "\300\301!\302=\203
\303\301\304\"\210\305\306\307\"\210\305\310\311\"\210\305\312\304\"\210\305\313\314\"\210\305\315\316\"\210\305\317\320\"\210\321\322\323\"\210\321\324\325\"\210\321\326\327\"\210\330\331\332\333\334$\210\335\331\334\"\210\330\336\337\340\334$\210\335\336\334\"\210\341\342!\203j \343\344!\203j \342\344\345\346#\210\342\344\347\350#\210\305\351\352\"\210\305\353\352\"\210\305\354\355\"\210\356\334\357\"\210\356\334\360\"\210\356\334\361\"\210\356\334\362\"\210\356\334\363\"\210\356\334\364\"\210\356\334\365\"\210\366 \210\321\367\370\"\210\321\371\372\"\210\321\373\374\"\210\321\373\375\"\207" [default-value major-mode fundamental-mode set-default viper-mode add-hook change-major-mode-hook viper-major-mode-change-sentinel find-file-hooks set-viper-state-in-major-mode text-mode-hook emerge-startup-hook viper-change-state-to-emacs flyspell-mode-hook #[nil "\302 \303#\207" [flyspell-mouse-map viper-ESC-key define-key nil] 4] window-setup-hook #[nil "\301\302 \300\303 BC\"\210\303 \211\207" [viper-vi-state-cursor-color modify-frame-parameters selected-frame viper-get-cursor-color] 4] eval-after-load "vc" (defadvice vc-diff (after viper-vc-ad activate) "Force Vi state in VC diff buffer." (viper-change-state-to-vi)) "emerge" (defadvice emerge-quit (after viper-emerge-advice activate) "Run `viper-change-state-to-vi' after quitting emerge." (viper-change-state-to-vi)) "passwd" (defadvice read-passwd-1 (before viper-passwd-ad activate) "Switch to Emacs state while reading password." (viper-change-state-to-emacs)) ad-add-advice self-insert-command (viper-self-insert-ad nil t (advice lambda nil "Ignore all self-inserting keys in the vi-state." (if (and (eq viper-current-state 'vi-state) (interactive-p)) (beep 1) ad-do-it))) around nil ad-activate set-cursor-color (viper-set-cursor-color-ad nil t (advice lambda nil "Change cursor color in VI state." (modify-frame-parameters (selected-frame) (list (cons 'viper-vi-state-cursor-color (ad-get-arg 0)))) (setq viper-vi-state-cursor-color (ad-get-arg 0)))) after fboundp add-to-ordered-list boundp emulation-mode-map-alists viper--intercept-key-maps 100 viper--key-maps 500 comint-mode-hook viper-comint-mode-hook erc-mode-hook eshell-mode-hook #[nil "\301\211\207" [viper-auto-indent nil] 2] viper-set-emacs-state-searchstyle-macros dired-mode tar-mode mh-folder-mode gnus-group-mode gnus-summary-mode Info-mode Buffer-menu-mode viper-apply-major-mode-modifiers "rmailedit" (defadvice rmail-cease-edit (after viper-rmail-advice activate) "Switch to Emacs state when done editing message." (viper-change-state-to-emacs)) "iso-acc" (defadvice iso-accents-mode (around viper-iso-accents-advice activate) "Set viper-automatic-iso-accents to iso-accents-mode." (let ((arg (ad-get-arg 0))) ad-do-it (setq viper-automatic-iso-accents (if (eq viper-current-state 'vi-state) (if arg (> (prefix-numeric-value arg) 0) (not viper-automatic-iso-accents)) iso-accents-mode)) (if (eq viper-current-state 'vi-state) (viper-set-iso-accents-mode nil)) (if (memq viper-current-state '(vi-state insert-state replace-state)) (message "Viper ISO accents mode: %s" (if viper-automatic-iso-accents "on" "off"))))) "mule-cmds" (progn (defadvice deactivate-input-method (after viper-mule-advice activate) "Set viper-special-input-method to disable intl. input methods." (viper-deactivate-input-method-action)) (defadvice activate-input-method (after viper-mule-advice activate) "Set viper-special-input-method to enable intl. input methods." (viper-activate-input-method-action))) (defadvice toggle-input-method (around viper-mule-advice activate) "Adjust input-method toggling in vi-state." (if (and viper-special-input-method (eq viper-current-state 'vi-state)) (viper-deactivate-input-method) ad-do-it))] 5])
(defalias 'viper-non-hook-settings #[nil "\305\306\211\307\310\f>\204 \311\312\fA\"\313\314\315\316\305$\210\317\314\305\"\210\313\320\321\316\305$\210\317\320\305\"\210\313\322\323\316\305$\210\317\322\305\"\210\313\324\325\316\305$\210\317\324\305\"\210\313\326\327\316\305$\210\317\326\305\"\210\313\330\331\332\305$\210\317\330\305\"\210\313\333\334\335\305$\210\317\333\305\"\210\313\336\337\335\305$\210\317\336\305\"\210\340 \205\206 \313\341\342\316\305$\210\317\341\305\"\210\341\207" [next-line-add-newlines require-final-newline mark-even-if-inactive scroll-step global-mode-string nil t 1 viper-mode-string append ("" viper-mode-string) ad-add-advice describe-key (viper-describe-key-ad (protect activate) t (advice lambda nil "Force to read key via `viper-read-key-sequence'." (interactive (let (key) (setq key (viper-read-key-sequence "Describe key (or click or menu item): ")) (list key (prefix-numeric-value current-prefix-arg) (and (vectorp key) (let ((last-idx (1- (length key)))) (and (eventp (aref key last-idx)) (memq 'down (event-modifiers (aref key last-idx))))) (or (and (eventp (aref key 0)) (memq 'down (event-modifiers (aref key 0))) (= (length key) 1)) (and (> (length key) 1) (eventp (aref key 1)) (memq 'down (event-modifiers (aref key 1))))) (read-event))))))) before ad-activate describe-key-briefly (viper-describe-key-briefly-ad (protect activate) t (advice lambda nil "Force to read key via `viper-read-key-sequence'." (interactive (let (key) (setq key (viper-read-key-sequence "Describe key (or click or menu item): ")) (and (vectorp key) (let ((last-idx (1- (length key)))) (and (eventp (aref key last-idx)) (memq 'down (event-modifiers (aref key last-idx))))) (read-event)) (list key (if current-prefix-arg (prefix-numeric-value current-prefix-arg)) 1))))) find-file (viper-add-suffix-advice nil t (advice lambda nil "Use `read-file-name' for reading arguments." (interactive (cons (read-file-name "Find file: " nil default-directory) (cond ((and (featurep 'xemacs) (featurep 'mule)) (list (and current-prefix-arg (read-coding-system "Coding-system: ")))) ((and (featurep 'emacs) (boundp 'find-file-wildcards)) (list find-file-wildcards))))))) find-file-other-window (viper-add-suffix-advice nil t (advice lambda nil "Use `read-file-name' for reading arguments." (interactive (cons (read-file-name "Find file in other window: " nil default-directory) (cond ((and (featurep 'xemacs) (featurep 'mule)) (list (and current-prefix-arg (read-coding-system "Coding-system: ")))) ((and (featurep 'emacs) (boundp 'find-file-wildcards)) (list find-file-wildcards))))))) find-file-other-frame (viper-add-suffix-advice nil t (advice lambda nil "Use `read-file-name' for reading arguments." (interactive (cons (read-file-name "Find file in other frame: " nil default-directory) (cond ((and (featurep 'xemacs) (featurep 'mule)) (list (and current-prefix-arg (read-coding-system "Coding-system: ")))) ((and (featurep 'emacs) (boundp 'find-file-wildcards)) (list find-file-wildcards))))))) read-file-name (viper-suffix-advice nil t (advice lambda nil "Tell `exit-minibuffer' to run `viper-file-add-suffix' as a hook." (let ((viper-minibuffer-exit-hook (append viper-minibuffer-exit-hook '(viper-minibuffer-trim-tail viper-file-add-suffix)))) ad-do-it))) around start-kbd-macro (viper-kbd-advice nil t (advice lambda nil "Remove Viper's intercepting bindings for C-x ).\n This may be needed if the previous `:map' command terminated abnormally." (define-key viper-vi-intercept-map ")" nil) (define-key viper-insert-intercept-map ")" nil) (define-key viper-emacs-intercept-map ")" nil))) after add-minor-mode (viper-advice-add-minor-mode nil t (advice lambda (toggle name &optional keymap after toggle-fun) "Run viper-normalize-minor-mode-map-alist after adding a minor mode." (viper-normalize-minor-mode-map-alist) (unless (and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) (setq-default minor-mode-map-alist minor-mode-map-alist)))) viper-window-display-p handle-switch-frame (viper-frame-advice nil t (advice lambda nil "Remember the selected frame before the switch-frame event." (viper-remember-current-frame (selected-frame))))] 6])
(byte-code "\306=\203` \204` \n\204` \307 \310\216\f r\311\312!q\210p\313 \210
\314\211\315\211\315 \316 \210\317\320!\210+\211 \321\322!\210\323 !\210+\324\325!\203R \315\202T \314\326\327!\210\330\312!\210*\202h \315=\204h \314\314\207" [viper-mode this-command last-command #1=#:wconfig default-directory #:old-dir ask current-window-configuration ((set-window-configuration #1#)) get-buffer-create " *viper-info*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "\nYou have loaded Viper, and are about to Viperize your Emacs!\n\nViper is a Package for Emacs Rebels and a venomous VI PERil,\n\nIt's time to decide: to Viperize or not to Viperize...\n\nIf you wish to Viperize AND make this your way of life, please put\n\n (setq viper-mode t)\n (require 'viper)\n\nin your init file (preferably, close to the top).\nThese two lines must come in the order given.\n\n** Viper users:\n **** The startup file name has been changed from .vip to .viper\n **** All vip-* style names have been converted to viper-* style." internal-temp-output-buffer-show y-or-n-p "Viperize? " message "" kill-buffer buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #:buf standard-output] 4)
(defalias 'viper-load-custom-file #[nil "\302!\205 ?\205 \303!\207" [viper-custom-file-name noninteractive file-exists-p load] 2])
(byte-code "\204' \306\307\310!CB\301 CB\302\nCB\303 CB\311\307\311!CB\304\fCB\305
CB\257@\203V \312 \210\313\314A\315\"\316\317\320$\210\313\314A\321\"\316\322\320$\210\323\324!\210\325\324!\210\326 \210\327 \210\330 \210B\204\214 \331CB\332CB\333CB\334 CB\335 CB\336 CB\337 CB\340 CB\341!CB\257 B@\203\247 \342\343\344\"\210\342\345\346\"\210C\203\243 \347 \210\350\351!\210@\203\344 \352\353!\210\352\354!\210\352\355!\210\352\356!\210\352\357!\210\352\360!\210\352\361!\210\352\362!\210\352\363!\210\352\364!\210\352\365!\210\352\366!\210\352\367!\210\352\370!\210\371DE\372#\210\371FE\372#\210\371DG\373#\210\371HG\374#\210@\203&\351\375\320\"\210\351\376\320\"\210\351\377\320\"\210\351\201J \320\"\210\351\201K \320\"\210@\203CI\201O =\203C\320\211=>\320\211?J\320K@\203d\204_L\201P W\203dL\201Q V\203d\201R \210@\203\223I\201O =\203\223\201S \210\201T \201U !\203\213\201V \201W !\204\223\351\201M M\"\210@\203\246\201X !\203\246\201@ \210@\203\301\201Y \324\201Z \201[ NDD\201\\ BBBN\201] \201^ !\210\201_ \201` !\207" [viper-saved-non-viper-variables next-line-add-newlines require-final-newline scroll-step global-mode-string mark-even-if-inactive default-major-mode default-value major-mode mode-line-buffer-identification viper-non-hook-settings viper-record-kbd-macro vector \1 vi-state [(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 \2 [(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] viper-set-searchstyle-toggling-macros nil viper-set-parsing-style-toggling-macro viper-load-custom-file viper-bind-mouse-search-key viper-bind-mouse-insert-key viper-want-ctl-h-help viper-always viper-no-multiple-ESC viper-ex-style-motion viper-ex-style-editing viper-want-emacs-keys-in-vi viper-electric-mode viper-want-emacs-keys-in-insert viper-re-search add-hook minibuffer-setup-hook viper-minibuffer-setup-sentinel post-command-hook viper-minibuffer-post-command-hook viper-buffer-search-enable viper-update-syntax-classes set-default viper-harness-minor-mode "compile" "outline" "allout" "xref" "lmenu" "vc" "ltx-math" "latex" "cyrillic" "russian" "view-less" "view" "reftex" "flyspell" define-key viper-intercept-ESC-key viper-toggle-key-action viper-change-state-to-vi viper-emacs-intercept-minor-mode viper-emacs-local-user-minor-mode viper-emacs-global-user-minor-mode viper-mode viper-repeat-from-history-key viper-saved-user-settings viper-buffer-search-char viper-vi-intercept-map viper-ESC-key viper-insert-intercept-map viper-toggle-key viper-emacs-intercept-map viper-current-state viper-emacs-kbd-minor-mode viper-emacs-state-modifier-minor-mode viper-expert-level minor-mode-map-alist initial-major-mode emacs-state 5 0 viper-set-hooks viper-change-state-to-emacs fboundp add-to-ordered-list boundp emulation-mode-map-alists this-major-mode-requires-vi-state lambda funcall quote ((set-viper-state-in-major-mode)) run-hooks viper-load-hook provide viper] 11)