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



#@10 

(fn X)
(defalias 'cvs-car #[257 "\211:\203\211@\207\207" [] 2 (#$ . 84)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put cvs-car speed -1 put byte-optimizer byte-compile-inline-expand defalias cvs-cdr cdr-safe] 5)
#@17 

(fn &rest XS)
(defalias 'cvs-append #[128 "\300\301\302\303\"\"\207" [apply append mapcar #[257 "\211<\203\207\211C\207" [] 2 "\n\n(fn X)"]] 6 (#$ . 345)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put cvs-append speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@22 

(fn L &optional N)
(defalias 'cvs-first #[513 "\211\204
@\207
\2054
\211A\262\242C\211\2032\300V\2032
\211A\262\242C\241\210
A\262S\262\202\262
\207" [1] 7 (#$ . 648)])
#@250 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.

(fn P L)
(defalias 'cvs-partition #[514 "\300\211\211\203#\211@
!\203\211B\262\202\211B\262
A\266\202\202\210
\237
\237B\207" [nil] 8 (#$ . 841)])
#@179 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.

(fn BUF)
(defalias 'cvs-pop-to-buffer-same-frame #[257 "\206	\302\303
!\211\205\304
!\262
\2069\2036\3051'\304\306 !0\202+\210\2026\2036\307
\302\310#\2069\311p!*\207" [pop-up-windows pop-up-frames nil get-buffer-window select-window (error) split-window-below switch-to-buffer force-same-window pop-to-buffer] 5 (#$ . 1248)])
#@151 Hide the buffer BUF that was temporarily popped up.
BUF is assumed to be a temporary buffer used from the buffer MAINBUF.

(fn BUF &optional MAINBUF)
(defalias 'cvs-bury-buffer #[513 "r
\300 =\203
\301 \202\302\303\"\211\203/\304
!\203/\3051(\306
!0\266\2020\210\307\310!!\210\210r
q\210\311\300 =\205?\304 ??\205D!\210)\211\205^\302
!\206U\302
\312\"\211\205\\\313
!\262
)\207" [window-buffer selected-window get-buffer-window t window-dedicated-p (error) delete-window iconify-frame window-frame bury-buffer visible select-window] 6 (#$ . 1766) (byte-code "pC\207" [] 1)])
#@429 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.

(fn NAME &optional NOREUSE)
(defalias 'cvs-get-buffer-create #[513 "\301!\204\211\203\302!\202\303!\206M\211\204C\3042@\305 \211\205=\211@r\211q\210\232\2035\306\304\"\210)
A\266\202\202 \262
0\206Mr\307!q\210
p)\207" [list-buffers-directory file-name-absolute-p generate-new-buffer get-buffer-create --cl-block-nil-- buffer-list throw create-file-buffer] 7 (#$ . 2365)])
#@120 Insert a list of STRINGS into the current buffer.
Uses columns to keep the listing readable but compact.

(fn STRINGS)
(defalias 'cvs-insert-strings #[257 "\211:\205P\301\302\303\304\"\"\305 S\306
\306\\\245]\307G\306\245]^

\245\211\211\205L\211@n\204B\310c\210G]i\\W\203B\311\312!\210\313c\210\211c\210
A\266\202\202#\262
\266\204\207" [tab-width apply max mapcar length window-width 2 1 " 	" delete-char -2 "\n"] 10 (#$ . 3165)])
#@276 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.

(fn FILE &optional ONELINE ARGS)
(defalias 'cvs-file-to-string #[769 "\3001A\301\302\303\"r\211q\210\304\305\"\216
\203)\306\307\310\303\310<\205#&\210\202-\311!\210eb\210`\203:\312 \202;d{*\262
0\207\210\310\207" [(file-error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply call-process nil insert-file-contents line-end-position] 11 (#$ . 3618)])
(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)
#@10 

(fn D)
(defalias 'cvs-expand-dir-name #[257 "\300\301!!\207" [file-name-as-directory expand-file-name] 4 (#$ . 4432)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put cvs-expand-dir-name speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@72 compiler-macro for inlining `cvs-qtypedesc-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-qtypedesc-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-p (and (memq (type-of cl-x) cl-struct-cvs-qtypedesc-tags) t)) nil] 9 (#$ . 4705)])
(put 'cvs-qtypedesc-p 'compiler-macro 'cvs-qtypedesc-p--cmacro)
#@13 

(fn CL-X)
(defalias 'cvs-qtypedesc-p #[257 "\301
!>\205	\302\207" [cl-struct-cvs-qtypedesc-tags type-of t] 3 (#$ . 5057)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cvs-qtypedesc-p side-effect-free error-free put cvs-qtypedesc cl-deftype-satisfies] 5)
#@78 compiler-macro for inlining `cvs-qtypedesc-str2obj'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-qtypedesc-str2obj--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-str2obj (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 1))) nil] 9 (#$ . 5343)])
(put 'cvs-qtypedesc-str2obj 'compiler-macro 'cvs-qtypedesc-str2obj--cmacro)
#@66 Access slot "str2obj" of `cvs-qtypedesc' struct CL-X.

(fn CL-X)
(defalias 'cvs-qtypedesc-str2obj #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 1] 5 (#$ . 5773)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-str2obj side-effect-free t] 4)
#@78 compiler-macro for inlining `cvs-qtypedesc-obj2str'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-qtypedesc-obj2str--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-obj2str (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 2))) nil] 9 (#$ . 6129)])
(put 'cvs-qtypedesc-obj2str 'compiler-macro 'cvs-qtypedesc-obj2str--cmacro)
#@66 Access slot "obj2str" of `cvs-qtypedesc' struct CL-X.

(fn CL-X)
(defalias 'cvs-qtypedesc-obj2str #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 2] 5 (#$ . 6559)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-obj2str side-effect-free t] 4)
#@79 compiler-macro for inlining `cvs-qtypedesc-hist-sym'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-qtypedesc-hist-sym--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-hist-sym (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 3))) nil] 9 (#$ . 6915)])
(put 'cvs-qtypedesc-hist-sym 'compiler-macro 'cvs-qtypedesc-hist-sym--cmacro)
#@67 Access slot "hist-sym" of `cvs-qtypedesc' struct CL-X.

(fn CL-X)
(defalias 'cvs-qtypedesc-hist-sym #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 3] 5 (#$ . 7350)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-hist-sym side-effect-free t] 4)
#@79 compiler-macro for inlining `cvs-qtypedesc-complete'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-qtypedesc-complete--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-complete (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 4))) nil] 9 (#$ . 7709)])
(put 'cvs-qtypedesc-complete 'compiler-macro 'cvs-qtypedesc-complete--cmacro)
#@67 Access slot "complete" of `cvs-qtypedesc' struct CL-X.

(fn CL-X)
(defalias 'cvs-qtypedesc-complete #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 4] 5 (#$ . 8144)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-complete side-effect-free t] 4)
#@78 compiler-macro for inlining `cvs-qtypedesc-require'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-qtypedesc-require--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-require (progn (or (cvs-qtypedesc-p cl-x) (signal 'wrong-type-argument (list 'cvs-qtypedesc cl-x))) (aref cl-x 5))) nil] 9 (#$ . 8503)])
(put 'cvs-qtypedesc-require 'compiler-macro 'cvs-qtypedesc-require--cmacro)
#@66 Access slot "require" of `cvs-qtypedesc' struct CL-X.

(fn CL-X)
(defalias 'cvs-qtypedesc-require #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 5] 5 (#$ . 8933)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-qtypedesc-require side-effect-free t] 4)
#@124 compiler-macro for inlining `cvs-qtypedesc-create'.

(fn CL-WHOLE-ARG STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE)
(defalias 'cvs-qtypedesc-create--cmacro #[1539 "\300\301\302\303\211\211\n\n\n\n\n&\n\207" [cl--defsubst-expand (str2obj obj2str complete hist-sym require) (cl-block cvs-qtypedesc-create (record 'cvs-qtypedesc str2obj obj2str hist-sym complete require)) nil] 17 (#$ . 9290)])
(put 'cvs-qtypedesc-create 'compiler-macro 'cvs-qtypedesc-create--cmacro)
#@108 Constructor for objects of type `cvs-qtypedesc'.

(fn STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE)
(defalias 'cvs-qtypedesc-create #[1282 "\300\301&\207" [record cvs-qtypedesc] 12 (#$ . 9775)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put cvs-qtypedesc-create side-effect-free t cl-struct-define cvs-qtypedesc nil cl-structure-object record ((cl-tag-slot) (str2obj) (obj2str) (hist-sym) (complete) (require)) cl-struct-cvs-qtypedesc-tags] 11)
(defconst cvs-qtypedesc-string1 (byte-code "\300\301\302\211\303\304\303&\207" [record cvs-qtypedesc identity nil t] 7))
(defconst cvs-qtypedesc-string (byte-code "\300\301\302\211\303\211\211&\207" [record cvs-qtypedesc identity nil] 7))
(defconst cvs-qtypedesc-strings (byte-code "\300\301\302\303\304\211\211&\207" [record cvs-qtypedesc split-string-and-unquote combine-and-quote-strings nil] 7))
#@52 

(fn DEFAULT PROMPT QTYPEDESC &optional HIST-SYM)
(defalias 'cvs-query-read #[1027 "
\206
\206\302
!	>\204\303\304\305D\"\210\211\306H\302!	>\204*\303\304\305D\"\210
\307H\310
!\2055\211 \302!	>\204E\303\304\305D\"\210\311H!\302!	>\204[\303\304\305D\"\210\312H\204l\313	#\202\226\310!\203\225\314	\315\302\n!	>\204\210\303\304\305\fD\"\210	\316H\n&\202\226
!\207" [cvs-qtypedesc-strings cl-struct-cvs-qtypedesc-tags type-of signal wrong-type-argument cvs-qtypedesc 3 4 functionp 2 1 read-string completing-read nil 5] 18 (#$ . 10691)])
#@68 compiler-macro for inlining `cvs-flags-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-flags-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-flags-p (and (memq (type-of cl-x) cl-struct-cvs-flags-tags) t)) nil] 9 (#$ . 11278)])
(put 'cvs-flags-p 'compiler-macro 'cvs-flags-p--cmacro)
#@13 

(fn CL-X)
(defalias 'cvs-flags-p #[257 "\301
!>\205	\302\207" [cl-struct-cvs-flags-tags type-of t] 3 (#$ . 11607)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cvs-flags-p side-effect-free error-free put cvs-flags cl-deftype-satisfies] 5)
#@75 compiler-macro for inlining `cvs-flags-defaults'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-flags-defaults--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-flags-defaults (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 1))) nil] 9 (#$ . 11878)])
(put 'cvs-flags-defaults 'compiler-macro 'cvs-flags-defaults--cmacro)
#@63 Access slot "defaults" of `cvs-flags' struct CL-X.

(fn CL-X)
(defalias 'cvs-flags-defaults #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 1] 5 (#$ . 12286)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-defaults side-effect-free t] 4)
#@74 compiler-macro for inlining `cvs-flags-persist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-flags-persist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-flags-persist (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 2))) nil] 9 (#$ . 12626)])
(put 'cvs-flags-persist 'compiler-macro 'cvs-flags-persist--cmacro)
#@62 Access slot "persist" of `cvs-flags' struct CL-X.

(fn CL-X)
(defalias 'cvs-flags-persist #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 2] 5 (#$ . 13029)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-persist side-effect-free t] 4)
#@71 compiler-macro for inlining `cvs-flags-desc'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-flags-desc--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-flags-desc (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 3))) nil] 9 (#$ . 13366)])
(put 'cvs-flags-desc 'compiler-macro 'cvs-flags-desc--cmacro)
#@59 Access slot "desc" of `cvs-flags' struct CL-X.

(fn CL-X)
(defalias 'cvs-flags-desc #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 3] 5 (#$ . 13754)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-desc side-effect-free t] 4)
#@76 compiler-macro for inlining `cvs-flags-qtypedesc'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-flags-qtypedesc--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-flags-qtypedesc (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 4))) nil] 9 (#$ . 14082)])
(put 'cvs-flags-qtypedesc 'compiler-macro 'cvs-flags-qtypedesc--cmacro)
#@64 Access slot "qtypedesc" of `cvs-flags' struct CL-X.

(fn CL-X)
(defalias 'cvs-flags-qtypedesc #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 4] 5 (#$ . 14495)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-flags-qtypedesc side-effect-free t] 4)
#@75 compiler-macro for inlining `cvs-flags-hist-sym'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-flags-hist-sym--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-flags-hist-sym (progn (or (cvs-flags-p cl-x) (signal 'wrong-type-argument (list 'cvs-flags cl-x))) (aref cl-x 5))) nil] 9 (#$ . 14838)])
(put 'cvs-flags-hist-sym 'compiler-macro 'cvs-flags-hist-sym--cmacro)
#@63 Access slot "hist-sym" of `cvs-flags' struct CL-X.

(fn CL-X)
(defalias 'cvs-flags-hist-sym #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 5] 5 (#$ . 15246)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put cvs-flags-hist-sym side-effect-free t defalias copy-cvs-flags copy-sequence] 4)
#@110 compiler-macro for inlining `-cvs-flags-make'.

(fn CL-WHOLE-ARG DESC DEFAULTS &optional QTYPEDESC HIST-SYM)
(defalias '-cvs-flags-make--cmacro #[1283 "\300\301\302\303\211\211				&	\207" [cl--defsubst-expand (desc defaults qtypedesc hist-sym) (cl-block -cvs-flags-make (record 'cvs-flags defaults nil desc qtypedesc hist-sym)) nil] 15 (#$ . 15635)])
(put '-cvs-flags-make 'compiler-macro '-cvs-flags-make--cmacro)
#@95 Constructor for objects of type `cvs-flags'.

(fn DESC DEFAULTS &optional QTYPEDESC HIST-SYM)
(defalias '-cvs-flags-make #[1026 "\300\301\302&\207" [record cvs-flags nil] 11 (#$ . 16060)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put -cvs-flags-make side-effect-free t cl-struct-define cvs-flags nil cl-structure-object record ((cl-tag-slot) (defaults) (persist) (desc) (qtypedesc) (hist-sym)) cl-struct-cvs-flags-tags] 11)
#@65 

(fn SYM DEFAULTS &optional DESC QTYPEDESC HIST-SYM DOCSTRING)
(defalias 'cvs-flags-define '(macro . #[1538 "\300\301\302\303\304DDDC\305\306\302\307
DE\301\310
DC\311
\305\302\312\313BB\314BBB\257EFEF\207" [defconst let bound boundp quote if and cvs-flags-p defaults -cvs-flags-make cons ((cdr defaults)) (defaults)] 22 (#$ . 16544)]))
#@544 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.

(fn SYM &optional DESC ARG)
(defalias 'cvs-flags-query #[769 "J\206\302
!>\204\303\304\305D\"\210\211\306H\302!>\204'\303\304\305D\"\210
\307H\302!>\2049\303\304\305D\"\210\310H\311=\203F\312\202O\206O	\206O\312\313
!\302!>\204c\303\304\305D\"\210\314H
\312W\205q\315\316[\":\203\206\307V\203\200\317\202\201\320\262
\312\262\321!GW\204\226\322\323\321!\"\210\211\203\343\315\324#\325[\302!>\204\264\303\304\305
D\"\210\n\314H8		$\320\232\204\342[\302!>\204\330\303\304\305
D\"\210\n\314H\233\211\240\266\2078\207" [cl-struct-cvs-flags-tags current-prefix-arg type-of signal wrong-type-argument cvs-flags 3 4 5 noquery 0 prefix-numeric-value 1 format " (%sth default)" " (permanent)" "" abs error "There is no %sth default" "%s%s: " cvs-query-read] 18 (#$ . 16906)])
#@59 Set SYM's INDEXth setting to VALUE.

(fn SYM INDEX VALUE)
(defalias 'cvs-flags-set #[771 "
\301J!>\204\302\303\304JD\"\210J\305H\233\211\240\207" [cl-struct-cvs-flags-tags type-of signal wrong-type-argument cvs-flags 1] 8 (#$ . 18263)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put cvs-flags-set speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defconst cvs-prefix-number 10)
#@12 

(fn SYM)
(defalias 'cvs-prefix-sym #[257 "\300\301!\302P!\207" [intern symbol-name "-cps"] 4 (#$ . 18685)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put cvs-prefix-sym speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@65 

(fn SYM DOCSTRING DESC DEFAULTS &optional QTYPEDESC HIST-SYM)
(defalias 'cvs-prefix-define '(macro . #[1540 "\300\301!\302P!\262
\303\304\305	\206\306\307PF\304\310\311	DC\312\313\f\311\f\f\257FEE\207" [intern symbol-name "-cps" progn defvar nil "" "\nSee `cvs-prefix-set' for further description of the behavior." let defaults (unless (>= (length defaults) cvs-prefix-number) (setq defaults (append defaults (make-list (1- cvs-prefix-number) (nth 0 defaults))))) -cvs-flags-make] 19 (#$ . 18942)]))
#@12 

(fn SYM)
(defalias 'cvs-prefix-make-local #[257 "\211\300\301!\302P!\262
\303!\210\303
!\304J!L\207" [intern symbol-name "-cps" make-local-variable copy-cvs-flags] 5 (#$ . 19463)])
#@472 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.

(fn SYM ARG)
(defalias 'cvs-prefix-set #[514 "
\301\302!\303P!\262
J
\250\203
\202\304\305!\306V\2037\307!>\204,\310\311\312D\"\210
\313\314I\210\315
\316\"\262
\204l\307!>\204K\310\311\312D\"\210\313\317I\210J?\205
\307!>\204e\310\311\312D\"\210\320H@\202
:\204w
\304W\203\360
[\307!>\204\211\310\311\312D\"\210\320H\233\211\321[\307!>\204\242\310\311\312	D\"\210\320H8\322\323\307	!>\204\272\310\311\312D\"\210\324H\"\307!>\204\320\310\311\312\nD\"\210\325H\307	!>\204\345\310\311\312D\"\210\326H$\240\262
\202

\307!>\204

\310\311\312D\"\210\320H8L\210\327 \207" [cl-struct-cvs-flags-tags intern symbol-name "-cps" 0 prefix-numeric-value 9 type-of signal wrong-type-argument cvs-flags 2 t mod 10 nil 1 cvs-query-read format "%s: " 3 4 5 force-mode-line-update] 15 (#$ . 19656)])
#@117 Return the current value of the prefix SYM.
And reset it unless READ-ONLY is non-nil.

(fn SYM &optional READ-ONLY)
(defalias 'cvs-prefix-get #[513 "
J
\204/\301\302!\303P!\262
J\304
!>\204 \305\306\307D\"\210\211\310H\262
\204/\311L\210\312 \210\207" [cl-struct-cvs-flags-tags intern symbol-name "-cps" type-of signal wrong-type-argument cvs-flags 2 nil force-mode-line-update] 8 (#$ . 20975)])
(provide 'pcvs-util)