Current File : //usr/local/share/emacs/27.2/lisp/emulation/viper.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.2 of July 4, 2013" (#$ . 408))
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib 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 (locate-user-emacs-file "viper" ".viper") (#$ . 600))
(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\320DD\321\322\323\324\325&\207" [custom-declare-group viper nil "Vi emulation within Emacs.\nNOTE: Viper customization should be saved in `viper-custom-file-name'." :prefix "viper-" :group emulations require viper-cmd viper-misc "Miscellaneous Viper customization." custom-declare-variable viper-always funcall function #[0 "\300\207" [t] 1] "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"] 8)
(defvar viper-saved-non-viper-variables nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315%\210\300\316\302\303\317DD\320\306\321%\210\300\322\302\303\323DD\324\306\325%\207" [custom-declare-variable viper-mode funcall function #[0 "\203 \301\207\302\207" [noninteractive nil ask] 1] "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" viper-vi-state-mode-list #[0 "\300\207" [(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)] 1] "Major modes that require Vi command state." (repeat symbol) viper-emacs-state-mode-list #[0 "\300\207" [(Custom-mode dired-mode efs-mode tar-mode egg-status-buffer-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)] 1] "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 #[0 "\300\207" [(internal-ange-ftp-mode comint-mode gud-mode inferior-emacs-lisp-mode erc-mode eshell-mode shell-mode)] 1] "A list of major modes that should come up in Vi Insert state." (repeat symbol)] 8)
#@31
(fn &optional SYMBOL VALUE)
(defalias 'viper-apply-major-mode-modifiers #[512 "\203 L\210\301\302\"\207" [viper-major-mode-modifier-list mapc #[257 "\300@A@\3018J#\207" [viper-modify-major-mode 2] 6 "\n\n(fn TRIPLE)"]] 5 (#$ . 3881)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable viper-major-mode-modifier-list funcall function #[0 "\300\207" [((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))] 1] "List specifying how to modify the various major modes to enable some Viperisms.\nThe list has the structure: ((mode viper-state keymap) (mode viper-state\nkeymap) ...). If `mode' is on the list, the `keymap' will be made active (on\nthe minor-mode-map-alist) in the specified viper state.\nIf you change this list, have to restart Emacs for the change to take effect.\nHowever, if you did the change through the customization widget, then Emacs\nneeds to be restarted only if you deleted a triple mode-state-keymap from the\nlist. No need to restart Emacs in case of insertion or modification of an\nexisting triple." :type (repeat (list symbol (choice (const emacs-state) (const vi-state) (const insert-state)) symbol)) :set viper-apply-major-mode-modifiers] 8)
#@80 Toggle Viper on/off.
If Viper is enabled, turn it off. Otherwise, turn it on.
(defalias 'toggle-viper-mode #[0 "\301=\203 \302 \207\303\300 \207" [viper-mode t viper-go-away nil] 2 (#$ . 6192) nil])
#@69 Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'.
(defalias 'viper-mode #[0 "\204g \204 \306\307\310!\210\n\203U \311 \204Q \312 \313\314\315\316\317!\320\"\321$\216\306\322 \210\323\324!\210\325 \210\326\327!c\210eb\210\330\331!\203G \332\303\333\f\306$\210\334\335!\210\336\337!\210)\210\340\341!\210\342\343
\"\204g \342\343&\"\204g \344 \210'\301=\205r \345\211'\207" [noninteractive viper-mode viper-first-time viper-inhibit-startup-message viper-custom-file-name viper-emacs-state-mode-list t load-library "viper" nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 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.\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 apply derived-mode-p viper-change-state-to-vi fundamental-mode viper-insert-state-mode-list major-mode] 7 (#$ . 6401) nil])
#@13
(fn MODE)
(defalias 'this-major-mode-requires-vi-state #[257 "\211\304\305 \"\203
\306\2020 \304\305\n\"\203 \307\2020 \304\305 \"\203# \307\2020 \310\311!\312=\2050 \310\313!\312=)\207" [major-mode viper-vi-state-mode-list viper-emacs-state-mode-list viper-insert-state-mode-list apply derived-mode-p t nil key-binding "a" self-insert-command " "] 4 (#$ . 9428)])
(defalias 'viper-comint-mode-hook #[0 "\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])
#@15
(fn SYMBOL)
(defalias 'viper-remove-hooks #[257 "\300!\204 \301\207\211J<\204 \301\207\302\303\304!\"\205E \305\306\"\210\305\307\"\210\305\310\"\210\305\311\"\210\305\312\"\210\305\313\"\210\305\314\"\210\305\315\"\210\305\316\"\207" [boundp nil 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] 5 (#$ . 10008)])
#@15
(fn SYMBOL)
(defalias 'viper-delocalize-var #[257 "\300 \211\205 \211@r\211q\210\301!\210)A\266\202\202 \207" [buffer-list kill-local-variable] 5 (#$ . 10590)])
(defvar viper--advice-list nil)
#@30
(fn FUNCTION WHERE ADVICE)
(defalias 'viper--advice-add #[771 "\301#\210BB\211\207" [viper--advice-list advice-add] 7 (#$ . 10795)])
(defalias 'viper--deactivate-advice-list #[0 "\301\302\"\210\303\211\207" [viper--advice-list mapc #[257 "\300@A\"\207" [advice-remove] 4 "\n\n(fn N)"] nil] 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 #[0 "\305\306!\210\307\310\311\310\"\"\210\307\312\311\312\"\"\210\307\313\311\313\"\"\210\307\314\311\314\"\"\210\307\301\315\316 \"\"\210\307\317\311\317\"\"\210\307\320\311\320\"\"\210\321\322!\203H \323\303!\204L \324\325!\210\324\312!\210\326 \210\306\321\322!\203i \323\303!\203i \315\327\315\330 \"\"\324\331!\210\324\332!\210\324\333!\210\324\334!\210\324\335!\210\324\336!\210\324\337!\210\324\340!\210\324\341!\210\324\342!\210\324\343!\210\324\344!\210\324\345!\210\324\346!\210\324\347!\210\324\350!\210\324\351!\210\324\352!\210\324\353!\210\324\354!\210\324\355!\210\324\356!\210\324\357!\210\324\316!\210\307\331\306\"\210\307\332\306\"\210\307\333\306\"\210\307\334\306\"\210\307\335\306\"\210\307\336\306\"\210\307\337\306\"\210\307\340\306\"\210\307\341\306\"\210\307\342\306\"\210\307\343\306\"\210\307\344\306\"\210\307\345\306\"\210\307\346\306\"\210\307\347\306\"\210\307\350\306\"\210\307\351\306\"\210\307\352\306\"\210\307\353\306\"\210\307\354\306\"\210\307\355\306\"\210\307\356\306\"\210\307\357\360\"\210\307\316\f\"\210\361\362!\210\363\364\365\"\210\363\366\365\"\210\363\367\370\"\210\371 \210\372 \207" [viper-saved-non-viper-variables global-mode-string viper-mode emulation-mode-map-alists viper-emacs-state-id viper-setup-ESC-to-escape nil set-default next-line-add-newlines viper-standard-value require-final-newline scroll-step mode-line-buffer-identification delq viper-mode-string major-mode mark-even-if-inactive fboundp add-to-ordered-list boundp viper-delocalize-var minor-mode-map-alist viper--deactivate-advice-list 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 (#$ . 11109) nil])
(defvar viper-new-major-mode-buffer-list nil)
(defalias 'set-viper-state-in-major-mode #[0 "\301\302\"\210\303\304\305\306\"\207" [viper-new-major-mode-buffer-list mapc #[257 "\211\205D \304!\205D \305\304!!\205D r\211q\210\306!\203' \307=\203' \310 \202C \311\312\n\"\2033 \313 \202C \311\312 \"\205C \314=?\205C \315 )\207" [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 cl-member-if derived-mode-p viper-change-state-to-emacs insert-state viper-change-state-to-insert] 4 "\n\n(fn BUF)"] nil remove-hook viper-post-command-hooks set-viper-state-in-major-mode] 3])
(defalias 'viper-major-mode-change-sentinel #[0 "\301 \302\303\304\305\306!\307\"\310$\216\311\312\313 \"\204 pB)\210\314\315\316\317#\207" [viper-new-major-mode-buffer-list match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "\\*Minibuf-" buffer-name add-hook viper-post-command-hooks set-viper-state-in-major-mode t] 7])
#@12
(fn MAP)
(defalias 'viper--tty-ESC-filter #[257 "\301 \302\232\203 \303\304\245!\203 \305\207\207" [viper-fast-keyseq-timeout this-single-command-keys [27] sit-for 1000 [escape]] 4 (#$ . 15087)])
#@216 Kind of like `lookup-key'.
Two differences:
- KEY is a single key, not a sequence.
- the result is the "raw" binding, so it can be a `menu-item', rather than the
binding contained in that menu item.
(fn MAP KEY)
(defalias 'viper--lookup-key #[514 "\3002 \301\302\303\304\305\306!\307\"\310\311%\"0\207" [found map-keymap make-byte-code 514 "\300\232\205\n \301\302\"\207" vconcat vector [throw found] 5 "\n\n(fn K B)"] 9 (#$ . 15295)])
#@75 Setup key mappings of current terminal to turn a tty's ESC into `escape'.
(defalias 'viper-catch-tty-ESC #[0 "\301\302 !\303>\205 \304 \305\306\307\310\311BBB#\262\207" [input-decode-map terminal-live-p frame-terminal (t pc) viper-uncatch-tty-ESC define-key [27] menu-item "" (:filter viper--tty-ESC-filter)] 8 (#$ . 15746)])
#@40 Don't hack ESC into `escape' any more.
(defalias 'viper-uncatch-tty-ESC #[0 "\301\302\"\211\242\303=\203 \3048\305=\203 \306\307\3108\211\262#\210\211\207" [input-decode-map viper--lookup-key 27 menu-item 4 viper--tty-ESC-filter define-key [27] 2] 6 (#$ . 16082)])
#@15
(fn ENABLE)
(defalias 'viper-setup-ESC-to-escape #[257 "\211\203\f \300\301\302\"\210\202 \303\301\302\"\210\304\305 \211\205X \211@\306!\211>\204P \211B\262\307 p\310\311\312\313\314\"\315\"\316$\216\317\320\"\210\203J \302 \210\202M \321 \210)\266\210A\266\202\202 \262\207" [add-hook tty-setup-hook viper-catch-tty-ESC remove-hook nil frame-list frame-terminal selected-frame make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" vconcat vector [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord viper-uncatch-tty-ESC] 14 (#$ . 16360)])
(defalias 'viper-set-hooks #[0 "\300\301!\302=\203
\303\301\304\"\210\305\306!\210\307\310\311\"\210\307\312\313\"\210\307\314\304\"\210\307\315\316\"\210\307\317\320\"\210\321\322\323\324#\210\321\325\323\324#\210\321\326\327\316#\210\321\330\331\332#\210\321\333\323\334#\210\335\336!\203` \337\340!\203` \336\340\341\342#\210\336\340\343\344#\210\307\345\346\"\210\307\347\346\"\210\307\350\351\"\210\352\353\354\"\210\352\353\355\"\210\352\353\356\"\210\352\353\357\"\210\352\353\360\"\210\352\353\361\"\210\352\353\362\"\210\363 \210\321\364\323\316#\210\321\365\323\366#\210\367\370\371\"\210\321\372\331\373#\207" [default-value major-mode fundamental-mode set-default viper-mode viper-setup-ESC-to-escape t add-hook change-major-mode-hook viper-major-mode-change-sentinel find-file-hook set-viper-state-in-major-mode text-mode-hook emerge-startup-hook viper-change-state-to-emacs window-setup-hook #[0 "\301\302 \300\303 BC\"\210\303 \211\207" [viper-vi-state-cursor-color modify-frame-parameters selected-frame viper-get-cursor-color] 4] viper--advice-add vc-diff :after viper-change-state-to-vi emerge-quit read-passwd-1 :before self-insert-command :around #[385 "\301=\203 \302\303!\203 \304\305!\207\306\"\207" [viper-current-state vi-state called-interactively-p interactive beep 1 apply] 5 "\n\n(fn ORIG-FUN &rest ARGS)"] set-cursor-color #[257 "\301\302 \300BC\"\210\211\211\207" [viper-vi-state-cursor-color modify-frame-parameters selected-frame] 5 "Change cursor color in VI state.\n\n(fn COLOR-NAME)"] 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 #[0 "\301\211\207" [viper-auto-indent nil] 2] viper-set-emacs-state-searchstyle-macros nil dired-mode tar-mode mh-folder-mode gnus-group-mode gnus-summary-mode Info-mode Buffer-menu-mode viper-apply-major-mode-modifiers rmail-cease-edit iso-accents-mode #[385 "\304=\203 \203 \305!\306V\202 ?\202 \n\304=\203, \307\310\302!\205* \211)\210\311>\205> \312\313 \203< \314\202= \315\"\207" [viper-current-state viper-automatic-iso-accents iso-accents-mode arg vi-state prefix-numeric-value 0 nil boundp (vi-state insert-state replace-state) message "Viper ISO accents mode: %s" "on" "off"] 5 "Set viper-automatic-iso-accents to iso-accents-mode.\n\n(fn ARG &rest _)"] eval-after-load "mule-cmds" #[0 "\300\301\302\303#\210\300\304\305\303#\207" [add-hook input-method-activate-hook viper-activate-input-method-action t input-method-deactivate-hook viper-deactivate-input-method-action] 4] toggle-input-method #[385 "\203
\302=\203
\303 \207\304\"\207" [viper-special-input-method viper-current-state vi-state deactivate-input-method apply] 5 "Adjust input-method toggling in vi-state.\n\n(fn ORIG-FUN &rest ARGS)"]] 4])
(defalias 'viper-non-hook-settings #[0 "\305\306\211\307\310\f>\204 \311\312\fA\"\313\314\315\316#\210\313\317\320\321#\210\313\322\320\323#\210\324 \2050 \313\325\326\327#\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) viper--advice-add read-file-name :around #[385 "\301\302\"\303\")\207" [viper-minibuffer-exit-hook append (viper-minibuffer-trim-tail viper-file-add-suffix) apply] 5 "Tell `exit-minibuffer' to run `viper-file-add-suffix' as a hook.\n\n(fn ORIG-FUN &rest ARGS)"] start-kbd-macro :after #[128 "\303\304\305#\210\303 \304\305#\210\303\n\304\305#\207" [viper-vi-intercept-map viper-insert-intercept-map viper-emacs-intercept-map define-key ")" nil] 5 "Remove Viper's intercepting bindings for C-x ).\nThis may be needed if the previous `:map' command terminated abnormally.\n\n(fn &rest _)"] add-minor-mode #[128 "\301 \210\302\303!\205\f \304\305!?\205 \306\300\"\207" [minor-mode-map-alist viper-normalize-minor-mode-map-alist fboundp add-to-ordered-list boundp emulation-mode-map-alists set-default] 4 "Run viper-normalize-minor-mode-map-alist after adding a minor mode.\n\n(fn &rest _)"] viper-window-display-p handle-switch-frame :before #[128 "\303 \304\303 \211)\207" [frame last-command viper-current-frame-saved selected-frame handle-switch-frame] 3 "Remember the selected frame before the switch-frame event.\n\n(fn &rest _)"]] 5])
(byte-code "\306=\203f \204f \n\204f \307 \310\311\312\313\314!\315\"\316$\216 r\317\320!q\210p\321 \210\322\211\323\211 \323 !\324 \210\325\326!\210+\211 \"\327\330!\210\331!\210)\266\332\333!\203W \323\202Y \322\334\335!\210\336\320!\210)\210\202n \323=\204n \322\322\207" [viper-mode this-command last-command default-directory buffer-read-only buffer-file-name ask current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 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." internal-temp-output-buffer-show y-or-n-p "Viperize? " message "" kill-buffer buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output] 8)
(defalias 'viper-load-custom-file #[0 "\302!\205 ?\205 \303!\207" [viper-custom-file-name noninteractive file-exists-p load] 2])
(byte-code "\204' \306\307\306!CB\301 CB\302\nCB\303 CB\310\307\310!CB\304\fCB\305
CB\257@\203V \311 \210\312\313A\314\"\315\316\317$\210\312\313A\320\"\315\321\317$\210\322\323!\210\324\323!\210\325 \210\326 \210\327 \210B\204\214 \330CB\331CB\332CB\333CB\334 CB\335 CB\336 CB\337 CB\340 CB\257 B\341CD\342#\210\341ED\342#\210\341CF\343#\210\341GF\344#\210@\203\231\345\346\347\"\210\345\350\351\"\210H\203\303 \352 \210\353\354!\210\355\356!\210\355\357!\210\355\360!\210\355\361!\210\355\362!\210\355\363!\210\355\364!\210\355\365!\210\355\366!\210\355\367!\210\355\370!\210\355\371!\210\355\372!\210\355\373!\210\354\374\317\"\210\354\375\317\"\210\354\376\317\"\210\354\377\317\"\210\354\201J \317\"\210I\201M =\2032\317\211<=\317\211>?\317J\204IK\201N W\203NK\201O V\203N\201P \210I\201M =\203x\201Q \210\201R \201S !\203p\201T \201U !\204x\354\201L L\"\210\201V !\203\206\201@ \210\201W \201X \201Y \201Z B\201[ \323$\210\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 major-mode default-value 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 define-key viper-intercept-ESC-key viper-toggle-key-action viper-change-state-to-vi 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" viper-emacs-intercept-minor-mode viper-emacs-local-user-minor-mode viper-emacs-global-user-minor-mode viper-emacs-kbd-minor-mode viper-mode viper-repeat-from-history-key viper-saved-user-settings viper-vi-intercept-map viper-ESC-key viper-insert-intercept-map viper-toggle-key viper-emacs-intercept-map viper-buffer-search-char viper-current-state viper-emacs-state-modifier-minor-mode viper-expert-level minor-mode-map-alist 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 advice--add-function :after #[0 "\300\301!\207" [default-value initial-major-mode] 2] #[257 "\300\301\"\207" [set-default initial-major-mode] 4 "\n\n(fn GV--VAL)"] set-viper-state-in-major-mode run-hooks viper-load-hook provide viper] 11)
Mini Shell