%PDF-
%PDF-
Mini Shell
Mini Shell
;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`\262b\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 @CB\262A\262\202 \211\207" [nil] 4 (#$ . 8029)])
#@13
(fn ALST)
(defalias 'viper-alist-to-list #[257 "\300\203 @@B\262A\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&\262eb\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\210B\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\262A\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\"]HTW\203+ THI\210T\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\202b AT\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\2024 GV\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!\"!\205H rq\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!rq\210\211dX\205 eX)\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 \305A@!\203L \305A@!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 "\301GT!\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 \314z\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. \305z \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=\203y m?\202{ o?\203\362 \322 !\262\205\212 z\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\242B\262\202G \211\237\262\202\235 \303!\202\235 \204w \211\206u G\262\304Z\302]\301\"\302W\203\232 HI\210\211T\262T\262\202\200 \266\202\207" [substring nil 0 copy-sequence make-vector] 10 (#$ . 32945)])
Zerion Mini Shell 1.0