1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / vc /
Filename : pcvs-util.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:54 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el
;;; in Emacs version 24.3.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])(#$ . 622) 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]])(#$ . 850) nil 5])
(put 'cvs-append 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cvs-every #[(-cvs-every-f -cvs-every-l) #@88 (":\2030	\211A@!\20400\302\211\2020?\207" . [-cvs-every-l -cvs-every-f t])(#$ . 1080) nil 4])
(put 'cvs-every 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cvs-union #[(xs ys) #@113 ("\n\305\211\2030\f@\211\235\2040	B\fA\211\204\n0\305	+\207" . [ys zs xs x --dolist-tail-- nil])(#$ . 1285) nil 3])
(defalias 'cvs-map #[(-cvs-map-f &rest -cvs-map-ls) #@214 ("\305\306	\n:\2030\n\211A@!\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])(#$ . 1475) nil 5])
(defalias 'cvs-first #[(l &optional n) #@120 ("\2040	@\207	\20520	\211A@C\211	\20300\304V\20300\n	\211A@C\241\210\nAS\2020*\207" . [n l nl ret 1])(#$ . 1753) 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@
!\2030	B\202 0B\fA\211\204\f0*	\237\237*B\207" . [cdr car l x --dolist-tail-- p nil])(#$ . 2177) nil 3 (#$ . 1898)])
#@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) #@317 ("\2060	\303\304\n!\211\2050\305\n!)\206-0\203*0\303\306\307\217\203*0\310\n\303\311#\206-0\312p!*\207" . [pop-up-windows pop-up-frames buf nil get-buffer-window select-window (byte-code "\300\301 !\207" [select-window split-window-below] 2) ((error)) switch-to-buffer force-same-window pop-to-buffer])(#$ . 2572) nil 5 (#$ . 2349)])
#@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) #@440 ("r\304\305 !=\2030\305 \2020\306\307\"\211\203#0\310	!\203#0\311\312\313\217\210)rq\210\314\304\305 !=\20570\310\305 !??\205<0!\210)\n\205V0\306\n!\206M0\306\n\315\"\211\205U0\316!))\207" . [buf win mainbuf mainwin window-buffer selected-window get-buffer-window t window-dedicated-p nil (delete-window win) ((error (byte-code "\301\302!!\207" [win iconify-frame window-frame] 3))) bury-buffer visible select-window])(#$ . 3108) nil 5 (#$ . 2926) (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) #@426 ("\303!\2040	\2030\304!\2020\305!\206*0	\204 0\306\307\215\206*0r\310!q\210p)\207" . [name noreuse list-buffers-directory file-name-absolute-p generate-new-buffer get-buffer-create --cl-block-nil-- (byte-code "\304 \305\211\205$0	@rq\210\n\232\2030\306\307\"\210)	A\211\204	0\305*\207" [buf --dolist-tail-- name list-buffers-directory buffer-list nil throw --cl-block-nil--] 4) create-file-buffer])(#$ . 4075) nil 2 (#$ . 3609)])
#@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--])(#$ . 4692) nil 6 (#$ . 4538)])
#@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) #@401 ("\300\301\302\217\207" . [nil (byte-code "\304\305!rq\210\306\216	\203 0\307\310\n\311\312\311	<\2050	&\210\202$0\313\n!\210eb\210`\20310\314 \20220d{+\207" [#1=#:temp-buffer args file oneline generate-new-buffer " *temp*" ((byte-code "\301!\203\n0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t insert-file-contents line-end-position] 7) ((file-error))])(#$ . 5383) nil 3 (#$ . 5073)])
(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])(#$ . 5988) nil 3])
(byte-code "\301\302\303\304#\210\301\305\306\307#\210\310\301\305\311\312\313!!#\210)\301\207" [file put cvs-expand-dir-name byte-optimizer byte-compile-inline-expand cvs-qtypedesc-str2obj compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-str2obj (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "%s accessing a non-%s" 'cvs-qtypedesc-str2obj 'cvs-qtypedesc)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-qtypedesc-str2obj #[(cl-x) #@160 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "%s accessing a non-%s" cvs-qtypedesc-str2obj cvs-qtypedesc 1])(#$ . 6717) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-qtypedesc-obj2str compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-obj2str (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "%s accessing a non-%s" 'cvs-qtypedesc-obj2str 'cvs-qtypedesc)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-qtypedesc-obj2str #[(cl-x) #@160 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "%s accessing a non-%s" cvs-qtypedesc-obj2str cvs-qtypedesc 2])(#$ . 7456) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-qtypedesc-hist-sym compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-hist-sym (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "%s accessing a non-%s" 'cvs-qtypedesc-hist-sym 'cvs-qtypedesc)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-qtypedesc-hist-sym #[(cl-x) #@161 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "%s accessing a non-%s" cvs-qtypedesc-hist-sym cvs-qtypedesc 3])(#$ . 8199) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-qtypedesc-complete compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-complete (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "%s accessing a non-%s" 'cvs-qtypedesc-complete 'cvs-qtypedesc)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-qtypedesc-complete #[(cl-x) #@161 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "%s accessing a non-%s" cvs-qtypedesc-complete cvs-qtypedesc 4])(#$ . 8943) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-qtypedesc-require compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-require (or (and (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags)) (error "%s accessing a non-%s" 'cvs-qtypedesc-require 'cvs-qtypedesc)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-qtypedesc-require #[(cl-x) #@160 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-qtypedesc-tags 0 error "%s accessing a non-%s" cvs-qtypedesc-require cvs-qtypedesc 5])(#$ . 9683) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-qtypedesc-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-qtypedesc-p (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-cvs-qtypedesc-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(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])(#$ . 10353) nil 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-qtypedesc-create compiler-macro #[(_cl-whole-arg str2obj obj2str &rest #1=#:--cl-rest--) "\211A@\211A@\211A@\203 �\306\307\310\311G\\D\"\210\312\313\314\310\211\211\f
	\n&\n+\207" [#1# complete hist-sym require str2obj obj2str signal wrong-number-of-arguments nil 6 cl--defsubst-expand (str2obj obj2str complete hist-sym require) (cl-block cvs-qtypedesc-create (vector 'cl-struct-cvs-qtypedesc str2obj obj2str hist-sym complete require))] 11 "\n\n(fn CL-WHOLE-ARG &cl-quote STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@60 

(fn STR2OBJ OBJ2STR &optional COMPLETE HIST-SYM REQUIRE)
(defalias 'cvs-qtypedesc-create #[(str2obj obj2str &rest #1=#:--cl-rest--) "\211A@\211A@\211A@\203 �\306\307\310\311G\\D\"\210\312\313\f
\n	&+\207" [#1# complete hist-sym require str2obj obj2str signal wrong-number-of-arguments cvs-qtypedesc-create 5 vector cl-struct-cvs-qtypedesc] 7 (#$ . 11230)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\317#\210\302\320\315\313#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\207" [cl-struct-cvs-qtypedesc-tags cl-struct-cvs-qtypedesc put cvs-qtypedesc cl-struct-slots ((cl-tag-slot) (str2obj) (obj2str) (hist-sym) (complete) (require)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t cvs-qtypedesc-create side-effect-free cvs-qtypedesc-p error-free cvs-qtypedesc-require cvs-qtypedesc-complete cvs-qtypedesc-hist-sym cvs-qtypedesc-obj2str cvs-qtypedesc-str2obj] 4)
(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) #@673 ("\2060	\n\2060\306H>\2040\307\310\311\312#\210\313H\306H>\204*0\307\310\314\312#\210\315H\316\f!\20560\f \306H>\204E0\307\310\317\312#\210\320H!\306H>\204[0\307\310\321\312#\210\322H\f\204l0\323\n#\202\2220\316\f!\203\2200\324
\325\306H>\204\2050\307\310\326\312#\210\327H\n&\202\2220!-\207" . [qtypedesc cvs-qtypedesc-strings hist-sym cl-struct-cvs-qtypedesc-tags complete completions 0 error "%s accessing a non-%s" cvs-qtypedesc-hist-sym cvs-qtypedesc 3 cvs-qtypedesc-complete 4 functionp cvs-qtypedesc-obj2str 2 cvs-qtypedesc-str2obj 1 read-string completing-read nil cvs-qtypedesc-require 5 default initval prompt])(#$ . 12772) nil 9])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-flags-defaults compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-defaults (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "%s accessing a non-%s" 'cvs-flags-defaults 'cvs-flags)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-flags-defaults #[(cl-x) #@149 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "%s accessing a non-%s" cvs-flags-defaults cvs-flags 1])(#$ . 14005) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-flags-persist compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-persist (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "%s accessing a non-%s" 'cvs-flags-persist 'cvs-flags)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-flags-persist #[(cl-x) #@148 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "%s accessing a non-%s" cvs-flags-persist cvs-flags 2])(#$ . 14710) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-flags-desc compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-desc (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "%s accessing a non-%s" 'cvs-flags-desc 'cvs-flags)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-flags-desc #[(cl-x) #@145 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "%s accessing a non-%s" cvs-flags-desc cvs-flags 3])(#$ . 15402) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-flags-qtypedesc compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-qtypedesc (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "%s accessing a non-%s" 'cvs-flags-qtypedesc 'cvs-flags)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-flags-qtypedesc #[(cl-x) #@150 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "%s accessing a non-%s" cvs-flags-qtypedesc cvs-flags 4])(#$ . 16111) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-flags-hist-sym compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-hist-sym (or (and (memq (aref cl-x 0) cl-struct-cvs-flags-tags)) (error "%s accessing a non-%s" 'cvs-flags-hist-sym 'cvs-flags)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-flags-hist-sym #[(cl-x) #@149 ("\302H	>\2040\303\304\305\306#\210\307H\207" . [cl-x cl-struct-cvs-flags-tags 0 error "%s accessing a non-%s" cvs-flags-hist-sym cvs-flags 5])(#$ . 16821) nil 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-flags-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-flags-p (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-cvs-flags-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(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])(#$ . 17465) nil 2])
(defalias 'copy-cvs-flags #[(x) #@36 ("\301!\207" . [x copy-sequence])(#$ . 17626) nil 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put -cvs-flags-make compiler-macro #[(_cl-whole-arg desc defaults &rest #1=#:--cl-rest--) "\211A@\211A@\203�\305\306\307\310G\\D\"\210\311\312\313\307\211\211\f	\n&	*\207" [#1# qtypedesc hist-sym desc defaults signal wrong-number-of-arguments nil 5 cl--defsubst-expand (desc defaults qtypedesc hist-sym) (cl-block -cvs-flags-make (vector 'cl-struct-cvs-flags defaults nil desc qtypedesc hist-sym))] 10 "\n\n(fn CL-WHOLE-ARG &cl-quote DESC DEFAULTS &optional QTYPEDESC HIST-SYM)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-util.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@51 

(fn DESC DEFAULTS &optional QTYPEDESC HIST-SYM)
(defalias '-cvs-flags-make #[(desc defaults &rest #1=#:--cl-rest--) "\211A@\211A@\203�\305\306\307\310G\\D\"\210\311\312\313\f	\n&*\207" [#1# qtypedesc hist-sym defaults desc signal wrong-number-of-arguments -cvs-flags-make 4 vector cl-struct-cvs-flags nil] 7 (#$ . 18372)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\207" [cl-struct-cvs-flags-tags cl-struct-cvs-flags put cvs-flags cl-struct-slots ((cl-tag-slot) (defaults) (persist) (desc) (qtypedesc) (hist-sym)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t -cvs-flags-make side-effect-free copy-cvs-flags cvs-flags-p error-free cvs-flags-hist-sym cvs-flags-qtypedesc cvs-flags-desc cvs-flags-persist cvs-flags-defaults] 4)
(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)])(#$ . 19463) nil 16]))
#@514 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) #@958 ("J\n\2060	\306H>\2040\307\310\311\312#\210	\313H	\306H>\204'0\307\310\314\312#\210	\315H	\306H>\20490\307\310\316\312#\210	\317H\320=\203H0\306\202S0\206S0\206S0\306\321!	\306H>\204i0\307\310\322\312#\210	\323H_\306W\205{0\324\325[\" :\203\2240\315V\203\2160\326\202\2170\327 \306\330!_GW\204\2470\307\331\330!\"\210 \203\3730\324\332\n #!\333[	\306H>\204\3060\307\310\322\312#\210	\323H8!\f
$\" \327\232\204\3650[	\306H>\204\3510\307\310\322\312#\210	\323H\233\211#\"\240\210)\"*\2020_8.\207" . [sym flags desc cl-struct-cvs-flags-tags qtypedesc hist-sym 0 error "%s accessing a non-%s" cvs-flags-desc cvs-flags 3 cvs-flags-qtypedesc 4 cvs-flags-hist-sym 5 noquery prefix-numeric-value cvs-flags-defaults 1 format " (%sth default)" " (permanent)" "" abs "There is no %sth default" "%s%s: " cvs-query-read arg current-prefix-arg numarg defaults permstr prompt fs #1=#:c])(#$ . 20328) nil 7 (#$ . 19754)])
#@38 Set SYM's INDEX'th setting to VALUE.
(defalias 'cvs-flags-set #[(sym index value) #@187 ("	J\305H\n>\2040\306\307\310\311#\210	J\312H\233\211\f\240)\207" . [index sym cl-struct-cvs-flags-tags #1=#:c value 0 error "%s accessing a non-%s" cvs-flags-defaults cvs-flags 1])(#$ . 21413) nil 6 (#$ . 21324)])
(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"])(#$ . 21769) 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\303DC\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])(#$ . 22021) 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])(#$ . 22517) nil 3])
#@459 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 -ARG'th 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) #@971 ("\306\307!\310P!)J\n\250\2030\n\2020\311\312\n!\313V\203:0	\311H\f>\204-0\314\315\316\317#\210	\211\320\321I\210)\322\323\"\n\204q0	\311H\f>\204M0\314\315\316\317#\210	\211!\320\324I\210)J?\205\3670	\311H\f>\204j0\314\315\325\317#\210	\326H@\202\3670\n:\204|0\311W\203\3440[	\311H\f>\204\2140\314\315\325\317#\210	\326H\233\211\"\327[	\311H\f>\204\2440\314\315\325\317#\210	\326H8\330\331	\311H\f>\204\2700\314\315\332\317#\210	\333H\"	\311H\f>\204\3120\314\315\334\317#\210	\335H	\311H\f>\204\3330\314\315\336\317#\210	\337H$\240)\202\3670	\311H\f>\204\3630\314\315\325\317#\210	\326H8L\210\340 *\207" . [sym prefix arg numarg cl-struct-cvs-flags-tags #1=#:v intern symbol-name "-cps" 0 prefix-numeric-value 9 error "%s accessing a non-%s" cvs-flags-persist cvs-flags 2 t mod 10 nil cvs-flags-defaults 1 cvs-query-read format "%s: " cvs-flags-desc 3 cvs-flags-qtypedesc 4 cvs-flags-hist-sym 5 force-mode-line-update #2=#:v #3=#:c])(#$ . 23174) nil 11 (#$ . 22671)])
#@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) #@277 ("J	\204.0\304\305!\306P!)J\211\307H>\204 0\310\311\312\313#\210\n\314H)\204.0\315L\210\316 \210\207" . [sym read-only cl-x cl-struct-cvs-flags-tags intern symbol-name "-cps" 0 error "%s accessing a non-%s" cvs-flags-persist cvs-flags 2 nil force-mode-line-update])(#$ . 24331) nil 6 (#$ . 24184)])
(provide 'pcvs-util)