HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/emulation/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/emulation/viper-util.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


(byte-code "\300\301!\210\302\303!\210\304\305!\204\306\305\307\310B\"\210\302\311!\210\306\312\313\"\210\306\314\315\"\210\306\316\313\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\210\306\325\326\"\210\306\327\330\"\210\306\331\332\"\210\306\333\334\"\210\306\335\336\"\210\306\337\340\"\210\306\341\342\"\210\306\343\344\"\207" [provide viper-util require ring fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] viper-init viper-overlay-p overlayp 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)
(defalias 'viper-memq-char #[(char list) "\250\203\302Y\203\303!	>\207	>\207" [char list 0 viper-int-to-char] 2])
(defalias 'viper-char-equal #[(char-or-int char) "\250\203\302Y\203\303!	U\207	=\207" [char-or-int char 0 viper-int-to-char] 2])
(defalias 'viper= #[(char char1) "	=\203\302\207\303!\203\303	!\203	U\207\304\207" [char char1 t viper-characterp nil] 2])
(defalias 'viper-color-display-p #[nil "\300 \207" [x-display-color-p] 1])
(put 'viper-color-display-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-get-cursor-color #[(&optional frame) "\300\301\302 \"A\207" [assoc cursor-color frame-parameters] 3])
#@110 Return the value of VARIABLE local to the current frame, if there is one.
Otherwise return the normal value.
(defalias 'viper-frame-value '(macro . #[(variable) "\301\302\301\303\304DD\305\306\307\304D\310BBDC\301\306\311FEFF\207" [variable if (featurep 'xemacs) local-variable-p quote let fp assoc ((frame-parameters)) (cdr fp)] 12 (#$ . 1947)]))
(defalias 'viper-change-cursor-color #[(new-color &optional frame) "\302 \205)\303 \205);\205)\304!\205)\305 \230?\205)\306	\206$\307 \310BC\"\207" [new-color frame viper-window-display-p x-display-color-p viper-color-defined-p viper-get-cursor-color modify-frame-parameters selected-frame cursor-color] 4])
(defalias 'viper-set-cursor-color-according-to-state #[(&optional frame) "\306=\203%\307\310\301!\203	\202\"\311\301\312 \"\211\203 \nA\202!	)\"\207\313=\203h\310\304!\2035\f\202F\311\304\312 \"\211\203D\nA\202E\f)\203h\307\310\304!\203T\f\202e\311\304\312 \"\211\203c\nA\202d\f)\"\207\314=\203\215\307\310\305!\203y
\202\212\311\305\312 \"\211\203\210\nA\202\211
)\"\207\307\310\315!\203\231
\202\253\311\315\312 \"\211\203\250\nA\202\252
)\"\207" [viper-current-state viper-replace-overlay-cursor-color fp frame viper-emacs-state-cursor-color viper-insert-state-cursor-color replace-state viper-change-cursor-color local-variable-p assoc frame-parameters emacs-state insert-state viper-vi-state-cursor-color] 5])
(defalias 'viper-save-cursor-color #[(before-which-mode) "\304 \205P\305 \205P\306 \211;\205O\307!\205O\310\301!\203#	\2024\311\301\312 \"\211\2032\nA\2023	)\230?\205O\313\314 \315\267\202J\316\202K\317\202K\320BC\")\207" [color viper-replace-overlay-cursor-color fp before-which-mode viper-window-display-p x-display-color-p viper-get-cursor-color viper-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 66 before-emacs-mode 70)) viper-saved-cursor-color-in-replace-mode viper-saved-cursor-color-in-emacs-mode viper-saved-cursor-color-in-insert-mode] 5])
(defalias 'viper-get-saved-cursor-color-in-replace-mode #[nil "\304\305 \306\"\206E\307=\203,\310\301!\203	\202)\311\301\312 \"\211\203'\nA\202(	)\206E\310\303!\2034\207\311\303\312 \"\211\203C\nA\202D)\207" [viper-current-state viper-emacs-state-cursor-color fp viper-vi-state-cursor-color frame-parameter selected-frame viper-saved-cursor-color-in-replace-mode emacs-mode local-variable-p assoc frame-parameters] 4])
(defalias 'viper-get-saved-cursor-color-in-insert-mode #[nil "\304\305 \306\"\206E\307=\203,\310\301!\203	\202)\311\301\312 \"\211\203'\nA\202(	)\206E\310\303!\2034\207\311\303\312 \"\211\203C\nA\202D)\207" [viper-current-state viper-emacs-state-cursor-color fp viper-vi-state-cursor-color frame-parameter selected-frame viper-saved-cursor-color-in-insert-mode emacs-mode local-variable-p assoc frame-parameters] 4])
(defalias 'viper-get-saved-cursor-color-in-emacs-mode #[nil "\302\303 \304\"\206!\305\300!\203\207\306\300\307 \"\211\203	A\202 )\207" [viper-vi-state-cursor-color fp frame-parameter selected-frame viper-saved-cursor-color-in-emacs-mode local-variable-p assoc frame-parameters] 4])
(defalias 'viper-restore-cursor-color #[(after-which-mode) "\302!\205\303	\304\267\202\305 \202\306 \202\307 !\207" [viper-replace-overlay after-which-mode viper-overlay-p 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] 3])
(defalias 'viper-check-version #[(op major minor &optional type-of-emacs) "\306\304!\203I\306\302!\203I\307\267\202\310\207	\311=\203$\nU\205H\f
U\207	\312>\203D	\f
\"\2047\f
U\205H\f
U\203B	\n\"\207\313\207\314\315	\"\207	\316>\203Q\310\207	\317>\205X\313\207" [type-of-emacs op emacs-minor-version minor emacs-major-version major boundp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (xemacs 18 emacs 20)) nil = (> >= < <=) t error "%S: Invalid op in viper-check-version" (= > >=) (< <=)] 3])
(defalias 'viper-get-visible-buffer-window #[(wind) "\301\302\"\207" [wind get-buffer-window visible] 3])
(defalias 'viper-line-pos #[(pos) "`\303\n\304\267\202'\305 \210\202'\303\210\202'\306\307\310!\307\311!\312#b\210\202'\313 \210`	b\210*\207" [result cur-pos pos nil #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (start 10 end 16 mid 22 indent 36)) beginning-of-line + viper-line-pos start end 2 back-to-indentation] 4])
(defalias 'viper-chars-in-region #[(beg end &optional preserve-sign) "\304	Z!	W\203\203\n[\202\n)\207" [end beg count preserve-sign abs] 3])
(defalias 'viper-pos-within-region #[(pos beg end) "	\n^Y\205
	\n]Y\207" [pos beg end] 3])
(put 'viper-pos-within-region 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-move-marker-locally #[(var pos &optional buffer) "\303\304!!\204
\305 L\210\304!	\n\223\207" [var pos buffer markerp eval make-marker] 3])
(defalias 'viper-message-conditions #[(conditions) "@A	\204\303\304\n\"\210\202\303\305\n\306\307	\310##\210\311\312!*\207" [conditions msg case message "%s" "%s: %s" mapconcat prin1-to-string " " beep 1] 7])
(defalias 'viper-list-to-alist #[(lst) "\302	\203	@CB	A\211\204)\207" [alist lst nil] 3])
(defalias 'viper-alist-to-list #[(alst) "\302	\203	@@B	A\211\204)\207" [lst alst nil] 3])
(defalias 'viper-filter-alist #[(regexp alst) "\304	@\203\305	@@\"\203	@\nB	A\211\202\n*\207" [alst inalst outalst regexp nil string-match] 4 nil "s x"])
(defalias 'viper-filter-list #[(regexp lst) "\304	@\203\305	@\"\203	@\nB	A\211\202\n*\207" [lst inlst outlst regexp nil string-match] 4 nil "s x"])
(defalias 'viper-append-filter-alist #[(lis1 lis2) "\304\211\203\"\305\n@@\"\211\203\306	\"\202\nA\211\204\307\"*\207" [lis1 elt temp lis2 nil assoc delq append] 4])
(defalias 'viper-glob-unix-files #[(filespec) "\203	\202	\306\n\206\307\203\310\311\f\"\202\310\312\f\"\307r\313 !q\210\314 \210\203D\315\307\316\307\317&\202O\315\307\316\307\317&eb\210
\320=\204~\212\321\307w\210\322\323!\203h\324\325!\210\326\327;\203u\202v\330`\331\332!{#\210)eb\210\333\334!-\207" [ex-unix-type-shell shell-file-name ex-unix-type-shell-options viper-ms-style-os-p filespec status "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 command gshell-options gshell viper-ex-tmp-buf-name] 8])
(defalias 'viper-get-filenames-from-buffer #[(&optional one-per-line) "\203\305\202	\306\307\211\211\211\307w\210m\204[\310\311!\203(\312\313\314\307\315#\202@\310\316!\2038\317\313\320\307\315#\202@\313\321\f\322Q\307\315#\203I\323\224\323\225{	\203P\324u\210\306\307w\210\nB\202,\207" [one-per-line delim fname result skip-chars "	\n" " 	\n" nil looking-at "\"" 34 re-search-forward "[^\"]+" t "'" 39 "[^']+" "[^" "]+" 0 1] 5])
(defalias 'viper-wildcard-to-regexp #[(wcard) "r\302!q\210\303 \210	c\210eb\210m\204X\304\305w\210`f\306=\203'\307c\210\310u\210\202`f\311=\2037\312c\210\310u\210\202`f\313=\203G\312c\210\310u\210\202`f\314=\203\315\310!\210\307c\210\202\316 )\207" [viper-ex-tmp-buf-name wcard get-buffer-create erase-buffer "^*?.\\\\" nil 42 "." 1 46 "\\" 92 63 delete-char buffer-string] 2])
(defalias 'viper-glob-mswindows-files #[(filespec) "\305\306\211r\307!q\210\310 \210\fc\210eb\210\311 \211\203:\312\313	@!\206%\314\305\315\316\317	@!!\320Q#B	A\211\204\321\322\323\"!,\207" [tmp2 tmp case-fold-search viper-ex-tmp-buf-name filespec 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] 8])
(defalias 'viper-ring-rotate1 #[(ring dir) "\302!\2056\303!\304V\2056	\304V\203\305@\303!\"\2021	\304W\203/\306@\303!\"\2021@\240\210\307!\207" [ring dir ring-p ring-length 0 ring-plus1 ring-minus1 viper-current-ring-item] 5])
(defalias 'viper-special-ring-rotate1 #[(ring dir) "\303>\203\304	\n\"\207\304	\305\"\207" [viper-intermediate-command ring dir (repeating-display-destructive-command repeating-insertion-from-ring) viper-ring-rotate1 0] 3])
(defalias 'viper-current-ring-item #[(ring &optional n) "\206\302\303	!\205#\304	!\302V\205#	AA\305\306	@\307#\304	!\"H\207" [n ring 0 ring-p ring-length mod - 1] 6])
(defalias 'viper-push-onto-ring #[(item ring-var) "\302\303!!\204\304\303\305\306\307\"!!!L\210	?\206E	;\203%	\310\230\206E	\311\303!!\232\206E\312=\203?\313\314\315\316 !\"\206E\317\303!	\"\207" [ring-var item 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] 7])
(defalias 'viper-cleanup-ring #[(ring) "\301!\302W\206\303!?\206\303!\303\304\"\232\205\305!\207" [ring ring-length 2 viper-current-ring-item 1 viper-ring-pop] 4])
(defalias 'viper-ring-pop #[(ring) "\306!AA\211G@\307\310\f	\"]\n
H\n
TW\2030\n
\n
THI\210
T\211\202\n
\311I\210\307\310\f	\"]\211	SU\203E\307\f\240\210A\307	S]\240\210\n.\207" [ring ln vec veclen hd idx ring-length 0 ring-minus1 nil top-elt] 5])
(defalias 'viper-ring-insert #[(ring item) "\306!AA\211G@\211\307U\203	\202\f			U\2033\n\f\nI\210\310\f	\"\240\210\202gA	T\240\210\310
	T\"\240\210	
Y\203a	\307V\203a\n	\n	SHI\210	S\211	\202C\n
\nI\210\n.\207" [ring ln vec veclen hd vecpos-after-hd ring-length 0 ring-plus1 idx item] 5])
(defalias 'viper-abbreviate-string #[(string max-len pre-string post-string abbrev-sign) "\306	;\205	\307\n	G^O\211\204\310\202.	G\nV\203(\311\312\f
%\202.\311\313
$)\207" [truncated-str string max-len pre-string abbrev-sign post-string nil 0 "" format "%s%s%s%s" "%s%s%s"] 7])
(defalias 'viper-over-whitespace-line #[nil "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "^[ 	]*$"] 2])
(put 'viper-over-whitespace-line 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-save-setting #[(var message custom-file &optional erase-msg) "\306!\307!\205
\310!\311\312	\"\313\314\f!!\315\316
\206!\317\"\210r
q\210eb\210\320\321\322#\203P\323\225S\324	!\210\323\224|\210\323\224b\210\311\325	\n#c\210)\202adb\210n\204Z\326c\210\311\327	\n#c\210\330 \210)\331
!\210\205u\332\333!\210\315\317!,\207" [var var-name var-val regexp custom-file buf 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 reg-end erase-msg] 4])
(defalias 'viper-save-string-in-file #[(string custom-file &optional pattern) "\305\306!!r	q\210\307eb\210\203\310!\210db\210\f\203!\fc\210\311 \210*\312	!)\207" [custom-file buf buffer-read-only pattern string find-file-noselect substitute-in-file-name nil delete-matching-lines save-buffer kill-buffer] 3])
(defalias 'viper-file-checked-in-p #[(file) "\301\302!\205#\303!\304>?\205#\305\306!\205#\306!\307>?\205#\306!;?\207" [file featurep vc-hooks vc-backend (nil CVS) fboundp vc-state (edited needs-merge)] 2])
(put 'viper-file-checked-in-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-maybe-checkout #[(buf) "\303\304!!\305\306!\211\307\310!\205/\311\n!\312>?\205/\313\314!\205/\314\n!\315>?\205/\314\n!;?)\205J\316\317!\210\320\321\322\323\n!\"!\205Jrq\210\324	!)*\207" [buf checkout-function file 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? " viper-abbreviate-file-name command-execute] 6])
(defalias 'viper-put-on-search-overlay #[(beg end) "\305!\203\306	\n#\210\202\307	\np#\310\311#\210\310\312\f#\207" [viper-search-overlay beg end viper-search-overlay-priority viper-search-face viper-overlay-p viper-move-overlay viper-make-overlay viper-overlay-put priority face] 4])
(defalias 'viper-flash-search-pattern #[nil "\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 viper-overlay-put face nil] 4])
(defalias 'viper-hide-search-overlay #[nil "\302!\204\303eep#\304\305	#\210\304\306\307#\207" [viper-search-overlay viper-search-overlay-priority viper-overlay-p viper-make-overlay viper-overlay-put priority face nil] 4])
(defalias 'viper-move-replace-overlay #[(beg end) "\303	\n#\207" [viper-replace-overlay beg end viper-move-overlay] 4])
(put 'viper-move-replace-overlay 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-set-replace-overlay #[(beg end) "\306!\203	\n\307	\n#*\210\202&\310	\np#\311\312\313#\210\311\314#\210\315 \2031\311\316\f#\210\317\320!\210\321\322\305!\203@
\202S\323\305\324 \"\211\203QA\202R
)!\207" [viper-replace-overlay beg end viper-replace-overlay-priority viper-replace-overlay-face viper-replace-overlay-cursor-color viper-overlay-live-p viper-move-overlay viper-make-overlay viper-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 fp] 5])
(defalias 'viper-set-replace-overlay-glyphs #[(before-glyph after-glyph) "\306!\204\307ee\"\210\310 \203	\205$\311\312\313\f#\210\313\n
#*\207" [viper-replace-overlay viper-use-replace-region-delimiters after-name before-name before-glyph after-glyph viper-overlay-live-p viper-set-replace-overlay viper-has-face-support-p before-string after-string viper-overlay-put] 4])
(defalias 'viper-hide-replace-overlay #[nil "\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 viper-overlay-put face] 4])
(defalias 'viper-replace-start #[nil "\301!\207" [viper-replace-overlay viper-overlay-start] 2])
(put 'viper-replace-start 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-replace-end #[nil "\301!\207" [viper-replace-overlay viper-overlay-end] 2])
(put 'viper-replace-end 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-set-minibuffer-overlay #[nil "\303 \210\304 \205\305\306	#\210\305\307\n#\210\305\310\311#\210\311\207" [viper-minibuffer-overlay viper-minibuffer-current-face viper-minibuffer-overlay-priority viper-check-minibuffer-overlay viper-has-face-support-p viper-overlay-put face priority evaporate nil] 4])
(defalias 'viper-check-minibuffer-overlay #[nil "\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 viper-overlay-live-p viper-move-overlay fboundp minibuffer-prompt-end 1 buffer-size viper-make-overlay nil rear-advance] 6])
(defalias 'viper-is-in-minibuffer #[nil "\301 \302\216\303\304\305 \"*\207" [save-match-data-internal match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\*Minibuf-" buffer-name] 3])
(put 'viper-is-in-minibuffer 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-abbreviate-file-name #[(file) "\301!\207" [file abbreviate-file-name] 2])
(defalias 'viper-sit-for-short #[(val &optional nodisp) "\302\303\245	\"\207" [val nodisp sit-for 1000.0] 3])
(put 'viper-sit-for-short 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-ESC-event-p #[(event) "\303\304!	\n\235*\207" [event key ESC-keys (27 (control \[) escape) viper-event-key] 3])
(put 'viper-ESC-event-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-valid-marker #[(marker) "\303!\205\"\304!\205\"\304!\305!r\nq\210	dX\205!e	X+\207" [marker pos buf markerp marker-buffer marker-position] 3])
(defalias 'viper-mark-marker #[nil "\300 \207" [mark-marker] 1])
(put 'viper-mark-marker 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-set-mark-if-necessary #[nil "\302\303 \"\304\305!\210`\211\207" [mark-ring viper-saved-mark delete mark-marker set-mark-command nil] 3])
(put 'viper-set-mark-if-necessary 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-deactivate-mark #[nil "\300 \207" [deactivate-mark] 1])
(defalias 'viper-leave-region-active #[nil "\300\207" [nil] 1])
(put 'viper-leave-region-active 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-valid-register #[(reg &optional type) "\204\302\303>\203\304	X\203	\305X\2069\306>\203*\307	X\203*	\310X\2069\311>\2059\312	X\2059	\313X\207" [type reg (letter Letter digit) letter 97 122 digit 49 57 Letter 65 90] 2])
(defalias 'viper-copy-event #[(event) "\207" [event] 1])
(defalias 'viper-fast-keysequence-p #[nil "\306\307	!\n\235+\203\310 \202\f\311\f\312\f\313\245
\"*?\207" [last-input-event event key ESC-keys viper-fast-keyseq-timeout nodisp (27 (control \[) escape) viper-event-key viper-ESC-keyseq-timeout t sit-for 1000.0 val] 3])
(defalias 'viper-read-event-convert-to-char #[nil "\301\302 )\207" [event nil read-event] 1])
(defalias 'viper-read-key-sequence #[(prompt &optional continue-echo) "\306\211\211\307\f\"\310!\311\234\211\312\313	!
\235+\203U\306\314 \203L\306\211\211\211\211\211\211\315!\210\307\306!.\202T\315!\210\307\306!)+\207" [keyseq event inhibit-quit prompt continue-echo key nil read-key-sequence listify-key-sequence 0 (27 (control \[) escape) viper-event-key viper-fast-keysequence-p viper-set-unread-command-events ESC-keys unread-command-events viper-insert-local-user-minor-mode viper-insert-global-user-minor-mode viper-replace-minor-mode viper-insert-intercept-minor-mode viper-vi-intercept-minor-mode viper-vi-local-user-minor-mode viper-vi-global-user-minor-mode] 8])
(defalias 'viper-read-key #[nil "\305\306\211\307!\210\310\216\311\306!\312\234)	,\207" [viper-overriding-map key help-char inhibit-quit overriding-local-map t nil use-global-map #[nil "\301!\207" [global-map use-global-map] 2] viper-read-key-sequence 0] 4])
(defalias 'viper-event-key #[(event) "\203\n\303!\204\304\305\"\210\306!\307\310!\203/\311X\203/\312X\203/\307\211\202\220\310!\203M\313W\203M\314X\203M\315\316\313\317#\211\202\220\n\204]\320=\203]\321\211\202\220\n\204m\322=\203m\323\211\202\220\n\204}\324=\203}\313\211\202\220\n\204\215\325=\203\215\326\211\202\220\327!\310	!\203\252\330	\313\"\203\244\331\332D\202\251\333\334	!!\n\203\266\335\n	C\"\202\267	*\207" [event basis mod eventp error "viper-event-key: Wrong type argument, eventp, %S" event-modifiers nil viper-characterp 65 90 127 255 (meta) - 1 return 13 space 32 delete backspace 8 event-basic-type viper= control \? intern char-to-string append] 4])
(defalias 'viper-last-command-char #[nil "\207" [last-command-event] 1])
(defalias 'viper-key-to-emacs-key #[(key) "\306\211\211\211\211\2119\203G\307!\211G\310U\203$\311
!\202\221\312 \2043
\313\230\2033\314\202\221\312 \204B
\315\230\203B\316\202\221\202\221<\205\221\317\320GS#\211\211GS\234)\307	!\211G\310U\321\322\"\f\203\205\323\324\325\326\n\327#\330R!@\211\202\221\331\325\326\n\330#\330Q!\211.\207" [base-key-name base-key mod-char-list modifiers char-p key-name nil symbol-name 1 string-to-char viper-window-display-p "return" 13 "escape" 27 viper-subseq 0 mapcar #[(elt) "\301!\302\303O\226\207" [elt symbol-name 0 1] 3] read-from-string "?\\" mapconcat identity "-\\" "-" intern key seq] 7])
(defalias 'viper-eventify-list-xemacs #[(lis) "\300\207" [nil] 1])
(defalias 'viper-set-unread-command-events #[(arg) "\303!\203C\202$<\203\202$\304!\203 \305!\202$\306\307\"\303\310!\2040\311\310	\"\312	\n\")\211\207" [arg new-events unread-command-events eventp sequencep listify-key-sequence error "viper-set-unread-command-events: Invalid argument, %S" nil delq append] 3])
(defalias 'viper-event-vector-p #[(vec) "\301!\205\302\303\304\305\"B!\207" [vec vectorp eval and mapcar #[(elt) "\301!\205\302\207" [elt eventp t] 2]] 5])
(defalias 'viper-char-symbol-sequence-p #[(vec) "\301!\205\302\303\304\305\"B!\207" [vec sequencep eval and mapcar #[(elt) "9\205\301!G\302U\207" [elt symbol-name 1] 2]] 5])
(defalias 'viper-char-array-p #[(array) "\301\302\303\304\"B!\207" [array eval and mapcar viper-characterp] 5])
(defalias 'viper-array-to-string #[(event-seq) "\303\211\n;\203
\n\202k\304\n!\203A\305\306\n\"\307	!\203&\310\311	\312#\202k\313\305\314	\"\211!\2039\310\315\312#\202k\316\317	!!\202k\307\n!\203O\310\311\n\312#\202k\320\n!\203h\313\305\314\n\"\211!\203h\310\315	\312#\202k\316\n!*\207" [temp2 temp event-seq 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] 4])
(defalias 'viper-key-press-events-to-chars #[(events) "\301\302\303#\207" [events mapconcat char-to-string ""] 4])
(defalias 'viper-read-char-exclusive #[nil "\302\303	\204\3041\305 \2110\202\210\306 \210\202	*\207" [echo-keystrokes char nil 1 (error) read-char viper-read-event] 2])
(defalias 'viper-key-to-character #[(key) "\301=\203\302\207\303=\203\304\207\305=\203\306\207\307=\203 \310\2079\2034\311!G\312U\2034\313\311!!\207<\203^@\314=\203^\311A@!\203^\311A@!G\312U\203^\315\316\317\311A@!\"!\207\207" [key space 32 delete 127 return 13 backspace 8 symbol-name 1 string-to-char control read format "?\\C-%s"] 5])
#@164 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.
(defalias 'viper-setup-master-buffer #[(&rest other-files-or-buffers) "\302GT!\303\304\"\210\305	\306 \"\207" [other-files-or-buffers viper-related-files-and-buffers-ring make-ring mapc #[(elt) "\302	\"\207" [viper-related-files-and-buffers-ring elt viper-ring-insert] 3] viper-ring-insert buffer-name] 3 (#$ . 24221)])
(defconst viper-non-word-characters-reformed-vi "!@#$%^&*()\\-+=|\\~`{}[];:'\",<.>/?")
#@20 nil
(buffer local)
(defvar viper-non-word-characters nil (#$ . 24801))
(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" (#$ . 24935))
(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_" (#$ . 25249))
#@77 Regexp matching the set of alphanumeric characters acceptable to strict
Vi.
(defconst viper-strict-SEP-chars " 	\n" (#$ . 25393))
#@77 Regexp matching the set of alphanumeric characters acceptable to strict
Vi.
(defconst viper-strict-SEP-chars-sans-newline " 	" (#$ . 25529))
#@94 String of syntax classes for Vi separators.
Usually contains ` ', linefeed, TAB or formfeed.
(defconst viper-SEP-char-class " -" (#$ . 25676))
(defalias 'viper-update-syntax-classes #[(&optional set-default) "\306\267\202\307\202\310\202\307\311\267\202!	\312\313\n!\314\")\202\"\314
\2034\305\315\f\"\210\305\316\"\202;\f
\211*\207" [viper-syntax-preference viper-non-word-characters-reformed-vi string non-word-chars preference set-default #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (emacs 6 extended 10)) "w" "w_" #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (reformed-vi 21)) append vconcat nil viper-ALPHA-char-class viper-non-word-characters] 4])
#@212 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.
(defalias 'viper-set-syntax-preference #[(&optional symbol value) "\204\303\304\305\306\307$;\203\310!\311>\204\312\313\"\210	\203+\314\302\"\210\202-\315 \207" [value symbol 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] 5 (#$ . 26438) nil])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\301!\207" [custom-declare-variable viper-syntax-preference 'reformed-vi "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)
(defalias 'viper-looking-at-alpha #[(&optional addl-chars) ";\204\306	\307=\203\310P`f\211\205M	\311=\203(\312\313\314R!\202M\315\n\316\317\f!\320\")\"\206M\315\n
\"?\205M\315\nz\316\317\f!\320\")\")\207" [addl-chars viper-syntax-preference char viper-strict-ALPHA-chars string viper-non-word-characters "" reformed-vi "_" strict-vi looking-at "[" "]" viper-memq-char append vconcat nil viper-ALPHA-char-class] 6])
(defalias 'viper-looking-at-separator #[nil "`f\211\205/	\305=\203\306\n\307\310!\311\")\"\202/\312=\206/\306z\f\307\310!\311\")\")\207" [char viper-syntax-preference viper-strict-SEP-chars string viper-SEP-char-class strict-vi viper-memq-char append vconcat nil 10] 6])
(defalias 'viper-looking-at-alphasep #[(&optional addl-chars) "\301 \206\302!\207" [addl-chars viper-looking-at-separator viper-looking-at-alpha] 2])
(put 'viper-looking-at-alphasep 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-skip-alpha-forward #[(&optional addl-chars) ";\204\304\305\306	\307\267\202\304\202\n	\310\267\202 P\202!#\207" [addl-chars viper-syntax-preference viper-ALPHA-char-class viper-strict-ALPHA-chars "" viper-skip-syntax forward #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (strict-vi 15)) #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (strict-vi 26))] 5])
(defalias 'viper-skip-alpha-backward #[(&optional addl-chars) ";\204\304\305\306	\307\267\202\304\202\n	\310\267\202 P\202!#\207" [addl-chars viper-syntax-preference viper-ALPHA-char-class viper-strict-ALPHA-chars "" viper-skip-syntax backward #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (strict-vi 15)) #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (strict-vi 26))] 5])
(defalias 'viper-skip-all-separators-forward #[(&optional within-line) "\305=\203	\203\n\306w\207\306w\207\307\310\f	\206\311	\205!\312\313!$\207" [viper-syntax-preference within-line 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] 6])
(put 'viper-skip-all-separators-forward 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-skip-all-separators-backward #[(&optional within-line) "\305=\203	\203\n\306x\207\306x\207\307\310\f	\206\311	\205!\312\313!$\207" [viper-syntax-preference within-line 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] 6])
(put 'viper-skip-all-separators-backward 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-skip-nonseparators #[(direction) "\302\303	P\304\305\306=\203\307\202\310!$\207" [direction viper-SEP-char-class viper-skip-syntax "^" nil viper-line-pos forward end start] 7])
(defalias 'viper-skip-nonalphasep-forward #[nil "\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 #[nil "\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])
(defalias 'viper-skip-syntax #[(direction syntax addl-chars &optional limit) "\306\307\310=\203\f\311\202
\312\310=\203\313\202\314\315\211\211<\2038\316\317\320#)\202D;\203C\202D\320<\203Q\202g;\203f\321\322!\315\")\202g\315\323>\203r\324\306U\204\372\325\267\202\204m?\202\206o?\203\372\326!\211\205\223z\203\246\310=\203\246`W\202\263\203\262`V\202\263\324\203\346	\203\302\n>?\202\306\n>\203\346\n\327=\203\334	\204\334\330 \"?\202\335\324\203\346\f\307!\202\347\306
\"\\\\\202r.\207" [direction negated-syntax syntax-of-char-looked-at char-looked-at skip-syntax-func skip-chars-func 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 #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (forward 127)) viper-char-at-pos 119 viper-memq-char local total addl-chars list syntax string limit viper-non-word-characters] 8])
(defalias 'viper-beginning-of-field #[nil "o\206\300`\301\"\300`S\301\"=?\207" [get-char-property field] 4])
(defalias 'viper-subseq #[(seq start &optional end) ";\203\n	\nO\207\306\n\203\n\307W\203\nG\211\\	\307W\203.	\206,G\211\\<\203c	\307V\203=	\233\n\203]\306\nS\211	Y\203W\211A\242\fB\202C\f\237)\202\222\310!\202\222\n\204n\206mG\311\n	Z\307]\306\"\307	\nW\203\220\f
	HI\210
T	T\211\202z\f*)\207" [seq start end len res i nil 0 copy-sequence make-vector] 5])