ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/pcvs-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; Function definitions are lazy-loaded.
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'cvs-car #[(x) #@32 (":\2030@\207\207" . [x]) (#$ . 477) nil 1])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put cvs-car byte-optimizer byte-compile-inline-expand defalias cvs-cdr cdr-safe] 4)
(defalias 'cvs-append #[(&rest xs) #@94 ("\301\302\303\304\"\"\207" . [xs apply append mapcar #[(x) "<\2030\207C\207" [x] 1]]) (#$ . 705) nil 5])
(put 'cvs-append 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cvs-every #[(-cvs-every-f -cvs-every-l) #@91 (":\2030 \211A\242!\20400\302\211\2020?\207" . [-cvs-every-l -cvs-every-f t]) (#$ . 935) nil 4])
(put 'cvs-every 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cvs-union #[(xs ys) #@113 ("\n\305\211 \203 0\f@\211\235\2040 B\fA\211\204\n0\305 +\207" . [ys zs xs x --dolist-tail-- nil]) (#$ . 1142) nil 3])
(defalias 'cvs-map #[(-cvs-map-f &rest -cvs-map-ls) #@217 ("\305\306 \n:\2030 \n\211A\242!\2040\307\211\2020\n*\20320\310\f\311\312 \"\"B\311\313 \"\2020\237)\207" . [accum -cvs-map-ls -cvs-every-l -cvs-every-f -cvs-map-f nil null t apply mapcar car cdr]) (#$ . 1332) nil 5])
(defalias 'cvs-first #[(l &optional n) #@126 ("\2040 @\207 \20520 \211A\242C\211 \20300\304V\20300\n \211A\242C\241\210\nAS\2020 *\207" . [n l nl ret 1]) (#$ . 1613) nil 4])
#@240 Partition a list L into two lists based on predicate P.
The function returns a `cons' cell where the `car' contains
elements of L for which P is true while the `cdr' contains
the other elements. The ordering among elements is maintained.
(defalias 'cvs-partition #[(p l) #@135 ("\306\211\n\306\211 \203'0\f@
!\203 0 B\202 0 B\fA\211\204\f0* \237\237*B\207" . [cdr car l x --dolist-tail-- p nil]) (#$ . 2043) nil 3 (#$ . 1764)])
#@169 Pop to BUF like `pop-to-buffer' but staying on the same frame.
If `pop-to-buffer' would have opened a new frame, this function would
try to split a new window instead.
(defalias 'cvs-pop-to-buffer-same-frame #[(buf) #@289 ("\2060 \303\304\n!\211\2050\305\n!)\20690\20360\3061'0\305\307 !0\202+0\210\20260\20360\310\n\303\311#\20690\312p!*\207" . [pop-up-windows pop-up-frames buf nil get-buffer-window select-window (error) split-window-below switch-to-buffer force-same-window pop-to-buffer]) (#$ . 2438) nil 5 (#$ . 2215)])
#@123 Hide the buffer BUF that was temporarily popped up.
BUF is assumed to be a temporary buffer used from the buffer MAINBUF.
(defalias 'cvs-bury-buffer #[(buf &optional mainbuf) #@397 ("r\304 =\203
0\305 \2020\306\307\"\211\203.0\310 !\203.0\3111'0\312 !0\202-0\210\313\314 !!\210)rq\210\315\304 =\205>0\310 ??\205C0!\210)\n\205]0\306\n!\206T0\306\n\316\"\211\205\\0\317 !))\207" . [buf win mainbuf mainwin window-buffer selected-window get-buffer-window t window-dedicated-p (error) delete-window iconify-frame window-frame bury-buffer visible select-window]) (#$ . 2946) nil 4 (#$ . 2764) (list (current-buffer))])
#@400 Create a buffer NAME unless such a buffer already exists.
If the NAME looks like an absolute file name, the buffer will be created
with `create-file-buffer' and will probably get another name than NAME.
In such a case, the search for another buffer with the same name doesn't
use the buffer name but the buffer's `list-buffers-directory' variable.
If NOREUSE is non-nil, always return a new buffer.
(defalias 'cvs-get-buffer-create #[(name &optional noreuse) #@357 ("\305!\2040 \2030\306!\2020\307!\206Q0 \204G0\3102D0\311 \312\211\205B0 @r\nq\210\f\232\20390\313\310\n\"\210) A\211\204'0\312*0\206Q0r\314!q\210p)\207" . [name noreuse buf --dolist-tail-- list-buffers-directory file-name-absolute-p generate-new-buffer get-buffer-create --cl-block-nil-- buffer-list nil throw create-file-buffer]) (#$ . 3870) nil 4 (#$ . 3404)])
#@106 Insert a list of STRINGS into the current buffer.
Uses columns to keep the listing readable but compact.
(defalias 'cvs-insert-strings #[(strings) #@344 (":\205_0\306\307\310\301\"\"\311 S\312\n\312 \\\245]\313G\312\245]^\n \245\211 \314 \211 \205]0@n\204O0\315c\210\n\fG]i\\W\203O0\316\317!\210\320c\210c\210A\211\20400\314.\207" . [strings length wwidth columns colwidth tab-width apply max mapcar window-width 2 1 nil " " delete-char -2 "\n" str --dolist-tail--]) (#$ . 4418) nil 6 (#$ . 4264)])
#@242 Read the content of FILE and return it as a string.
If ONELINE is t, only the first line (no \n) will be returned.
If ARGS is non-nil, the file will be executed with ARGS as its
arguments. If ARGS is not a list, no argument will be passed.
(defalias 'cvs-file-to-string #[(file &optional oneline args) #@361 ("\3041:0\305\306!rq\210\307\216 \203$0\310\311\n\312\313\312 <\205 0 &\210\202(0\314\n!\210eb\210` \20350\315 \20260d{+0\207\210\312\207" . [#1=#:temp-buffer args file oneline (file-error) generate-new-buffer " *temp*" #[nil "\301!\205 0\302!\207" [#1# buffer-name kill-buffer] 2] apply call-process nil t insert-file-contents line-end-position]) (#$ . 5109) nil 7 (#$ . 4799)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias cvs-string-prefix-p string-prefix-p nil make-obsolete "24.3"] 4)
(defalias 'cvs-expand-dir-name #[(d) #@67 ("\301\302!!\207" . [d file-name-as-directory expand-file-name]) (#$ . 5674) nil 3])
(put 'cvs-expand-dir-name 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cvs-qtypedesc-p--cmacro #[(_cl-whole-arg cl-x) #@238 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags) t)) nil]) (#$ . 5895) nil 7])
(put 'cvs-qtypedesc-p 'compiler-macro 'cvs-qtypedesc-p--cmacro)
(defalias 'cvs-qtypedesc-p #[(cl-x) #@108 ("\302!\2050G\303Y\2050\304H >\2050\305\207" . [cl-x cl-struct-cvs-qtypedesc-tags vectorp 6 0 t]) (#$ . 6258) nil 2])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cvs-qtypedesc-p side-effect-free error-free put cvs-qtypedesc cl-deftype-satisfies] 4)
(defalias 'cvs-qtypedesc-str2obj--cmacro #[(_cl-whole-arg cl-x) #@273 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-str2obj (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 1)) nil]) (#$ . 6612) nil 7])
(put 'cvs-qtypedesc-str2obj 'compiler-macro 'cvs-qtypedesc-str2obj--cmacro)
(defalias 'cvs-qtypedesc-str2obj #[(cl-x) #@134 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 signal wrong-type-argument cvs-qtypedesc 1]) (#$ . 7028) nil 4])
(function-put 'cvs-qtypedesc-str2obj 'side-effect-free t)
(defalias 'cvs-qtypedesc-obj2str--cmacro #[(_cl-whole-arg cl-x) #@273 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-obj2str (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 2)) nil]) (#$ . 7309) nil 7])
(put 'cvs-qtypedesc-obj2str 'compiler-macro 'cvs-qtypedesc-obj2str--cmacro)
(defalias 'cvs-qtypedesc-obj2str #[(cl-x) #@134 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 signal wrong-type-argument cvs-qtypedesc 2]) (#$ . 7725) nil 4])
(function-put 'cvs-qtypedesc-obj2str 'side-effect-free t)
(defalias 'cvs-qtypedesc-hist-sym--cmacro #[(_cl-whole-arg cl-x) #@274 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-hist-sym (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 3)) nil]) (#$ . 8007) nil 7])
(put 'cvs-qtypedesc-hist-sym 'compiler-macro 'cvs-qtypedesc-hist-sym--cmacro)
(defalias 'cvs-qtypedesc-hist-sym #[(cl-x) #@134 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 signal wrong-type-argument cvs-qtypedesc 3]) (#$ . 8427) nil 4])
(function-put 'cvs-qtypedesc-hist-sym 'side-effect-free t)
(defalias 'cvs-qtypedesc-complete--cmacro #[(_cl-whole-arg cl-x) #@274 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-complete (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 4)) nil]) (#$ . 8710) nil 7])
(put 'cvs-qtypedesc-complete 'compiler-macro 'cvs-qtypedesc-complete--cmacro)
(defalias 'cvs-qtypedesc-complete #[(cl-x) #@134 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 signal wrong-type-argument cvs-qtypedesc 4]) (#$ . 9130) nil 4])
(function-put 'cvs-qtypedesc-complete 'side-effect-free t)
(defalias 'cvs-qtypedesc-require--cmacro #[(_cl-whole-arg cl-x) #@273 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-require (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 5)) nil]) (#$ . 9412) nil 7])
(put 'cvs-qtypedesc-require 'compiler-macro 'cvs-qtypedesc-require--cmacro)
(defalias 'cvs-qtypedesc-require #[(cl-x) #@134 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 signal wrong-type-argument cvs-qtypedesc 5]) (#$ . 9828) nil 4])
(function-put 'cvs-qtypedesc-require 'side-effect-free t)
(defalias 'cvs-qtypedesc-create--cmacro #[(_cl-whole-arg str2obj obj2str &optional complete hist-sym require) #@348 ("\305\306\307\310\211\211 \n \f&\n\207" . [str2obj obj2str complete hist-sym require cl--defsubst-expand (str2obj obj2str complete hist-sym require) (cl-block cvs-qtypedesc-create "Constructor for objects of type `cvs-qtypedesc'." (declare (side-effect-free t)) (vector 'cl-struct-cvs-qtypedesc str2obj obj2str hist-sym complete require)) nil]) (#$ . 10155) nil 11])
(put 'cvs-qtypedesc-create 'compiler-macro 'cvs-qtypedesc-create--cmacro)
#@50 Constructor for objects of type `cvs-qtypedesc'.
(defalias 'cvs-qtypedesc-create #[(str2obj obj2str &optional complete hist-sym require) #@104 ("\305\306 \n \f&\207" . [str2obj obj2str hist-sym complete require vector cl-struct-cvs-qtypedesc]) (#$ . 10747) nil 7 (#$ . 10603)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put cvs-qtypedesc-create side-effect-free t cl-struct-define cvs-qtypedesc nil cl-structure-object ((cl-tag-slot) (str2obj) (obj2str) (hist-sym) (complete) (require)) cl-struct-cvs-qtypedesc-tags cl-struct-cvs-qtypedesc] 10)
(defconst cvs-qtypedesc-string1 (byte-code "\300\301\302\211\303\304\303&\207" [vector cl-struct-cvs-qtypedesc identity nil t] 7))
(defconst cvs-qtypedesc-string (byte-code "\300\301\302\211\303\211\211&\207" [vector cl-struct-cvs-qtypedesc identity nil] 7))
(defconst cvs-qtypedesc-strings (byte-code "\300\301\302\303\304\211\211&\207" [vector cl-struct-cvs-qtypedesc split-string-and-unquote combine-and-quote-strings nil] 7))
(defalias 'cvs-query-read #[(default prompt qtypedesc &optional hist-sym) #@553 ("\2060 \n\206 0\306H >\2040\307\310\311D\"\210\312H\306H >\204,0\307\310\311D\"\210\313H \314\f!\20580\f \306H >\204H0\307\310\311D\"\210\315H! \306H >\204_0\307\310\311D\"\210\316H\f\204p0\317\n#\202\2270\314\f!\203\2250\320
\321\306H >\204\2120\307\310\311D\"\210\322H\n&\202\2270!-\207" . [qtypedesc cvs-qtypedesc-strings hist-sym cl-struct-cvs-qtypedesc-tags complete completions 0 signal wrong-type-argument cvs-qtypedesc 3 4 functionp 2 1 read-string completing-read nil 5 default initval prompt]) (#$ . 11713) nil 9])
(defalias 'cvs-flags-p--cmacro #[(_cl-whole-arg cl-x) #@230 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-cvs-flags-tags) t)) nil]) (#$ . 12346) nil 7])
(put 'cvs-flags-p 'compiler-macro 'cvs-flags-p--cmacro)
(defalias 'cvs-flags-p #[(cl-x) #@104 ("\302!\2050G\303Y\2050\304H >\2050\305\207" . [cl-x cl-struct-cvs-flags-tags vectorp 6 0 t]) (#$ . 12690) nil 2])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cvs-flags-p side-effect-free error-free put cvs-flags cl-deftype-satisfies] 4)
(defalias 'cvs-flags-defaults--cmacro #[(_cl-whole-arg cl-x) #@262 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-defaults (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 1)) nil]) (#$ . 13030) nil 7])
(put 'cvs-flags-defaults 'compiler-macro 'cvs-flags-defaults--cmacro)
(defalias 'cvs-flags-defaults #[(cl-x) #@126 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-flags-tags 0 signal wrong-type-argument cvs-flags 1]) (#$ . 13427) nil 4])
(function-put 'cvs-flags-defaults 'side-effect-free t)
(defalias 'cvs-flags-persist--cmacro #[(_cl-whole-arg cl-x) #@261 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-persist (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 2)) nil]) (#$ . 13694) nil 7])
(put 'cvs-flags-persist 'compiler-macro 'cvs-flags-persist--cmacro)
(defalias 'cvs-flags-persist #[(cl-x) #@126 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-flags-tags 0 signal wrong-type-argument cvs-flags 2]) (#$ . 14087) nil 4])
(function-put 'cvs-flags-persist 'side-effect-free t)
(defalias 'cvs-flags-desc--cmacro #[(_cl-whole-arg cl-x) #@258 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-desc (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 3)) nil]) (#$ . 14350) nil 7])
(put 'cvs-flags-desc 'compiler-macro 'cvs-flags-desc--cmacro)
(defalias 'cvs-flags-desc #[(cl-x) #@126 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-flags-tags 0 signal wrong-type-argument cvs-flags 3]) (#$ . 14731) nil 4])
(function-put 'cvs-flags-desc 'side-effect-free t)
(defalias 'cvs-flags-qtypedesc--cmacro #[(_cl-whole-arg cl-x) #@263 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-qtypedesc (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 4)) nil]) (#$ . 14996) nil 7])
(put 'cvs-flags-qtypedesc 'compiler-macro 'cvs-flags-qtypedesc--cmacro)
(defalias 'cvs-flags-qtypedesc #[(cl-x) #@126 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-flags-tags 0 signal wrong-type-argument cvs-flags 4]) (#$ . 15397) nil 4])
(function-put 'cvs-flags-qtypedesc 'side-effect-free t)
(defalias 'cvs-flags-hist-sym--cmacro #[(_cl-whole-arg cl-x) #@262 ("\301\302\303\304\211\211&\207" . [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-hist-sym (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 5)) nil]) (#$ . 15666) nil 7])
(put 'cvs-flags-hist-sym 'compiler-macro 'cvs-flags-hist-sym--cmacro)
(defalias 'cvs-flags-hist-sym #[(cl-x) #@126 ("\302H >\2040\303\304\305D\"\210\306H\207" . [cl-x cl-struct-cvs-flags-tags 0 signal wrong-type-argument cvs-flags 5]) (#$ . 16063) nil 4])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put cvs-flags-hist-sym side-effect-free t defalias copy-cvs-flags copy-sequence] 4)
(defalias '-cvs-flags-make--cmacro #[(_cl-whole-arg desc defaults &optional qtypedesc hist-sym) #@309 ("\304\305\306\307\211\211 \n & \207" . [desc defaults qtypedesc hist-sym cl--defsubst-expand (desc defaults qtypedesc hist-sym) (cl-block -cvs-flags-make "Constructor for objects of type `cvs-flags'." (declare (side-effect-free t)) (vector 'cl-struct-cvs-flags defaults nil desc qtypedesc hist-sym)) nil]) (#$ . 16458) nil 10])
(put '-cvs-flags-make 'compiler-macro '-cvs-flags-make--cmacro)
#@46 Constructor for objects of type `cvs-flags'.
(defalias '-cvs-flags-make #[(desc defaults &optional qtypedesc hist-sym) #@97 ("\304\305\306 \n &\207" . [defaults desc qtypedesc hist-sym vector cl-struct-cvs-flags nil]) (#$ . 16982) nil 7 (#$ . 16857)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put -cvs-flags-make side-effect-free t cl-struct-define cvs-flags nil cl-structure-object ((cl-tag-slot) (defaults) (persist) (desc) (qtypedesc) (hist-sym)) cl-struct-cvs-flags-tags cl-struct-cvs-flags] 10)
(defalias 'cvs-flags-define '(macro . #[(sym defaults &optional desc qtypedesc hist-sym docstring) #@263 ("\306\307\310\311\312DDDC\313\314\310\315DE\307\301 DC\316\n\313\310\317\320BB\321BBB \f\257EFE
F\207" . [sym defaults desc qtypedesc hist-sym docstring defconst let bound boundp quote if and cvs-flags-p -cvs-flags-make cons ((cdr defaults)) (defaults)]) (#$ . 17515) nil 16]))
#@515 Query flags based on SYM.
Optional argument DESC will be used for the prompt.
If ARG (or a prefix argument) is nil, just use the 0th default.
If it is a non-negative integer, use the corresponding default.
If it is a negative integer, query for a new value of the corresponding
default and return that new value.
If it is \[universal-argument], just query and return a value without
altering the defaults.
If it is \[universal-argument] \[universal-argument], behave just
as if a negative zero was provided.
(defalias 'cvs-flags-query #[(sym &optional desc arg) #@876 ("J\n\2060 \306H >\2040\307\310\311 D\"\210 \312H \306H >\204)0\307\310\311 D\"\210 \313H \306H >\204<0\307\310\311 D\"\210 \314H \315=\203K0\306\202V0\206V0\206V0\306 \316! \306H >\204m0\307\310\311 D\"\210 \317H \306W\2050\320\321[\" :\203\2300\313V\203\2220\322\202\2230\323 \306\324! GW\204\2530\325\326\324!\"\210 \203\320\327\n # \330[ \306H >\204\3130\307\310\311 D\"\210 \317H8 \f
$ _ \323\232\204\3730[ \306H >\204\3570\307\310\311 D\"\210 \317H\233\211 _\240\210)_*\202 8.\207" . [sym flags desc cl-struct-cvs-flags-tags qtypedesc hist-sym 0 signal wrong-type-argument cvs-flags 3 4 5 noquery prefix-numeric-value 1 format " (%sth default)" " (permanent)" "" abs error "There is no %sth default" "%s%s: " cvs-query-read arg current-prefix-arg numarg defaults permstr prompt fs #1=#:c]) (#$ . 18381) nil 7 (#$ . 17806)])
#@37 Set SYM's INDEXth setting to VALUE.
(defalias 'cvs-flags-set #[(sym index value) #@165 (" J\305H\n>\2040\306\307\310 JD\"\210 J\311H\233\211\f\240)\207" . [index sym cl-struct-cvs-flags-tags #1=#:c value 0 signal wrong-type-argument cvs-flags 1]) (#$ . 19383) nil 6 (#$ . 19295)])
(put 'cvs-flags-set 'byte-optimizer 'byte-compile-inline-expand)
(defconst cvs-prefix-number 10)
(defalias 'cvs-prefix-sym #[(sym) #@60 ("\301\302!\303P!\207" . [sym intern symbol-name "-cps"]) (#$ . 19717) nil 3])
(put 'cvs-prefix-sym 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cvs-prefix-define '(macro . #[(sym docstring desc defaults &optional qtypedesc hist-sym) #@427 ("\306\307!\310P!)\311\312\313\n\2060\314\315PF\312 \316\303 DC\317\320\f\303
\257FEE)\207" . [sym cps docstring defaults desc qtypedesc intern symbol-name "-cps" progn defvar nil "" "\nSee `cvs-prefix-set' for further description of the behavior." let (unless (>= (length defaults) cvs-prefix-number) (setq defaults (append defaults (make-list (1- cvs-prefix-number) (nth 0 defaults))))) -cvs-flags-make hist-sym]) (#$ . 19969) nil 12]))
(defalias 'cvs-prefix-make-local #[(sym) #@128 ("\302\303!\304P!)\305!\210\305 !\306 J!L)\207" . [sym cps intern symbol-name "-cps" make-local-variable copy-cvs-flags]) (#$ . 20465) nil 3])
#@458 Set the cvs-prefix contained in SYM.
If ARG is between 0 and 9, it selects the corresponding default.
If ARG is negative (or \[universal-argument] which corresponds to negative 0),
it queries the user and sets the -ARGth default.
If ARG is greater than 9 (or \[universal-argument] \[universal-argument]),
the (ARG mod 10)'th prefix is made persistent.
If ARG is nil toggle the PREFIX's value between its 0th default and nil
and reset the persistence.
(defalias 'cvs-prefix-set #[(sym arg) #@861 ("\306\307!\310P!)J\n\250\2030\n\2020\311\312\n!\313V\203;0 \311H\f>\204.0\314\315\316 D\"\210 \211 \317\320I\210)\321 \322\"\n\204t0 \311H\f>\204O0\314\315\316 D\"\210 \211 \317\323I\210)J?\2050 \311H\f>\204m0\314\315\316 D\"\210 \324H@\2020\n:\2040 \311W\203\3540 [ \311H\f>\204\2200\314\315\316 D\"\210 \324H\233\211 \325 [ \311H\f>\204\2510\314\315\316 D\"\210 \324H8\326\327 \311H\f>\204\2760\314\315\316 D\"\210 \330H\" \311H\f>\204\3210\314\315\316 D\"\210 \331H \311H\f>\204\3430\314\315\316 D\"\210 \332H$\240)\2020 \311H\f>\204\3740\314\315\316 D\"\210 \324H8L\210\333 *\207" . [sym prefix arg numarg cl-struct-cvs-flags-tags #1=#:v intern symbol-name "-cps" 0 prefix-numeric-value 9 signal wrong-type-argument cvs-flags 2 t mod 10 nil 1 cvs-query-read format "%s: " 3 4 5 force-mode-line-update #2=#:v #3=#:c]) (#$ . 21121) nil 11 (#$ . 20619)])
#@87 Return the current value of the prefix SYM.
And reset it unless READ-ONLY is non-nil.
(defalias 'cvs-prefix-get #[(sym &optional read-only) #@256 ("J \204/0\304\305!\306P!)J\211\307H >\204!0\310\311\312\nD\"\210\n\313H)\204/0\314L\210\315 \210\207" . [sym read-only cl-x cl-struct-cvs-flags-tags intern symbol-name "-cps" 0 signal wrong-type-argument cvs-flags 2 nil force-mode-line-update]) (#$ . 22168) nil 6 (#$ . 22021)])
(provide 'pcvs-util)
Kontol Shell Bypass