;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310#\210\311\306\307\312#\210\305\313\314\310#\210\311\313\314\312#\210\305\315\307\310#\210\311\315\307\312#\210\305\316\317\310#\210\311\316\317\312#\210\305\320\321\310#\210\311\320\321\312#\210\305\322\323\310#\210\311\322\323\312#\210\305\324\325\310#\210\311\324\325\312#\210\305\326\327\310#\210\311\326\327\312#\210\305\330\331\310#\210\311\330\331\312#\210\305\332\333\310#\210\311\332\333\312#\210\305\334\335\310#\210\311\334\335\312#\210\305\336\337\310#\210\311\336\337\312#\210\305\340\341\310#\210\311\340\341\312#\210\305\342\343\310#\210\311\342\343\312#\207" [require seq cl-lib ring viper-init defalias viper-overlay-p overlayp nil make-obsolete "27.1" viper-make-overlay make-overlay viper-overlay-live-p viper-move-overlay move-overlay viper-overlay-start overlay-start viper-overlay-end overlay-end viper-overlay-get overlay-get viper-overlay-put overlay-put viper-read-event read-event viper-characterp integerp viper-int-to-char identity viper-get-face facep viper-color-defined-p x-color-defined-p viper-iconify iconify-or-deiconify-frame] 4)
#@18 

(fn CHAR LIST)
(defalias 'viper-memq-char #[514 "
\250\203
\300Y\203

>\207

>\207" [0] 4 (#$ . 1229)])
#@25 

(fn CHAR-OR-INT CHAR)
(defalias 'viper-char-equal #[514 "
\250\203
\300Y\203

U\207

=\207" [0] 4 (#$ . 1345)])
#@19 

(fn CHAR CHAR1)
(defalias 'viper= #[514 "

=\203\300\207\301!\203\301
!\203

U\207\302\207" [t characterp nil] 4 (#$ . 1469)])
(defalias 'viper-color-display-p #[0 "\300 \207" [x-display-color-p] 1])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-color-display-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@24 

(fn &optional FRAME)
(defalias 'viper-get-cursor-color #[256 "\300\301 \236A\207" [cursor-color frame-parameters] 3 (#$ . 1831)])
#@125 Return the value of VARIABLE local to the current frame, if there is one.
Otherwise return the normal value.

(fn VARIABLE)
(defalias 'viper-frame-value '(macro . #[257 "\300\301\302DD\303\304\305\302D\306BBDC\300\304\307FEF\207" [if local-variable-p quote let fp assoc ((frame-parameters)) (cdr fp)] 10 (#$ . 1970)]))
#@34 

(fn NEW-COLOR &optional FRAME)
(defalias 'viper-change-cursor-color #[513 "\300 \205)\301 \205)
;\205)\302!\205)
\303 \230?\205)\304
\206$\305 \306BC\"\207" [viper-window-display-p x-display-color-p x-color-defined-p viper-get-cursor-color modify-frame-parameters selected-frame cursor-color] 6 (#$ . 2301)])
#@24 

(fn &optional FRAME)
(defalias 'viper-set-cursor-color-according-to-state #[256 "\305=\203$\306\307\301!\203	\202!\301\310 \236\211\203\211A\202	\262
\"\207\311=\203e\307\302!\2034\n\202D\302\310 \236\211\203A\211A\202B\n\262
\203e\306\307\302!\203R\n\202b\302\310 \236\211\203_\211A\202`\n\262
\"\207\312=\203\211\306\307\303!\203v\202\206\303\310 \236\211\203\203\211A\202\204\262
\"\207\306\307\304!\203\224\f\202\244\304\310 \236\211\203\241\211A\202\242\f\262
\"\207" [viper-current-state viper-replace-overlay-cursor-color viper-emacs-state-cursor-color viper-insert-state-cursor-color viper-vi-state-cursor-color replace-state viper-change-cursor-color local-variable-p frame-parameters emacs-state insert-state] 4 (#$ . 2626)])
#@26 

(fn BEFORE-WHICH-MODE)
(defalias 'viper-save-cursor-color #[257 "\301 \205O\302 \205O\303 \211;\205M\304
!\205M\211\305\300!\203\"\2022\300\306 \236\211\203/\211A\2020\262
\230?\205M\307\310 \311\267\202H\312\202I\313\202I\314BC\"\262
\207" [viper-replace-overlay-cursor-color viper-window-display-p x-display-color-p viper-get-cursor-color x-color-defined-p local-variable-p frame-parameters modify-frame-parameters selected-frame #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (before-replace-mode 64 before-emacs-mode 68)) viper-saved-cursor-color-in-replace-mode viper-saved-cursor-color-in-emacs-mode viper-saved-cursor-color-in-insert-mode] 6 (#$ . 3406)])
(defalias 'viper-get-saved-cursor-color-in-replace-mode #[0 "\303\304 \305\"\206C\306=\203+\307\301!\203	\202(\301\310 \236\211\203%\211A\202&	\262
\206C\307\302!\2033\n\207\302\310 \236\211\203@\211A\202A\n\262
\207" [viper-current-state viper-emacs-state-cursor-color viper-vi-state-cursor-color frame-parameter selected-frame viper-saved-cursor-color-in-replace-mode emacs-mode local-variable-p frame-parameters] 3])
(defalias 'viper-get-saved-cursor-color-in-insert-mode #[0 "\303\304 \305\"\206C\306=\203+\307\301!\203	\202(\301\310 \236\211\203%\211A\202&	\262
\206C\307\302!\2033\n\207\302\310 \236\211\203@\211A\202A\n\262
\207" [viper-current-state viper-emacs-state-cursor-color viper-vi-state-cursor-color frame-parameter selected-frame viper-saved-cursor-color-in-insert-mode emacs-mode local-variable-p frame-parameters] 3])
(defalias 'viper-get-saved-cursor-color-in-emacs-mode #[0 "\301\302 \303\"\206 \304\300!\203\207\300\305 \236\211\203\211A\202\262
\207" [viper-vi-state-cursor-color frame-parameter selected-frame viper-saved-cursor-color-in-emacs-mode local-variable-p frame-parameters] 3])
#@25 

(fn AFTER-WHICH-MODE)
(defalias 'viper-restore-cursor-color #[257 "\301!\205\302
\303\267\202\304 \202\305 \202\306 !\207" [viper-replace-overlay overlayp viper-change-cursor-color #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (after-replace-mode 13 after-emacs-mode 18)) viper-get-saved-cursor-color-in-replace-mode viper-get-saved-cursor-color-in-emacs-mode viper-get-saved-cursor-color-in-insert-mode] 4 (#$ . 5277)])
#@47 

(fn OP MAJOR MINOR &optional TYPE-OF-EMACS)
(defalias 'viper-check-version #[1027 "\302\301!\203C\302\300!\203C\211\303\267\202\304\207\305\267\202>U\205B	U\207	\"\2041	U\205B	U\203<\"\207\306\207\307\310\"\207\311\267\202M\304\207\306\207\304\207" [emacs-minor-version emacs-major-version boundp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (xemacs 18 emacs 20)) nil #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (= 26 > 36 >= 36 < 36 <= 36)) t error "%S: Invalid op in viper-check-version" #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (= 73 > 73 >= 73 < 75 <= 75))] 7 (#$ . 5754)])
(make-obsolete 'viper-check-version nil "28.1")
#@13 

(fn WIND)
(defalias 'viper-get-visible-buffer-window #[257 "\300
\301\"\207" [get-buffer-window visible] 4 (#$ . 6536)])
#@12 

(fn POS)
(defalias 'viper-line-pos #[257 "`\300\301\267\202%\302 \210\202%\300\210\202%\303\304!\303\305!\\\306\\b\210\202%\307 \210`\262

b\210\207" [nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (start 8 end 14 mid 20 indent 34)) beginning-of-line viper-line-pos start end 2 back-to-indentation] 6 (#$ . 6665)])
#@40 

(fn BEG END &optional PRESERVE-SIGN)
(defalias 'viper-chars-in-region #[770 "\300Z!W\203
\203\211[\207\207" [abs] 6 (#$ . 7036)])
#@20 

(fn POS BEG END)
(defalias 'viper-pos-within-region #[771 "^Y\205


]Y\207" [] 6 (#$ . 7182)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-pos-within-region speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@33 

(fn VAR POS &optional BUFFER)
(defalias 'viper-move-marker-locally #[770 "\300J!\204\f\301 L\210J\223\207" [markerp make-marker] 6 (#$ . 7439)])
#@19 

(fn CONDITIONS)
(defalias 'viper-message-conditions #[257 "\211@
A\211\204\300\301\"\210\202\300\302\303\304\305##\210\306\307!\207" [message "%s" "%s: %s" mapconcat prin1-to-string " " beep 1] 10 (#$ . 7598)])
#@12 

(fn LST)
(defalias 'viper-list-to-alist #[257 "\300
\203
@C
B\262

A\262\202
\207" [nil] 4 (#$ . 7824)])
#@13 

(fn ALST)
(defalias 'viper-alist-to-list #[257 "\300
\203
@@
B\262

A\262\202
\207" [nil] 4 (#$ . 7941)])
#@20 

(fn REGEXP ALST)
(defalias 'viper-filter-alist #[514 "\300
\211@\203\301@@\"\203\211@B\262\211A\262
\202
\207" [nil string-match] 7 (#$ . 8059) "s x"])
#@19 

(fn REGEXP LST)
(defalias 'viper-filter-list #[514 "\300
\211@\203\301@\"\203\211@B\262\211A\262
\202
\207" [nil string-match] 7 (#$ . 8229) "s x"])
#@18 

(fn LIS1 LIS2)
(defalias 'viper-append-filter-alist #[514 "
\300
\203\"\301@@\"\211\262\203\302
\"\262\202
A\262\202\303\"\207" [nil assoc delq append] 7 (#$ . 8396)])
#@17 

(fn FILESPEC)
(defalias 'viper-glob-unix-files #[257 "\203	\202	\305\n\206\306\203\307\310\"\202\307\311\"\306r\312\f!q\210\313 \210\203:\314\306\315\306\316&\202D\314\306\315\306\316&\262
eb\210\211\317=\204r\212\320\306w\210\321\322!\203^\323\324!\210\325\326;\203i\202j\327`\330\331!{#\210)eb\210\332\333!)\207" [ex-unix-type-shell shell-file-name ex-unix-type-shell-options viper-ms-style-os-p viper-ex-tmp-buf-name "sh" nil format "\"ls -1 -d %s\"" "ls -1 -d %s" get-buffer-create erase-buffer call-process t "-c" 0 " 	\n" looking-at "ls:" viper-forward-Word 1 error "%s: %s" "shell" viper-line-pos end viper-get-filenames-from-buffer one-per-line] 13 (#$ . 8587)])
#@31 

(fn &optional ONE-PER-LINE)
(defalias 'viper-get-filenames-from-buffer #[256 "\211\203\300\202	\301\302\211\211\302w\210m\204[\303\304!\203%\305\262
\306\307\302\310#\202>\303\311!\2036\312\262
\306\313\302\310#\202>\306\314\315Q\302\310#\203H\316\224\316\225{\262\211\203O\317u\210\301\302w\210
B\262\202\207" ["	\n" " 	\n" nil looking-at "\"" 34 re-search-forward "[^\"]+" t "'" 39 "[^']+" "[^" "]+" 0 1] 9 (#$ . 9298)])
#@14 

(fn WCARD)
(defalias 'viper-wildcard-to-regexp #[257 "r\301!q\210\302 \210\211c\210eb\210m\204X\303\304w\210`f\305=\203'\306c\210\307u\210\202`f\310=\2037\311c\210\307u\210\202`f\312=\203G\311c\210\307u\210\202`f\313=\203\314\307!\210\306c\210\202\315 )\207" [viper-ex-tmp-buf-name get-buffer-create erase-buffer "^*?.\\\\" nil 42 "." 1 46 "\\" 92 63 delete-char buffer-string] 3 (#$ . 9747)])
#@17 

(fn FILESPEC)
(defalias 'viper-glob-mswindows-files #[257 "\302\303\211r\304	!q\210\305 \210c\210eb\210\306 \262
\203<\307\310@!\206%\311\302\312\313\314@!!\315Q#
B\262

A\262\202\316\317\320\"!*\207" [case-fold-search viper-ex-tmp-buf-name t nil get-buffer-create erase-buffer viper-get-filenames-from-buffer directory-files file-name-directory "" "^" viper-wildcard-to-regexp file-name-nondirectory "$" reverse apply append] 11 (#$ . 10164)])
#@17 

(fn RING DIR)
(defalias 'viper-ring-rotate1 #[514 "\300!\2056\301!\302V\2056

\302V\203\303@\301!\"\2021
\302W\203/\304@\301!\"\2021@\240\210\305!\207" [ring-p ring-length 0 ring-plus1 ring-minus1 viper-current-ring-item] 7 (#$ . 10630)])
#@17 

(fn RING DIR)
(defalias 'viper-special-ring-rotate1 #[514 "\301>\203\302\"\207\302\303\"\207" [viper-intermediate-command (repeating-display-destructive-command repeating-insertion-from-ring) viper-ring-rotate1 0] 5 (#$ . 10892)])
#@25 

(fn RING &optional N)
(defalias 'viper-current-ring-item #[513 "\211\206\300\262
\301!\205#\302!\300V\205#
AA\303@SZ\302!\"H\207" [0 ring-p ring-length mod] 7 (#$ . 11137)])
#@22 

(fn ITEM RING-VAR)
(defalias 'viper-push-onto-ring #[514 "\300
J!\204\211\301\302\303\304\"!J!L\210
?\206A
;\203#
\305\230\206A
\306J!\232\206A\211\307=\203<\310\311\312\313 !\"\206A\314
J\"\207" [ring-p make-ring intern format "%S-size" "" viper-current-ring-item viper-command-ring string-match "\\([0-9]*\\|^[ 	]*$\\|escape\\)" viper-array-to-string this-command-keys viper-ring-insert] 8 (#$ . 11328)])
#@13 

(fn RING)
(defalias 'viper-cleanup-ring #[257 "\300
!\301W\206\302
!?\206\302
!\302\303\"\232\205\304
!\207" [ring-length 2 viper-current-ring-item 1 viper-ring-pop] 5 (#$ . 11755)])
#@13 

(fn RING)
(defalias 'viper-ring-pop #[257 "\300
!
AA\211G@\301\302\"]
H
TW\203+THI\210
T\262\202\303I\210\301\302\"]\262SU\203D\301\262\240\210A\301S]\240\210\207" [ring-length 0 ring-minus1 nil] 11 (#$ . 11953)])
#@18 

(fn RING ITEM)
(defalias 'viper-ring-insert #[514 "\300!AA\211G@\211\301U\203\202\211\211U\203.I\210\302\"\240\210\202bAT\240\210\302T\"\240\210\211Y\203\\\301V\203\\
SHI\210\211S\262
\202@I\210\207" [ring-length 0 ring-plus1] 12 (#$ . 12208)])
#@58 

(fn STRING MAX-LEN PRE-STRING POST-STRING ABBREV-SIGN)
(defalias 'viper-abbreviate-string #[1285 "\300;\205\301G^O\262
\211\204\302\207GV\203'\303\304%\207\303\305$\207" [nil 0 "" format "%s%s%s%s" "%s%s%s"] 12 (#$ . 12506)])
(defalias 'viper-over-whitespace-line #[0 "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "^[ 	]*$"] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-over-whitespace-line speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@45 

(fn VAR MESSAGE FILE &optional ERASE-MSG)
(defalias 'viper-save-setting #[1027 "\300!\301!\205J\302\303\"\304\305!!\306\307\206\310\"\210r\211q\210eb\210\311\312\313#\203K\314\225S\315!\210\314\224
|\210\314\224b\210\302\316#c\266\202\\db\210n\204U\317c\210\302\320#c\210\321 \210)\322
!\210\205o\323\324!\210\306\310!\207" [symbol-name boundp format "^[^;]*%s[ 	\n]*[a-zA-Z0-9---_']*[ 	\n)]" find-file-noselect substitute-in-file-name message "%s" "" re-search-forward nil t 0 search-backward "%s  '%S" "\n" "(setq %s '%S)\n" save-buffer kill-buffer sit-for 2] 13 (#$ . 13031)])
#@38 

(fn STRING FILE &optional PATTERN)
(defalias 'viper-save-string-in-file #[770 "\301\302!!r\211q\210\303eb\210
\203\304!\210db\210\203 c\210\305 \210*\306
!\207" [inhibit-read-only find-file-noselect substitute-in-file-name t delete-matching-lines save-buffer kill-buffer] 6 (#$ . 13645)])
#@13 

(fn FILE)
(defalias 'viper-file-checked-in-p #[257 "\300\301!\205#\302
!\303>?\205#\304\305!\205#\305
!\306>?\205#\305
!;?\207" [featurep vc-hooks vc-backend (nil CVS) fboundp vc-state (edited needs-merge)] 3 (#$ . 13950)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-file-checked-in-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn BUF)
(defalias 'viper-maybe-checkout #[257 "\300\301!!\302\303!
\304\305!\205,\306
!\307>?\205,\310\311!\205,\311
!\312>?\205,\311
!;?\262
\205H\313\314!\210\315\316\317\320!\"!\205Hrq\210\321
!)\207" [expand-file-name buffer-file-name key-binding "" featurep vc-hooks vc-backend (nil CVS) fboundp vc-state (edited needs-merge) beep 1 y-or-n-p format "File %s is checked in.  Check it out? " abbreviate-file-name command-execute] 8 (#$ . 14335)])
#@16 

(fn BEG END)
(defalias 'viper-put-on-search-overlay #[514 "\303!\203\304#\210\202\305p#\306\307	#\210\306\310\n#\207" [viper-search-overlay viper-search-overlay-priority viper-search-face overlayp move-overlay make-overlay overlay-put priority face] 6 (#$ . 14805)])
(defalias 'viper-flash-search-pattern #[0 "\301 \205\302\303\224\303\225\"\210\304\305!\210\306\307\310#\207" [viper-search-overlay viper-has-face-support-p viper-put-on-search-overlay 0 sit-for 2 overlay-put face nil] 4])
(defalias 'viper-hide-search-overlay #[0 "\302!\204\303eep#\304\305	#\210\304\306\307#\207" [viper-search-overlay viper-search-overlay-priority overlayp make-overlay overlay-put priority face nil] 4])
#@16 

(fn BEG END)
(defalias 'viper-move-replace-overlay #[514 "\301#\207" [viper-replace-overlay move-overlay] 6 (#$ . 15526)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-move-replace-overlay speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@16 

(fn BEG END)
(defalias 'viper-set-replace-overlay #[514 "\304!\203

\305#\266\202$\306p#\307\310\311#\210\307\312	#\210\313 \203/\307\314\n#\210\315\316!\210\317\320\303!\203>\202N\303\321 \236\211\203K\211A\202L\262
!\207" [viper-replace-overlay viper-replace-overlay-priority viper-replace-overlay-face viper-replace-overlay-cursor-color overlayp move-overlay make-overlay overlay-put evaporate nil priority viper-has-face-support-p face viper-save-cursor-color before-replace-mode viper-change-cursor-color local-variable-p frame-parameters] 8 (#$ . 15812)])
#@33 

(fn BEFORE-GLYPH AFTER-GLYPH)
(defalias 'viper-set-replace-overlay-glyphs #[514 "\302!\204\303ee\"\210\304 \203	\203\305\306#\207\305\307#\207" [viper-replace-overlay viper-use-replace-region-delimiters overlayp viper-set-replace-overlay viper-has-face-support-p overlay-put before-string after-string] 6 (#$ . 16403)])
(defalias 'viper-hide-replace-overlay #[0 "\301\302\211\"\210\303\304!\210\303\305!\210\306 \205\307\310\302#\207" [viper-replace-overlay viper-set-replace-overlay-glyphs nil viper-restore-cursor-color after-replace-mode after-insert-mode viper-has-face-support-p overlay-put face] 4])
(defalias 'viper-replace-start #[0 "\301!\207" [viper-replace-overlay overlay-start] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-replace-start speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'viper-replace-end #[0 "\301!\207" [viper-replace-overlay overlay-end] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-replace-end speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'viper-set-minibuffer-overlay #[0 "\303 \210\304 \205\305\306	#\210\305\307\n#\210\305\310\311#\207" [viper-minibuffer-overlay viper-minibuffer-current-face viper-minibuffer-overlay-priority viper-check-minibuffer-overlay viper-has-face-support-p overlay-put face priority evaporate nil] 4])
(defalias 'viper-check-minibuffer-overlay #[0 "\301!\203\302\303 \304 T#\207\305\303 \304 Tp\306\307%\211\207" [viper-minibuffer-overlay overlayp move-overlay minibuffer-prompt-end buffer-size make-overlay nil rear-advance] 6])
(defalias 'viper-is-in-minibuffer #[0 "\300 \301\302\"\216\303\304\305 \")\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\*Minibuf-" buffer-name] 4])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312#\210\313\310\311\314#\207" [function-put viper-is-in-minibuffer speed -1 put byte-optimizer byte-compile-inline-expand defalias viper-abbreviate-file-name abbreviate-file-name nil make-obsolete "27.1"] 5)
#@29 

(fn VAL &optional NODISP)
(defalias 'viper-sit-for-short #[513 "\300\301\245\"\207" [sit-for 1000.0] 5 (#$ . 18515)])
(byte-code "\300\301\302\303#\210\304\301\305\306#\307\301\310\311#\207" [make-obsolete viper-sit-for-short nil "28.1" function-put speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn EVENT)
(defalias 'viper-ESC-event-p #[257 "\300\301!\211\235\207" [(27 (control \[) escape) viper-event-key] 5 (#$ . 18834)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-ESC-event-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@15 

(fn MARKER)
(defalias 'viper-valid-marker #[257 "\300
!\205\"\301
!\205\"\301
!\302!r
q\210\211dX\205e
X)\266\202\207" [markerp marker-buffer marker-position] 5 (#$ . 19117)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias viper-mark-marker mark-marker nil make-obsolete "27.1"] 4)
#@58 Where viper saves mark.  This mark is resurrected by m^.
(defvar viper-saved-mark nil (#$ . 19431))
(defalias 'viper-set-mark-if-necessary #[0 "\302\303 \"\304\305!\210`\211\207" [mark-ring viper-saved-mark delete mark-marker set-mark-command nil] 3])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312#\210\313\310\311\314#\210\307\315\316\312#\210\313\315\316\314#\207" [function-put viper-set-mark-if-necessary speed -1 put byte-optimizer byte-compile-inline-expand defalias viper-deactivate-mark deactivate-mark nil make-obsolete "27.1" viper-leave-region-active ignore] 5)
#@27 

(fn REG &optional TYPE)
(defalias 'viper-valid-register #[513 "\211\204\300\262
\301
>\203\302X\203
\303X\206:\304
>\203+\305X\203+
\306X\206:\307
>\205:\310X\205:
\311X\207" [(letter Letter digit) letter 97 122 digit 49 57 Letter 65 90] 4 (#$ . 20034)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias viper-copy-event identity nil make-obsolete "27.1"] 4)
(defalias 'viper-fast-keysequence-p #[0 "\302\303\304!\211\235\266\203\203\305 \202	\306\245\307\"?\207" [last-input-event viper-fast-keyseq-timeout sit-for (27 (control \[) escape) viper-event-key viper-ESC-keyseq-timeout 1000.0 t] 6])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias viper-read-event-convert-to-char read-event nil make-obsolete "27.1"] 4)
#@14 

(fn EVENT)
(defalias 'viper-event-key #[257 "\211\203\n\300
!\204\301\302\"\210\303
!\304\305!\203/\306X\203/\307X\203/\304\262\211\262\202\225\305!\203N\310W\203N\311X\203N\312\262\310ZS\211\262\202\225
\204_\313=\203_\314\211\262\202\225
\204p\315=\203p\316\211\262\202\225
\204\201\317=\203\201\310\211\262\202\225
\204\222\320=\203\222\321\211\262\202\225\322!\262
\305
!\203\261\323
\310\"\203\252\324\325D\202\257\326\327!!\262

\203\273\330C\"\207\207" [eventp error "viper-event-key: Wrong type argument, eventp, %S" event-modifiers nil characterp 65 90 127 255 (meta) return 13 space 32 delete backspace 8 event-basic-type viper= control \? intern char-to-string append] 6 (#$ . 20816)])
(defalias 'viper-last-command-char #[0 "\207" [last-command-event] 1])
(make-obsolete 'viper-last-command-char nil "28.1")
#@12 

(fn KEY)
(defalias 'viper-key-to-emacs-key #[257 "\300\211\211\211\211\2119\203;\301!\262G\302U\203\303!\207\304 \204+\305\230\203+\306\207\304 \2048\307\230\2038\310\207\207<\205\212\311\312	GS#\262\211
GS\234\262
\262\301!\262
\211G\302U\262\313\314\"\262\203}\315\316\317\320\321#\322R!@\211\262\207\323\317\320\322#\322Q!\211\262\207" [nil symbol-name 1 string-to-char viper-window-display-p "return" 13 "escape" 27 cl-subseq 0 mapcar #[257 "\300
!\301\302O\226\207" [symbol-name 0 1] 4 "\n\n(fn ELT)"] read-from-string "?\\" mapconcat identity "-\\" "-" intern] 13 (#$ . 21697)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias viper-eventify-list-xemacs ignore nil make-obsolete "27.1"] 4)
#@12 

(fn ARG)
(defalias 'viper-set-unread-command-events #[257 "\301
!\203\211C\202$\211<\203\211\202$\302
!\203 \303
!\202$\304\305\"\301\306!\2040\307\306\"\262
\310
\"\262
\211\207" [unread-command-events eventp sequencep listify-key-sequence error "viper-set-unread-command-events: Invalid argument, %S" nil delq append] 5 (#$ . 22461)])
#@12 

(fn VEC)
(defalias 'viper-event-vector-p #[257 "\300
!\205\n\301\302\"\207" [vectorp seq-every-p #[257 "\300
!\205\301\207" [eventp t] 3 "\n\n(fn ELT)"]] 4 (#$ . 22819)])
#@12 

(fn VEC)
(defalias 'viper-char-symbol-sequence-p #[257 "\300
!\205\n\301\302\"\207" [sequencep seq-every-p #[257 "\2119\205\300
!G\301U\207" [symbol-name 1] 3 "\n\n(fn ELT)"]] 4 (#$ . 23002)])
#@14 

(fn ARRAY)
(defalias 'viper-char-array-p #[257 "\300\301\"\207" [seq-every-p characterp] 4 (#$ . 23207)])
#@18 

(fn EVENT-SEQ)
(defalias 'viper-array-to-string #[257 "\300\211;\203	\207\301!\2039\302\303\"\262\304!\203!\305\306\307#\207\310\302\311\"\211\262!\2033\305\312\307#\207\313\314!!\207\304!\203E\305\306\307#\207\315!\203]\310\302\311\"\211\262!\203]\305\312\307#\207\313!\207" [nil viper-event-vector-p mapcar viper-event-key viper-char-symbol-sequence-p mapconcat symbol-name "" viper-char-array-p viper-key-to-character char-to-string prin1-to-string vconcat vectorp] 7 (#$ . 23322)])
#@15 

(fn EVENTS)
(defalias 'viper-key-press-events-to-chars #[257 "\300\301\302#\207" [mapconcat char-to-string ""] 5 (#$ . 23841)])
(defalias 'viper-read-char-exclusive #[0 "\301\302\211\204\3031\304 \211\2620\210\202\210\305 \210\202)\207" [echo-keystrokes nil 1 (error) read-char read-event] 3])
#@12 

(fn KEY)
(defalias 'viper-key-to-character #[257 "\211\300\267\202\301\207\302\207\303\207\304\207\2119\203\"\305
!G\306U\203\"\307\305!!\207\211<\203L\211@\310=\203L\305
A@!\203L\305
A@!G\306U\203L\311\312\313\305A@!\"!\207\207" [#s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (space 6 delete 8 return 10 backspace 12)) 32 127 13 8 symbol-name 1 string-to-char control read format "?\\C-%s"] 6 (#$ . 24154)])
#@199 Set up the current buffer as a master buffer.
Arguments become related buffers.  This function should normally be used in
the `Local variables' section of a file.

(fn &rest OTHER-FILES-OR-BUFFERS)
(defalias 'viper-setup-master-buffer #[128 "\301
GT!\302\303\"\210\304\305 \"\207" [viper-related-files-and-buffers-ring make-ring mapc #[257 "\301\"\207" [viper-related-files-and-buffers-ring viper-ring-insert] 4 "\n\n(fn ELT)"] viper-ring-insert buffer-name] 4 (#$ . 24621)])
(defconst viper-non-word-characters-reformed-vi "!@#$%^&*()\\-+=|\\~`{}[];:'\",<.>/?")
(defvar viper-non-word-characters nil nil)
(make-variable-buffer-local 'viper-non-word-characters)
#@192 String of syntax classes characterizing Viper's alphanumeric symbols.
In addition, the symbol `_' may be considered alphanumeric if
`viper-syntax-preference' is `strict-vi' or `reformed-vi'.
(defvar viper-ALPHA-char-class "w" (#$ . 25295))
(make-variable-buffer-local 'viper-ALPHA-char-class)
#@77 Regexp matching the set of alphanumeric characters acceptable to strict Vi.
(defconst viper-strict-ALPHA-chars "a-zA-Z0-9_" (#$ . 25594))
#@77 Regexp matching the set of alphanumeric characters acceptable to strict Vi.
(defconst viper-strict-SEP-chars " 	\n" (#$ . 25738))
#@77 Regexp matching the set of alphanumeric characters acceptable to strict Vi.
(defconst viper-strict-SEP-chars-sans-newline " 	" (#$ . 25874))
#@94 String of syntax classes for Vi separators.
Usually contains ` ', linefeed, TAB or formfeed.
(defconst viper-SEP-char-class " -" (#$ . 26021))
#@30 

(fn &optional SET-DEFAULT)
(defalias 'viper-update-syntax-classes #[256 "\304\267\202\305\202\306\202\305\307=\203!	\310\311!\312\"\262
\202\"\312\2030\313\302\"\210\313\303\"\207
\211\211\207" [viper-syntax-preference viper-non-word-characters-reformed-vi viper-ALPHA-char-class viper-non-word-characters #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (emacs 6 extended 10)) "w" "w_" reformed-vi append vconcat nil set-default] 6 (#$ . 26170)])
#@241 Set Viper syntax preference.
If called interactively or if SYMBOL is nil, sets syntax preference in current
buffer.  If called non-interactively, preferably via the customization widget,
sets the default value.

(fn &optional SYMBOL VALUE)
(defalias 'viper-set-syntax-preference #[512 "\211\204\f\301\302\303\304\305$\262
\211;\203\306
!\262
\211\307>\204!\310\311\"\210
\203-\312\300\"\210\202/\211\313 \207" [viper-syntax-preference completing-read "Viper syntax preference: " (("strict-vi") ("reformed-vi") ("extended") ("emacs")) nil require-match intern (strict-vi reformed-vi extended emacs) error "Invalid Viper syntax preference, %S" set-default viper-update-syntax-classes] 7 (#$ . 26680) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\314\301!\207" [custom-declare-variable viper-syntax-preference funcall function #[0 "\300\207" [reformed-vi] 1 ""] "Syntax type characterizing Viper's alphanumeric symbols.\nAffects movement and change commands that deal with Vi-style words.\nWorks best when set in the hooks to various major modes.\n\n`strict-vi' means Viper words are (hopefully) exactly as in Vi.\n\n`reformed-vi' means Viper words are like Emacs words (as determined using\nEmacs syntax tables, which are different for different major modes) with two\nexceptions: the symbol `_' is always part of a word and typical Vi non-word\nsymbols like `\\=`', `\\='', `:', `\"', `)', and `{' are excluded.\nThis behaves very close to `strict-vi', but also works well with non-ASCII\ncharacters from various alphabets.\n\n`extended' means Viper word constituents are symbols that are marked as being\nparts of words OR symbols in Emacs syntax tables.\nThis is most appropriate for major modes intended for editing programs.\n\n`emacs' means Viper words are the same as Emacs words as specified by Emacs\nsyntax tables.\nThis option is appropriate if you like Emacs-style words." :type (radio (const strict-vi) (const reformed-vi) (const extended) (const emacs)) :set viper-set-syntax-preference :group viper make-variable-buffer-local] 10)
#@29 

(fn &optional ADDL-CHARS)
(defalias 'viper-looking-at-alpha #[256 "\211;\204\304\262
\305=\203\211\306P\262
`f\211\205K\307=\203'\310\311	\312R!\207\313
\314\315!\316\"\262
\"\206K\313
\n\"?\205K\313
z\314\315!\316\"\262
\"\207" [viper-syntax-preference viper-strict-ALPHA-chars viper-non-word-characters viper-ALPHA-char-class "" reformed-vi "_" strict-vi looking-at "[" "]" viper-memq-char append vconcat nil] 8 (#$ . 28768)])
(defalias 'viper-looking-at-separator #[0 "`f\211\205,\303=\203\304
	\305\306!\307\"\262
\"\207\211\310=\206,\304
z\n\305\306!\307\"\262
\"\207" [viper-syntax-preference viper-strict-SEP-chars viper-SEP-char-class strict-vi viper-memq-char append vconcat nil 10] 7])
#@29 

(fn &optional ADDL-CHARS)
(defalias 'viper-looking-at-alphasep #[256 "\300 \206\301
!\207" [viper-looking-at-separator viper-looking-at-alpha] 3 (#$ . 29494)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-looking-at-alphasep speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@29 

(fn &optional ADDL-CHARS)
(defalias 'viper-skip-alpha-forward #[256 "\211;\204\303\262
\304\305\306=\203\303\202	\306=\203!\nP\202\"#\207" [viper-syntax-preference viper-ALPHA-char-class viper-strict-ALPHA-chars "" viper-skip-syntax forward strict-vi] 6 (#$ . 29815)])
#@29 

(fn &optional ADDL-CHARS)
(defalias 'viper-skip-alpha-backward #[256 "\211;\204\303\262
\304\305\306=\203\303\202	\306=\203!\nP\202\"#\207" [viper-syntax-preference viper-ALPHA-char-class viper-strict-ALPHA-chars "" viper-skip-syntax backward strict-vi] 6 (#$ . 30104)])
#@30 

(fn &optional WITHIN-LINE)
(defalias 'viper-skip-all-separators-forward #[256 "\304=\203\211\203	\305w\207\n\305w\207\306\307\206\310\205!\311\312!$\207" [viper-syntax-preference viper-strict-SEP-chars-sans-newline viper-strict-SEP-chars viper-SEP-char-class strict-vi nil viper-skip-syntax forward "\n" viper-line-pos end] 7 (#$ . 30395)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-skip-all-separators-forward speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@30 

(fn &optional WITHIN-LINE)
(defalias 'viper-skip-all-separators-backward #[256 "\304=\203\211\203	\305x\207\n\305x\207\306\307\206\310\205!\311\312!$\207" [viper-syntax-preference viper-strict-SEP-chars-sans-newline viper-strict-SEP-chars viper-SEP-char-class strict-vi nil viper-skip-syntax backward "\n" viper-line-pos start] 7 (#$ . 30914)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put viper-skip-all-separators-backward speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@18 

(fn DIRECTION)
(defalias 'viper-skip-nonseparators #[257 "\301
\302P\303\304\305=\203\306\202\307!$\207" [viper-SEP-char-class viper-skip-syntax "^" nil viper-line-pos forward end start] 8 (#$ . 31438)])
(defalias 'viper-skip-nonalphasep-forward #[0 "\306=\203
\307	\nQ\310w\207\311\312\307\fQ
\313\314!$\207" [viper-syntax-preference viper-strict-SEP-chars viper-strict-ALPHA-chars viper-ALPHA-char-class viper-SEP-char-class viper-non-word-characters strict-vi "^" nil viper-skip-syntax forward viper-line-pos end] 6])
(defalias 'viper-skip-nonalphasep-backward #[0 "\306=\203
\307	\nQ\310x\207\311\312\307\fQ
\313\314!$\207" [viper-syntax-preference viper-strict-SEP-chars viper-strict-ALPHA-chars viper-ALPHA-char-class viper-SEP-char-class viper-non-word-characters strict-vi "^" nil viper-skip-syntax backward viper-line-pos start] 6])
#@52 

(fn DIRECTION SYNTAX ADDL-CHARS &optional LIMIT)
(defalias 'viper-skip-syntax #[1027 "\301\302\303=\203\f\304\202
\305\303=\203\306\202\307\310\211\211<\203.\311\312\313#\262
\202:;\2039\202:\313\262		<\203G	\202[	;\203Z	\314\315!\310\"\262
\202[\310\262\n\316\n>\203g\317\262
\301U\204\362\n\303=\203ym?\202{o?\203\362\320!\262\205\212z\262\203\237\n\303=\203\237`W\202\254\203\253`V\202\254\317\203\336\211\203\273
\n>?\202\277
\n>\203\336
\321=\203\324\211\204\324\322\"?\202\325\317\203\336\302!\202\337\301\n\n\"\\\262\\\262\202g\207" [viper-non-word-characters 0 1 forward skip-chars-forward skip-chars-backward viper-forward-char-carefully viper-backward-char-carefully nil mapconcat char-to-string "" append vconcat 94 t viper-char-at-pos 119 viper-memq-char] 16 (#$ . 32300)])
(defalias 'viper-beginning-of-field #[0 "o\206\300`\301\"\300`S\301\"=?\207" [get-char-property field] 4])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias viper-subseq cl-subseq nil make-obsolete "28.1" provide viper-util] 4)