Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/emulation/viper-util.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303!\210\302\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" [provide viper-util require 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 (#$ . 1548)])
#@25 

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

U\207

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

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

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

U\207\302\207" [t characterp nil] 4 (#$ . 1788)])
(defalias 'viper-color-display-p #[0 "\300 \207" [x-display-color-p] 1])
(put 'viper-color-display-p 'byte-optimizer 'byte-compile-inline-expand)
#@24 

(fn &optional FRAME)
(defalias 'viper-get-cursor-color #[256 "\300\301\302 \"A\207" [assoc cursor-color frame-parameters] 4 (#$ . 2076)])
#@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 (#$ . 2223)]))
#@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 (#$ . 2554)])
#@24 

(fn &optional FRAME)
(defalias 'viper-set-cursor-color-according-to-state #[256 "\305=\203%\306\307\301!\203	\202\"\310\301\311 \"\211\203\211A\202 	\262
\"\207\312=\203h\307\302!\2035\n\202F\310\302\311 \"\211\203C\211A\202D\n\262
\203h\306\307\302!\203T\n\202e\310\302\311 \"\211\203b\211A\202c\n\262
\"\207\313=\203\215\306\307\303!\203y\202\212\310\303\311 \"\211\203\207\211A\202\210\262
\"\207\306\307\304!\203\230\f\202\251\310\304\311 \"\211\203\246\211A\202\247\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 assoc frame-parameters emacs-state insert-state] 5 (#$ . 2879)])
#@26 

(fn BEFORE-WHICH-MODE)
(defalias 'viper-save-cursor-color #[257 "\301 \205P\302 \205P\303 \211;\205N\304
!\205N\211\305\300!\203\"\2023\306\300\307 \"\211\2030\211A\2021\262
\230?\205N\310\311 \312\267\202I\313\202J\314\202J\315BC\"\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 assoc 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 65 before-emacs-mode 69)) viper-saved-cursor-color-in-replace-mode viper-saved-cursor-color-in-emacs-mode viper-saved-cursor-color-in-insert-mode] 6 (#$ . 3676)])
(defalias 'viper-get-saved-cursor-color-in-replace-mode #[0 "\303\304 \305\"\206E\306=\203,\307\301!\203	\202)\310\301\311 \"\211\203&\211A\202'	\262
\206E\307\302!\2034\n\207\310\302\311 \"\211\203B\211A\202C\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 assoc frame-parameters] 3])
(defalias 'viper-get-saved-cursor-color-in-insert-mode #[0 "\303\304 \305\"\206E\306=\203,\307\301!\203	\202)\310\301\311 \"\211\203&\211A\202'	\262
\206E\307\302!\2034\n\207\310\302\311 \"\211\203B\211A\202C\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 assoc frame-parameters] 3])
(defalias 'viper-get-saved-cursor-color-in-emacs-mode #[0 "\301\302 \303\"\206!\304\300!\203\207\305\300\306 \"\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 assoc 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 (#$ . 5583)])
#@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 (#$ . 6060)])
#@13 

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

(fn POS)
(defalias 'viper-line-pos #[257 "`\300\301\267\202%\302 \210\202%\300\210\202%\303\304\305!\304\306!\307#b\210\202%\310 \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] 7 (#$ . 6923)])
#@40 

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

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


]Y\207" [] 6 (#$ . 7449)])
(put 'viper-pos-within-region 'byte-optimizer 'byte-compile-inline-expand)
#@33 

(fn VAR POS &optional BUFFER)
(defalias 'viper-move-marker-locally #[770 "\300\301!!\204
\302 L\210\301!\223\207" [markerp eval make-marker] 6 (#$ . 7632)])
#@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 (#$ . 7803)])
#@12 

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

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

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

A\262\202
\211\207" [nil] 4 (#$ . 8150)])
#@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 (#$ . 8272) "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 (#$ . 8442) "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 (#$ . 8609)])
#@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 (#$ . 8800)])
#@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 (#$ . 9511)])
#@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 (#$ . 9960)])
#@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 (#$ . 10377)])
#@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 (#$ . 10843)])
#@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 (#$ . 11105)])
#@25 

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

(fn ITEM RING-VAR)
(defalias 'viper-push-onto-ring #[514 "\300\301!!\204\211\302\301\303\304\305\"!!!L\210
?\206F
;\203&
\306\230\206F
\307\301!!\232\206F\211\310=\203@\311\312\313\314 !\"\206F\315\301!\"\207" [ring-p eval 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] 9 (#$ . 11552)])
#@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 (#$ . 12001)])
#@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 (#$ . 12199)])
#@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 (#$ . 12454)])
#@58 

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

(fn VAR MESSAGE FILE &optional ERASE-MSG)
(defalias 'viper-save-setting #[1027 "\300!\301!\205\f\302!\303\304\"\305\306!!\307\310\206\311\"\210r\211q\210eb\210\312\313\314#\203L\315\225S\316!\210\315\224
|\210\315\224b\210\303\317#c\266\202]db\210n\204V\320c\210\303\321#c\210\322 \210)\323
!\210\205p\324\325!\210\307\311!\207" [symbol-name boundp eval format "^[^;]*%s[ 	\n]*[a-zA-Z---_']*[ 	\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 (#$ . 13222)])
#@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 (#$ . 13842)])
#@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 (#$ . 14147)])
(put 'viper-file-checked-in-p 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 14458)])
#@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 (#$ . 14928)])
(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 (#$ . 15649)])
(put 'viper-move-replace-overlay 'byte-optimizer 'byte-compile-inline-expand)
#@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>\202O\321\303\322 \"\211\203L\211A\202M\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 assoc frame-parameters] 8 (#$ . 15861)])
#@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 (#$ . 16460)])
(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])
(put 'viper-replace-start 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-replace-end #[0 "\301!\207" [viper-replace-overlay overlay-end] 2])
(put 'viper-replace-end 'byte-optimizer 'byte-compile-inline-expand)
(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!\203\304 \202\305\306 T#\207\307\303\304!\203%\304 \202&\305\306 Tp\310\311%\211\207" [viper-minibuffer-overlay overlayp move-overlay fboundp minibuffer-prompt-end 1 buffer-size make-overlay nil rear-advance] 6])
(defalias 'viper-is-in-minibuffer #[0 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\312 \")\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "\\*Minibuf-" buffer-name] 7])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\305\306\311#\207" [put viper-is-in-minibuffer byte-optimizer byte-compile-inline-expand defalias viper-abbreviate-file-name abbreviate-file-name nil make-obsolete "27.1"] 4)
#@29 

(fn VAL &optional NODISP)
(defalias 'viper-sit-for-short #[513 "\300\301\245\"\207" [sit-for 1000.0] 5 (#$ . 18478)])
(put 'viper-sit-for-short 'byte-optimizer 'byte-compile-inline-expand)
#@14 

(fn EVENT)
(defalias 'viper-ESC-event-p #[257 "\300\301!\211\235\207" [(27 (control \[) escape) viper-event-key] 5 (#$ . 18677)])
(put 'viper-ESC-event-p 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 18886)])
(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 (#$ . 19200))
(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#\210\304\305\306\307#\210\310\305\306\311#\210\304\312\313\307#\210\310\312\313\311#\207" [put viper-set-mark-if-necessary byte-optimizer byte-compile-inline-expand defalias viper-deactivate-mark deactivate-mark nil make-obsolete "27.1" viper-leave-region-active ignore] 4)
#@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 (#$ . 19764)])
(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!\211\235\266\203\203\304 \202	\305\306\307\245\"\266\202?\207" [last-input-event viper-fast-keyseq-timeout (27 (control \[) escape) viper-event-key viper-ESC-keyseq-timeout t sit-for 1000.0] 5])
(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\226\305!\203O\310W\203O\311X\203O\312\262\313\310\314#\211\262\202\226
\204`\315=\203`\316\211\262\202\226
\204q\317=\203q\320\211\262\202\226
\204\202\321=\203\202\310\211\262\202\226
\204\223\322=\203\223\323\211\262\202\226\324!\262
\305
!\203\262\325
\310\"\203\253\326\327D\202\260\330\331!!\262

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

(fn KEY)
(defalias 'viper-key-to-emacs-key #[257 "\301\211\211\211\211\2119\203C\302!\262G\303U\203 \304!\202\224\305 \204/\306\230\203/\307\202\224\305 \204>\310\230\203>\311\202\224\202\224<\205\224\312\313	GS#\262\211\211GS\234)\262\302!\262
\211G\303U\262\314\315\"\262\203\207\316\317\320\321\322#\323R!@\211\262\202\224\324\320\321\323#\323Q!\211\262\207" [seq nil symbol-name 1 string-to-char viper-window-display-p "return" 13 "escape" 27 viper-subseq 0 mapcar #[257 "\300\301!\302\303#\226\207" [substring symbol-name 0 1] 5 "\n\n(fn ELT)"] read-from-string "?\\" mapconcat identity "-\\" "-" intern] 14 (#$ . 21405)])
(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 (#$ . 22218)])
#@12 

(fn VEC)
(defalias 'viper-event-vector-p #[257 "\300
!\205\301\302\303\304\"B!\207" [vectorp eval and mapcar #[257 "\300
!\205\301\207" [eventp t] 3 "\n\n(fn ELT)"]] 6 (#$ . 22576)])
#@12 

(fn VEC)
(defalias 'viper-char-symbol-sequence-p #[257 "\300
!\205\301\302\303\304\"B!\207" [sequencep eval and mapcar #[257 "\2119\205\300
!G\301U\207" [symbol-name 1] 3 "\n\n(fn ELT)"]] 6 (#$ . 22772)])
#@14 

(fn ARRAY)
(defalias 'viper-char-array-p #[257 "\300\301\302\303\"B!\207" [eval and mapcar characterp] 6 (#$ . 22990)])
#@18 

(fn EVENT-SEQ)
(defalias 'viper-array-to-string #[257 "\300\211;\203\202l\301!\203A\302\303\"\262\304!\203%\305\306\307#\202l\310\302\311\"\211\262!\2039\305\312\307#\202l\313\314!!\202l\304!\203O\305\306\307#\202l\315!\203i\310\302\311\"\211\262!\203i\305\312\307#\202l\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 (#$ . 23119)])
#@15 

(fn EVENTS)
(defalias 'viper-key-press-events-to-chars #[257 "\300\301\302#\207" [mapconcat char-to-string ""] 5 (#$ . 23650)])
(defalias 'viper-read-char-exclusive #[0 "\301\302\211\204\3031\304 \211\2620\202\210\305 \210\202)\211\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 (#$ . 23963)])
#@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 (#$ . 24430)])
(defconst viper-non-word-characters-reformed-vi "!@#$%^&*()\\-+=|\\~`{}[];:'\",<.>/?")
#@20 nil
(buffer local)
(defvar viper-non-word-characters nil (#$ . 25004))
(make-variable-buffer-local 'viper-non-word-characters)
#@207 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'.
(buffer local)
(defvar viper-ALPHA-char-class "w" (#$ . 25138))
(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_" (#$ . 25452))
#@77 Regexp matching the set of alphanumeric characters acceptable to strict
Vi.
(defconst viper-strict-SEP-chars " 	\n" (#$ . 25596))
#@77 Regexp matching the set of alphanumeric characters acceptable to strict
Vi.
(defconst viper-strict-SEP-chars-sans-newline " 	" (#$ . 25732))
#@94 String of syntax classes for Vi separators.
Usually contains ` ', linefeed, TAB or formfeed.
(defconst viper-SEP-char-class " -" (#$ . 25879))
#@30 

(fn &optional SET-DEFAULT)
(defalias 'viper-update-syntax-classes #[256 "\305\267\202\306\202\307\202\306\310=\203!	\311\312\n!\313\")\202\"\313\2032\314\303\"\210\314\304\"\2027
\211\211\207" [viper-syntax-preference viper-non-word-characters-reformed-vi string 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 (#$ . 26028)])
#@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 (#$ . 26545) 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\305\262
\306=\203\211\307P\262
`f\211\205M\310=\203)\311\312	\313R!\202M\314
\315\316\n!\317\")\"\206M\314
\"?\205M\314
z\f\315\316\n!\317\")\"\207" [viper-syntax-preference viper-strict-ALPHA-chars string viper-non-word-characters viper-ALPHA-char-class "" reformed-vi "_" strict-vi looking-at "[" "]" viper-memq-char append vconcat nil] 7 (#$ . 28630)])
(defalias 'viper-looking-at-separator #[0 "`f\211\205.\304=\203\305
	\306\307\n!\310\")\"\202.\211\311=\206.\305
z\306\307\n!\310\")\"\207" [viper-syntax-preference viper-strict-SEP-chars string viper-SEP-char-class strict-vi viper-memq-char append vconcat nil 10] 6])
#@29 

(fn &optional ADDL-CHARS)
(defalias 'viper-looking-at-alphasep #[256 "\300 \206\301
!\207" [viper-looking-at-separator viper-looking-at-alpha] 3 (#$ . 29365)])
(put 'viper-looking-at-alphasep 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 29612)])
#@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 (#$ . 29901)])
#@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 (#$ . 30192)])
(put 'viper-skip-all-separators-forward 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 30637)])
(put 'viper-skip-all-separators-backward 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 31087)])
(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 "\303\304\305=\203\f\306\202
\307\305=\203\310\202\311\312\211\211<\203.\313\314\315#)\202:;\2039\202:\315\262		<\203G	\202[	;\203Z	\316\317	!\312\")\202[\312\262\n\320\n>\203g\321\262
\303U\204\362\n\305=\203ym?\202{o?\203\362\322!\262\205\212z\262\203\237\n\305=\203\237`W\202\254\203\253`V\202\254\321\203\336\211\203\273
\n>?\202\277
\n>\203\336
\323=\203\324\211\204\324\324\n\"?\202\325\321\203\336\304!\202\337\303\n\n\"\\\262\\\262\202g\207" [list string 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] 15 (#$ . 31949)])
(defalias 'viper-beginning-of-field #[0 "o\206\300`\301\"\300`S\301\"=?\207" [get-char-property field] 4])
#@32 

(fn SEQ START &optional END)
(defalias 'viper-subseq #[770 ";\203\300#\207\301
\203
\302W\203
G\211\262\\\262\302W\2032
\206/G\211\262\\\262<\203k\302V\203B\233\262
\203e\301S\211\262Y\203^\211A\262\242
B\262
\202G\211\237\262
\202\235\303!\202\235
\204w\211\206uG\262\304Z\302]\301\"\302W\203\232

HI\210\211T\262
T\262\202\200
\266\202\207" [substring nil 0 copy-sequence make-vector] 10 (#$ . 32945)])