;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require cl-lib pcvs] 2)
(defvar cvs-status-mode-map (define-keymap :parent cvs-mode-map "n" 'next-line "p" 'previous-line "N" 'cvs-status-next "P" 'cvs-status-prev "M-n" 'cvs-status-next "M-p" 'cvs-status-prev "t" 'cvs-status-cvstrees "T" 'cvs-status-trees ">" 'cvs-mode-checkout))#@43 Hook run at the end of `cvs-status-mode'.
(defvar cvs-status-mode-hook nil (#$ . 406))
(defconst cvs-status-tags-leader-re "^   Existing Tags:$")
(defconst cvs-status-entry-leader-re "^File:\\s-+\\(?:no file \\)?\\(.*\\S-\\)\\s-+Status: \\(.+\\)$")
(defconst cvs-status-dir-re "^cvs[.ex]* [a-z]+: Examining \\(.+\\)$")
(defconst cvs-status-rev-re "[0-9][.0-9]*\\.[.0-9]*[0-9]")
(defconst cvs-status-tag-re "[ 	]\\([a-zA-Z][^ 	\n.]*\\)")
(defconst cvs-status-font-lock-keywords (byte-code "\304B	\n\305B\306BED\207" [cvs-status-entry-leader-re cvs-status-tags-leader-re cvs-status-rev-re cvs-status-tag-re ((1 'cvs-filename) (2 'cvs-need-action)) ((save-excursion (re-search-forward "^\n" nil 'move) (point)) (progn (re-search-backward cvs-status-tags-leader-re nil t) (forward-line 1)) (0 font-lock-comment-face)) ((save-excursion (re-search-forward "^\n" nil 'move) (point)) (progn (re-search-backward cvs-status-tags-leader-re nil t) (forward-line 1)) (1 font-lock-function-name-face))] 5))
(defconst cvs-status-font-lock-defaults '(cvs-status-font-lock-keywords t nil nil nil (font-lock-multiline . t)))
(put 'cvs-status-mode 'mode-class 'special)
(defvar cvs-status-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [cvs-status-mode-hook variable-documentation put "Hook run after entering CVS-Status mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp cvs-status-mode-map definition-name cvs-status-mode] 4)
(defvar cvs-status-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\313#\207" [cvs-status-mode-abbrev-table cvs-status-mode-map variable-documentation put purecopy "Keymap for `cvs-status-mode'." boundp cvs-status-mode-syntax-table definition-name cvs-status-mode defvar-1 nil make-syntax-table "Syntax table for `cvs-status-mode'." define-abbrev-table "Abbrev table for `cvs-status-mode'." derived-mode-parent] 5)#@163 Mode used for cvs status output.

This mode runs the hook `cvs-status-mode-hook', as the final or
penultimate step during initialization.

\{cvs-status-mode-map}
(defalias 'cvs-status-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\306\315!\210\306\316!\210\317)\320\321!\207" [delay-mode-hooks major-mode mode-name cvs-status-mode-map cvs-status-mode-syntax-table cvs-status-mode-abbrev-table make-local-variable t kill-all-local-variables cvs-status-mode "CVS-Status" use-local-map set-syntax-table font-lock-defaults cvs-minor-wrap-function cvs-status-minor-wrap run-mode-hooks cvs-status-mode-hook local-abbrev-table cvs-status-font-lock-defaults] 2 (#$ . 2695) nil])#@126 Go to the next COUNT'th entry.
Interactively, COUNT is the prefix numeric argument, and defaults to 1.

(fn &optional COUNT)
(defalias 'cvs-status-next #[256 "\211\204 \301\262\211\302W\203 \303[!\207\304!\203 \211T\262\305\306\307$\2043 \304!\203. db\207\310\311\312\"\207\302\224b\210p\313 =\205n \314\315!\205n \212\305\306\307\316$)\206P d\317\306\307#?\205l \320 \321\322!\210\320 W\205j \323\306\"\262\262\207" [cvs-status-entry-leader-re 1 0 cvs-status-prev looking-at re-search-forward nil t user-error "No next %s" "entry" window-buffer called-interactively-p interactive 2 pos-visible-in-window-p window-start recenter (0) set-window-start] 6 (#$ . 3403) "p"])
(put 'cvs-status-next 'definition-name 'cvs-status)#@130 Go to the previous COUNT'th entry.
Interactively, COUNT is the prefix numeric argument, and defaults to 1.

(fn &optional COUNT)
(defalias 'cvs-status-prev #[256 "\211\204 \301\262\211\302W\203 \303[!\207\304\305\306$?\205  \307\310\311\"\207" [cvs-status-entry-leader-re 1 0 cvs-status-next re-search-backward nil t user-error "No previous %s" "entry"] 6 (#$ . 4148) "p"])
(put 'cvs-status-prev 'definition-name 'cvs-status)
(defalias 'cvs-status-current-file #[0 "\212\304y\210\305\306\307#\204 \310!\210\311\304!\305	\306\307#\205 \311\304!\312\302!\205/ \305\n\306\307#\205/ \311\304!\313\211\203< \314\313\"\262\203F \314\"\262\314\")\266\204)\207" [cvs-status-entry-leader-re cvs-status-dir-re cvs-pcl-cvs-dirchange-re default-directory 1 re-search-backward nil t re-search-forward match-string boundp "" expand-file-name] 7])
(defalias 'cvs-status-current-tag #[0 "\212`i\302\303\304#\210`\305\306\303\304#\210`W\205\\ \211V\205\\ b\210\303\210\303`\307 \210\305	\304#\203Y i\212\310\224b\210i)\311	Z!\311\nZ!^\211W\203T \211\262\312\310!\262\266\202) \266\203\266\204)\207" [cvs-status-tags-leader-re cvs-status-tag-re re-search-backward nil t re-search-forward "^$" beginning-of-line 1 abs match-string] 13])#@14 

(fn BUF F)
(defalias 'cvs-status-minor-wrap #[514 "rq\210\305 \306 B\205 \212\307 b\210\305 \306 )B)B\211@A@A\205& AA@@A@\205> @@A@\232?\205> A@CB\310 ,\207" [mark-active cvs-force-command cvs-minor-current-files cvs-secondary-branch-prefix cvs-branch-prefix cvs-status-current-file cvs-status-current-tag mark "/F"] 8 (#$ . 5408)])#@66 compiler-macro for inlining `cvs-tag-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-tag-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag-p (and (memq (type-of cl-x) cl-struct-cvs-tag-tags) t)) nil] 9 (#$ . 5763)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-tag-p compiler-macro cvs-tag-p--cmacro] 4)#@13 

(fn CL-X)
(defalias 'cvs-tag-p #[257 "\301!>\205	 \302\207" [cl-struct-cvs-tag-tags type-of t] 3 (#$ . 6132)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put cvs-tag-p side-effect-free error-free pure t define-symbol-prop cvs-tag cl-deftype-satisfies] 6)#@71 compiler-macro for inlining `cvs-tag->vlist'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-tag->vlist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->vlist (progn (or (cvs-tag-p cl-x) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 1))) nil] 9 (#$ . 6436)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-tag->vlist compiler-macro cvs-tag->vlist--cmacro] 4)#@58 Access slot "vlist" of `cvs-tag' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-tag->name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->name (progn (or (cvs-tag-p cl-x) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 2))) nil] 9 (#$ . 7193)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-tag->name compiler-macro cvs-tag->name--cmacro] 4)#@57 Access slot "name" of `cvs-tag' struct CL-X.

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

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-tag->type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->type (progn (or (cvs-tag-p cl-x) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 3))) nil] 9 (#$ . 7942)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-tag->type compiler-macro cvs-tag->type--cmacro] 4)#@57 Access slot "type" of `cvs-tag' struct CL-X.

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

(fn CL-WHOLE-ARG VLIST &optional NAME TYPE)
(defalias 'cvs-tag-make--cmacro #[1026 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (vlist name type) (cl-block cvs-tag-make (record 'cvs-tag vlist name type)) nil] 13 (#$ . 8737)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-tag-make compiler-macro cvs-tag-make--cmacro] 4)#@76 Constructor for objects of type `cvs-tag'.

(fn VLIST &optional NAME TYPE)
(defalias 'cvs-tag-make #[769 "\300\301$\207" [record cvs-tag] 8 (#$ . 9140)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put cvs-tag-make side-effect-free t cl-struct-define cvs-tag nil cl-structure-object record ((cl-tag-slot) (vlist) (name) (type)) cl-struct-cvs-tag-tags] 11)#@11 

(fn VL)
(defalias 'cvs-status-vl-to-str #[257 "\300\301\302#\207" [mapconcat number-to-string "."] 5 (#$ . 9547)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put cvs-status-vl-to-str speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@12 

(fn TAG)
(defalias 'cvs-tag->string #[257 "\211;\203 \207\301!>\204 \302\303\304D\"\210\211\305H\301!>\204' \302\303\304D\"\210\306H\2045 \211\307\310\311#\207\211\203G \312\307\310\311#\262\313Q\202H \314:\203U \315\316\317\"\"\207P\207" [cl-struct-cvs-tag-tags type-of signal wrong-type-argument cvs-tag 2 1 mapconcat number-to-string "." " (" ")" "" mapcar make-closure #[257 "\211\300P\207" [V0] 3 "\n\n(fn NAME)"]] 9 (#$ . 9816)])#@16 

(fn VL1 VL2)
(defalias 'cvs-tag-compare-1 #[514 "\204\n \211\204\n \300\207\204 \301\207\211\204 \302\207@@V\203$ \266\302\207W\203. \266\301\207\303AA\"\207" [equal more2 more1 cvs-tag-compare-1] 7 (#$ . 10278)])#@18 

(fn TAG1 TAG2)
(defalias 'cvs-tag-compare #[514 "\301\302!>\204 \303\304\305D\"\210\306H\302!>\204\" \303\304\305D\"\210\306H\"\207" [cl-struct-cvs-tag-tags cvs-tag-compare-1 type-of signal wrong-type-argument cvs-tag 1] 8 (#$ . 10513)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put cvs-tag-compare speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@47 Merge TAG1 and TAG2 into one.

(fn TAG1 TAG2)
(defalias 'cvs-tag-merge #[514 "\301!>\204 \302\303\304D\"\210\305H\301!>\204! \302\303\304D\"\210\305H\301!>\2044 \302\303\304D\"\210\306H\301!>\204G \302\303\304D\"\210\306H\301!>\204[ \302\303\304D\"\210\307H\301!>\204o \302\303\304D\"\210\307H\232\204\214 \301!>\204\207 \302\303\304D\"\210\307\310I\210\203\263 \203\311 \232\204\311 \301!>\204\253 \302\303\304D\"\210\305\310I\210\202\311 \301!>\204\304 \302\303\304D\"\210\305I\210\203\361 \301!>\204\336 \302\303\304D\"\210\306D\311\312\313\314\"\"\262I\210\202\301!>\204\302\303\304D\"\210\306I\210\207" [cl-struct-cvs-tag-tags type-of signal wrong-type-argument cvs-tag 3 2 1 nil apply append mapcar #[257 "\211<\203 \207\211C\207" [] 2 "\n\n(fn X)"]] 14 (#$ . 10908)])#@404 Print the tree of TAGS where each tag's string is given by PRINTER.
PRINTER should accept both a tag (in which case it should return a string)
or a string (in which case it should simply return its argument).
A tag cannot be a CONS.  The return value can also be a list of strings,
if several nodes where merged into one.
The tree will be printed no closer than column COLUMN.

(fn TAGS PRINTER COLUMN)
(defalias 'cvs-tree-print #[771 "\212\300\210i)\211\301\\]\204 \207\211:\203 \211@\262\211:\203% \211@\262!\302\303!\303	!\"\212\304y\305U\204: \306c\210\307#)\211Y\204L \310\311!\210\312\313\"\210l\204Y \310\314!\210\211:\203c \211@\262c\210\303!\211\203\314 \211@i\n\211:\203{ \211@\262!\211\211:\203\206 \211@\262G\315\301\245\316\"\317P\212\320c\210\307\303!E\321\302\322\323\"\"\262i#)\212\312!\210`)`|\210\324\315Z\301Z\325\"\324\261\210\300\266A\266\202\202h \210\207" [nil 2 append cvs-cdr 1 0 "\n" cvs-tree-print cl--assertion-failed (>= prefix column) move-to-column t (eolp) make-string 32 "|" " -- " apply mapcar #[257 "\211<\203 \207\211C\207" [] 2 "\n\n(fn X)"] " " 45] 22 (#$ . 11767)])#@135 Merge tags trees TREE1 and TREE2 into one.
BEWARE:  because of stability issues, this is not a symmetric operation.

(fn TREE1 TREE2)
(defalias 'cvs-tree-merge #[514 "<\203\n \211<\204 \301\302!\210\204 \207\211\204 \207@\211\211:\203% \211@\262\303!>\2044 \304\305\306D\"\210\211\307H\211G@\211\211:\203E \211@\262\303!>\204T \304\305\306D\"\210\211\307H\211GU\203\301 \310\303!>\204r \304\305\306D\"\210\307H\303!>\204\204 \304\305\306D\"\210\307H\"\266\202\211\311\267\202\277 \312\f\fA\"B\207\312\fA\f\"B\207\313\"\312\314!\314!\"B\312\fA\fA\"B\207\315\207V\203\331 \312\316\306\317	!\315\211$BC\n\"\207W\205\360 \312\n\316\306\317!\315\211$BC\"\207" [cl-struct-cvs-tag-tags cl--assertion-failed (and (listp tree1) (listp tree2)) type-of signal wrong-type-argument cvs-tag 1 cvs-tag-compare-1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (more1 144 more2 154 equal 165)) cvs-tree-merge cvs-tag-merge cvs-cdr nil record butlast] 18 (#$ . 12922)])#@12 

(fn TAG)
(defalias 'cvs-tag-make-tag #[257 "\300\301\302\3038\304\"\"@\305A@!\306\307$\207" [mapcar string-to-number split-string 2 "\\." intern record cvs-tag] 9 (#$ . 13975)])#@47 Make a tree out of a list of TAGS.

(fn TAGS)
(defalias 'cvs-tags->tree #[257 "\300\301\"\211A\203* \302\203# \303\211A\262\242\211A\262\242\"B\262\202\n \211\237\266\202\202 \211@\207" [mapcar #[257 "\301!\302!>\204 \303\304\305D\"\210\211\306H\307=\204 \211\202: \310\305\311\302!>\2041 \303\304\305D\"\210\312H!\313\211$DC\207" [cl-struct-cvs-tag-tags cvs-tag-make-tag type-of signal wrong-type-argument cvs-tag 3 branch record butlast 1 nil] 9 "\n\n(fn TAG)"] nil cvs-tree-merge] 7 (#$ . 14166)])#@238 Look for a list of tags, read them in and delete them.
Return nil if there was an empty list of tags and t if there wasn't
even a list.  Else, return the list of tags where each element of
the list is a three-string list TAG, KIND, REV.
(defalias 'cvs-status-get-tags #[0 "\304\305\304\306#\204 \306\207\307u\210`\304\306\310\311!\204\343 \310\312!\2032 \313\307!\313\314!\313\315!EB\262\307y\210\202 \310\316!\204> \304\262b\210\204\343 \310\317!\204R \211\203w \310\320!\203w \313\314!\206Y \211\262\313\315!\313\307!\321\232\203j \322\202k \323EB\262\307y\210\202B \310\316!\204\203 \304\262b\210\237\211\262\204\343 \324\n\325Q\326\327Q\326\330\n\331\260\310!\204\254 \310!\204\254 \310!\203\321 \313\315!\313\307!\203\271 \322\202\272 \323\313\332!EB\262\333\225b\210l\203\232 \307u\210\202\232 \266\310\316!\204\337 \304\262b\210\237\262`|)\266\207" [cvs-status-tags-leader-re case-fold-search cvs-status-rev-re cvs-status-tag-re nil re-search-forward t 1 looking-at "\\s-+no\\s-+tags" "^[ 	]+\\([^ 	\n]+\\)[ 	]+(\\([a-z]+\\): \\(.+\\))$" match-string 2 3 "^$" "^   .+\\(.\\)  \\([0-9.]+\\): \\([^\n	 .0-9][^\n	 ]*\\)?$" "^   .+\\(\\)  \\(8\\)?  \\([^\n	 .0-9][^\n	 ]*\\)$" " " "branch" "revision" "[ 	]*\\(-+\\)?\\(|\n?[ 	]+\\)*\\(\\.\\)?\\(" "\\)" "[ 	]*\\(-+\\)?\\(|\n?[ 	]+\\)*" "\\(\\)" " (\\(" "\\))" 4 0] 10 (#$ . 14694)])#@56 Look for a lists of tags, and replace them with trees.
(defalias 'cvs-status-trees #[0 "\212eb\210\302\303\304 \211\262<\205& \214``}\210\305\216\302\306\307!\310\311#+\210\202 )\266\202)\207" [inhibit-read-only combine-after-change-calls t nil cvs-status-get-tags #[0 "\300 \207" [combine-after-change-execute] 1] cvs-tree-print cvs-tags->tree cvs-tag->string 3] 6 (#$ . 16068) nil])
(defvar cvs-tree-use-jisx0208 nil)#@124 Non-nil if we should use the graphical glyphs from `japanese-jisx0208'.
Otherwise, default to ASCII chars like +, - and |.
(defvar cvs-tree-use-charset (byte-code "\203 \301\207\302\303!\203 \304\207\302\305\306\307\310#!\205 \301\207" [cvs-tree-use-jisx0208 jisx0208 char-displayable-p 9473 unicode make-char japanese-jisx0208 40 44] 5) (#$ . 16500))
(defconst cvs-tree-char-space (byte-code "\301\267\202 \302\303\304\211#\207\305\207\306\207" [cvs-tree-use-charset #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (jisx0208 6 unicode 12)) make-char japanese-jisx0208 33 " " "  "] 4))
(defconst cvs-tree-char-hbar (byte-code "\301\267\202 \302\303\304\305#\207\306\207\307\207" [cvs-tree-use-charset #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (jisx0208 6 unicode 12)) make-char japanese-jisx0208 40 44 "━" "--"] 4))
(defconst cvs-tree-char-vbar (byte-code "\301\267\202 \302\303\304\305#\207\306\207\307\207" [cvs-tree-use-charset #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (jisx0208 6 unicode 12)) make-char japanese-jisx0208 40 45 "┃" "| "] 4))
(defconst cvs-tree-char-branch (byte-code "\301\267\202 \302\303\304\305#\207\306\207\307\207" [cvs-tree-use-charset #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (jisx0208 6 unicode 12)) make-char japanese-jisx0208 40 50 "┣" "+-"] 4))
(defconst cvs-tree-char-eob (byte-code "\301\267\202 \302\303\304\305#\207\306\207\307\207" [cvs-tree-use-charset #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (jisx0208 6 unicode 12)) make-char japanese-jisx0208 40 49 "┗" "`-"] 4))
(defconst cvs-tree-char-bob (byte-code "\301\267\202 \302\303\304\305#\207\306\207\307\207" [cvs-tree-use-charset #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (jisx0208 6 unicode 12)) make-char japanese-jisx0208 40 51 "┳" "+-"] 4))#@18 

(fn TAG1 TAG2)
(defalias 'cvs-tag-lessp #[514 "\301\302!>\204 \303\304\305D\"\210\306H\302!>\204$ \303\304\305D\"\210\306H\"\266\202\307=\207" [cl-struct-cvs-tag-tags cvs-tag-compare-1 type-of signal wrong-type-argument cvs-tag 1 more2] 10 (#$ . 18519)])
(defvar cvs-tree-nomerge nil)#@131 Look for a list of tags, and replace it with a tree.
Optional prefix ARG chooses between two representations.

(fn &optional ARG)
(defalias 'cvs-status-cvstrees #[256 "\203 	\204 \306 \307\211\310\311\"\216\312ed\313#\210\314\307!+\266\212eb\210\307\315\203. \f?\202/ \f\316 \211\262<\205r \317\320\"\321\322\"\262\211@\323!>\205c \323!>\204^ \324\325\326D\"\210\211\327H@C\330\216\307\331\"*\266\2022 *\266\202)\207" [cvs-tree-use-charset enable-multibyte-characters inhibit-modification-hooks inhibit-read-only cvs-tree-nomerge cl-struct-cvs-tag-tags buffer-modified-p t make-closure #[0 "\301\300!\207" [V0 restore-buffer-modified-p] 2] decode-coding-region undecided set-buffer-multibyte nil cvs-status-get-tags mapcar cvs-tag-make-tag sort cvs-tag-lessp type-of signal wrong-type-argument cvs-tag 1 #[0 "\300 \207" [combine-after-change-execute] 1] cvs-tree-tags-insert combine-after-change-calls] 9 (#$ . 18823) "P"])#@18 

(fn TAGS PREV)
(defalias 'cvs-tree-tags-insert #[514 "\205]@\306!>\204 \307\310\311D\"\210\211\312HA@\211:\203$ \211@\262	\203G \211\203G \306!>\204< \307\310\311D\"\210\312H\232\203G \202H \313\314#\266\202\212\315 \210\316A\")\317\320\321c\210\211\204o \204o \203\374 \205x @@\232A@A@\232@\203\236 \203\230 \211\203\222 \317\nB\202\334 \317B\202\334 \320\fB\202\334 \203\263 \211\203\254 \320B\202\334 \317\"B\202\334 \320\306\f!>\204\305 \307\310\311D\"\210\322H\323=\203\331 \324\325\"\203\331 \202\333 #B\211Ac\210\211@B\262\210\262\266A\262A\262\211A\262\202c \326\327\330#\262\324\331\313\332#\"\2039\333\334G\\\335\"\306!>\204*\307\310\311D\"\210\n\336H\2062\337\261\266\202Y\340\341\306!>\204M\307\310\311D\"\210\f\336H\206U\337\261\266\211\237\266\206\207" [cl-struct-cvs-tag-tags cvs-tree-nomerge cvs-tree-char-vbar cvs-tree-char-branch cvs-tree-char-bob cvs-tree-char-space type-of signal wrong-type-argument cvs-tag 1 cl-mapcar #[514 "\207" [] 3 "\n\n(fn V P)"] newline cvs-tree-tags-insert t nil "   " 3 branch cl-every null mapconcat number-to-string "." identity equal make-string 4 32 2 "" "  " ": " cvs-tree-char-eob cvs-tree-char-hbar] 19 (#$ . 19777)])
(provide 'cvs-status)