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



(byte-code "\300\301!\210\300\302!\207" [require cl-lib pcvs-util] 2)
#@21 CVS-Status' keymap.
(defconst cvs-status-mode-map (byte-code "\301\302\303\304\300!\205\n\305\306\307\310F$\207" [cvs-status-mode-map easy-mmode-define-keymap (("n" . next-line) ("p" . previous-line) ("N" . cvs-status-next) ("P" . cvs-status-prev) ("\356" . cvs-status-next) ("\360" . cvs-status-prev) ("t" . cvs-status-cvstrees) ("T" . cvs-status-trees) (">" . cvs-mode-checkout)) nil boundp :group cvs-status :inherit cvs-mode-map] 8) (#$ . 154))
#@43 Hook run at the end of `cvs-status-mode'.
(defvar cvs-status-mode-hook nil (#$ . 611))
(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\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\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 (lambda (#1=#:def-tmp-var) (defvar cvs-status-mode-syntax-table #1#)) make-syntax-table "Syntax table for `cvs-status-mode'." (lambda (#1#) (defvar cvs-status-mode-abbrev-table #1#)) define-abbrev-table nil "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 (#$ . 2959) 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$)\206Pd\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 (#$ . 3668) "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 (#$ . 4414) "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#\203Yi\212\310\224b\210i)\311	Z!\311\nZ!^\211W\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 "r
q\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 (#$ . 5675)])
#@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 (#$ . 6031)])
(put 'cvs-tag-p 'compiler-macro 'cvs-tag-p--cmacro)
#@13 

(fn CL-X)
(defalias 'cvs-tag-p #[257 "\301
!>\205	\302\207" [cl-struct-cvs-tag-tags type-of t] 3 (#$ . 6347)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cvs-tag-p side-effect-free error-free put cvs-tag cl-deftype-satisfies] 5)
#@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 (#$ . 6609)])
(put 'cvs-tag->vlist 'compiler-macro 'cvs-tag->vlist--cmacro)
#@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 (#$ . 6992)])
(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 (#$ . 7314)])
(put 'cvs-tag->name 'compiler-macro 'cvs-tag->name--cmacro)
#@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 (#$ . 7692)])
(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 (#$ . 8011)])
(put 'cvs-tag->type 'compiler-macro 'cvs-tag->type--cmacro)
#@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 (#$ . 8389)])
(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 (#$ . 8754)])
(put 'cvs-tag-make 'compiler-macro 'cvs-tag-make--cmacro)
#@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 (#$ . 9104)])
(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 (#$ . 9512)])
(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\"\"\207
P\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 (#$ . 9782)])
#@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\207

W\203.\266\301\207\303AA\"\207" [equal more2 more1 cvs-tag-compare-1] 7 (#$ . 10245)])
#@18 

(fn TAG1 TAG2)
(defalias 'cvs-tag-compare #[514 "\301\302!>\204\303\304\305D\"\210\306H\302!>\204\"\303\304\305D\"\210\306H\"\207" [cl-struct-cvs-tag-tags cvs-tag-compare-1 type-of signal wrong-type-argument cvs-tag 1] 8 (#$ . 10481)])
(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\304D\"\210\306H\301!>\204G\302\303\304D\"\210\306H\301!>\204[\302\303\304D\"\210\307H\301!>\204o\302\303\304D\"\210\307H\232\204\214\301!>\204\207\302\303\304D\"\210\307\310I\210\203\263\203\311\232\204\311\301!>\204\253\302\303\304D\"\210\305\310I\210\202\311\301!>\204\304\302\303\304D\"\210\305I\210
\203\361\301!>\204\336\302\303\304D\"\210\306D\311\312\313\314\"\"\262
I\210\202
\301!>\204
\302\303\304D\"\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 (#$ . 10877)])
#@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
#)\211Y\204L\310\311!\210\312
\313\"\210l\204Y\310\314!\210\211:\203c\211@\262
c\210\303!\211\203\314\211@i\n\211:\203{\211@\262
!\211\211:\203\206\211@\262
G\315
\301\245\316\"\317P\212\320c\210\307\303!E\321\302\322\323\"\"\262
i#)\212\312
!\210`)`|\210\324\315Z\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 (#$ . 11737)])
#@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\211G
U\203\301\310\303!>\204r\304\305\306D\"\210\307H\303!>\204\204\304\305\306D\"\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\207
V\203\331\312\316\306\317	!\315\211$BC\n\"\207
W\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 (#$ . 12893)])
#@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 (#$ . 13947)])
#@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\305D\"\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 (#$ . 14139)])
#@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\262
b\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\262
b\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!EB\262\333\225b\210l\203\232\307u\210\202\232\266\310\316!\204\337\304\262
b\210\237\262
`|\210)\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 (#$ . 14668)])
#@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 (#$ . 16047) 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) (#$ . 16480))
(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\305D\"\210\306H\302!>\204$\303\304\305D\"\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 (#$ . 18500)])
(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!\210+\210\212eb\210\307\315\203.\f?\202/\f
\316 \211\262<\205s\317\320\"\321
\322\"\262
\211@\323
!
>\205c\323
!
>\204^\324\325\326D\"\210\211\327H@C\330\216\307\331\"\210*\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 (#$ . 18805) "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\316A\")\317\320\321c\210\211\204o\204o
\203\374\205x
@@\232A@A@\232@\203\236
\203\230\211\203\222\317\nB\202\334\317B\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\311D\"\210\322H\323=\203\331\324\325\"\203\331
\202\333#B\211Ac\210\211@B\262\210
\262\266A\262
A\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\311D\"\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 (#$ . 19767)])
(provide 'cvs-status)