1#@!#!123s

��JFIF�� 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / vc /
Filename : cvs-status.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/cvs-status.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require pcvs-util custom-declare-group cvs-status nil "Major mode for browsing `cvs status' output." :group pcl-cvs :prefix "cvs-status-"] 8)
#@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) (#$ . 764))
#@43 Hook run at the end of `cvs-status-mode'.
(defvar cvs-status-mode-hook nil (#$ . 1221))
(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)))
(byte-code "\300\301\302\303#\210\304\305N\204�\300\304\305\306\307!#\210\310\311!\204 �\300\311\312\301#\210\300\207" [put cvs-status-mode mode-class special cvs-status-mode-hook variable-documentation purecopy "Hook run when 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] 5)
(defvar cvs-status-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\305\306!\204�\302\306\307\310#\210\300\207" [cvs-status-mode-map variable-documentation put purecopy "Keymap for `cvs-status-mode'." boundp cvs-status-mode-syntax-table definition-name cvs-status-mode] 5)
(defvar cvs-status-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [cvs-status-mode-syntax-table variable-documentation put purecopy "Syntax table for `cvs-status-mode'." cvs-status-mode-abbrev-table definition-name cvs-status-mode] 5)
(defvar cvs-status-mode-abbrev-table (progn (define-abbrev-table 'cvs-status-mode-abbrev-table nil) cvs-status-mode-abbrev-table))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [cvs-status-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `cvs-status-mode'." cvs-status-mode derived-mode-parent nil] 5)
#@154 Mode used for cvs status output.

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

\{cvs-status-mode-map}

(fn)
(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 (#$ . 3735) nil])
#@54 Go to the next COUNT'th entry.

(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\314 !=\205`�\315\316!\205`�\212\305\306\307\317$)\206R�d\320\306\307#?\205^�\321\322!\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 selected-window called-interactively-p interactive 2 pos-visible-in-window-p recenter (0)] 6 (#$ . 4434) "p"])
(put 'cvs-status-next 'definition-name 'cvs-status)
#@57 Go to the previous COUNT'th entry

(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 (#$ . 5060) "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\"\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 "\n\n(fn)"])
(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!^\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 "\n\n(fn)"])
(defalias 'cvs-status-minor-wrap #[514 "rq\210\306 \307 B\205�\212\310 b\210\306 \307 )B)B\211\211@A)\211@A)\205/�\211AA)\211@@)\211A@)\205V�\211@@)\211A@)\232?\205V�\211A@)CB\311 ,\207" [mark-active x cvs-force-command cvs-minor-current-files cvs-secondary-branch-prefix cvs-branch-prefix cvs-status-current-file cvs-status-current-tag mark "/F"] 9 "\n\n(fn BUF F)"])
(byte-code "\300\301\302\303#\210\304\211\203�\300\301\305\306\307!!#\210\207" [put cvs-tag->vlist compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->vlist (or (and (memq (aref cl-x 0) cl-struct-cvs-tag-tags)) (error "%s accessing a non-%s" 'cvs-tag->vlist 'cvs-tag)) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/cvs-status.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'cvs-tag->vlist #[257 "\211\301H>\204�\302\303\304\305#\210\211\306H\207" [cl-struct-cvs-tag-tags 0 error "%s accessing a non-%s" cvs-tag->vlist cvs-tag 1] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203�\300\301\305\306\307!!#\210\207" [put cvs-tag->name compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->name (or (and (memq (aref cl-x 0) cl-struct-cvs-tag-tags)) (error "%s accessing a non-%s" 'cvs-tag->name 'cvs-tag)) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/cvs-status.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'cvs-tag->name #[257 "\211\301H>\204�\302\303\304\305#\210\211\306H\207" [cl-struct-cvs-tag-tags 0 error "%s accessing a non-%s" cvs-tag->name cvs-tag 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203�\300\301\305\306\307!!#\210\207" [put cvs-tag->type compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->type (or (and (memq (aref cl-x 0) cl-struct-cvs-tag-tags)) (error "%s accessing a non-%s" 'cvs-tag->type 'cvs-tag)) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/cvs-status.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'cvs-tag->type #[257 "\211\301H>\204�\302\303\304\305#\210\211\306H\207" [cl-struct-cvs-tag-tags 0 error "%s accessing a non-%s" cvs-tag->type cvs-tag 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203�\300\301\305\306\307!!#\210\207" [put cvs-tag-p compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag-p (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-cvs-tag-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/cvs-status.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'cvs-tag-p #[257 "\301!\205�\211G\302Y\205�\211\303H>\205�\304\207" [cl-struct-cvs-tag-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(defalias 'copy-cvs-tag #[257 "\300!\207" [copy-sequence] 3 "\n\n(fn X)"])
(byte-code "\300\301\302\303#\210\304\211\203�\300\301\305\306\307!!#\210\207" [put cvs-tag-make compiler-macro #[642 "\211A\262@\211A\262@\203�\300\301\302\303G\\D\"\210\304\305\306\302\211\211	&\207" [signal wrong-number-of-arguments nil 4 cl--defsubst-expand (vlist name type) (cl-block cvs-tag-make (vector 'cl-struct-cvs-tag vlist name type))] 14 "\n\n(fn CL-WHOLE-ARG &cl-quote VLIST &optional NAME TYPE)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/cvs-status.el" compiler-macro-file purecopy file-name-nondirectory] 7)
#@34 

(fn VLIST &optional NAME TYPE)
(defalias 'cvs-tag-make #[385 "\211A\262@\211A\262@\203�\300\301\302\303G\\D\"\210\304\305$\207" [signal wrong-number-of-arguments cvs-tag-make 3 vector cl-struct-cvs-tag] 9 (#$ . 9873)])
(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#\207" [cl-struct-cvs-tag-tags cl-struct-cvs-tag put cvs-tag cl-struct-slots ((cl-tag-slot) (vlist) (name) (type)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t cvs-tag-make side-effect-free copy-cvs-tag cvs-tag-p error-free cvs-tag->type cvs-tag->name cvs-tag->vlist] 4)
(defalias 'cvs-status-vl-to-str #[257 "\300\301\302#\207" [mapconcat number-to-string "."] 5 "\n\n(fn VL)"])
(put 'cvs-status-vl-to-str 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cvs-tag->string #[257 "\211;\203�\207\211\301H>\204�\302\303\304\305#\210\211\306H\301H>\204%�\302\303\307\305#\210\310H\2047�\211\311\312\313#\262\202g�\211\203I�\314\311\312\313#\262\315Q\202J�\316:\203b�\317\320\321\322\323\324!\325\"\326\327%\"\202e�P\262\207" [cl-struct-cvs-tag-tags 0 error "%s accessing a non-%s" cvs-tag->name cvs-tag 2 cvs-tag->vlist 1 mapconcat number-to-string "." " (" ")" "" mapcar make-byte-code 257 "\211\300P\207" vconcat vector [] 3 "\n\n(fn NAME)"] 11 "\n\n(fn TAG)"])
(defalias 'cvs-tag-compare-1 #[514 "\204\n�\211\204\n�\300\207\204�\301\207\211\204�\302\207@@V\203$�\302\2024�W\203.�\301\2024�\303AA\"\207" [equal more2 more1 cvs-tag-compare-1] 7 "\n\n(fn VL1 VL2)"])
(defalias 'cvs-tag-compare #[514 "\301\302H>\204�\303\304\305\306#\210\307H\302H>\204 �\303\304\305\306#\210\307H\"\207" [cl-struct-cvs-tag-tags cvs-tag-compare-1 0 error "%s accessing a non-%s" cvs-tag->vlist cvs-tag 1] 8 "\n\n(fn TAG1 TAG2)"])
(put 'cvs-tag-compare 'byte-optimizer 'byte-compile-inline-expand)
#@47 Merge TAG1 and TAG2 into one.

(fn TAG1 TAG2)
(defalias 'cvs-tag-merge #[514 "\302H>\204�\303\304\305\306#\210\307H\302H>\204�\303\304\305\306#\210\307H\302H>\2040�\303\304\310\306#\210\311H\302H>\204A�\303\304\310\306#\210\311H\302H>\204R�\303\304\312\306#\210\313H\302H>\204c�\303\304\312\306#\210\313H\232\204�\302H>\204x�\303\304\312\306#\210\211\313\314I\266\203\245�\203\272�\232\204\272�\302H>\204\233�\303\304\305\306#\210\211\307\314I\266\202\272�\302H>\204\263�\303\304\305\306#\210\211\307I\266\203\341�\302H>\204\314�\303\304\310\306#\210\211\311D\315\316\317\320	\"\")I\266\202\366�\302H>\204\357�\303\304\310\306#\210\211\311I\266\207" [cl-struct-cvs-tag-tags xs 0 error "%s accessing a non-%s" cvs-tag->type cvs-tag 3 cvs-tag->name 2 cvs-tag->vlist 1 nil apply append mapcar #[(x) "<\203�\207C\207" [x] 1]] 14 (#$ . 11879)])
#@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\302\210i)\211\303\\]\204�\211\202\352�\211:\203�@\202 �)\211:\203.�@\202/�)!\304\305!\305	!\"\212\306y\307U\204E�\310c\210\311#)\211Y\204Y�\312\313\314C\"\210\315\316\"\210l\204h�\312\313\317C\"\210\211:\203t�@\202u�)c\210\305!\211\203\347�\211@i\n\211:\203\220�@\202\221�)!\211\211:\203\237�@\202\240�)G\320\303\245\321\"\322P\212\323c\210\311\305!E\324\304\325\326	\"\")i#)\212\315!\210`)`|\210\327\320\330\303#\331\"\327\261\210\302\266A\266\202\202{�\210\266\203\207" [x xs nil 2 append cvs-cdr 1 0 "\n" cvs-tree-print signal cl-assertion-failed (>= prefix column) move-to-column t (eolp) make-string 32 "|" " -- " apply mapcar #[(x) "<\203�\207C\207" [x] 1] " " - 45] 23 (#$ . 12782)])
#@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�\302\303\304C\"\210\204�\207\211\204�\207@\211\211:\203)�@\202*�)\211\305H	>\2049�\306\307\310\311#\210\211\312H\211G@\211\211:\203L�@\202M�)\211\305H	>\204\\�\306\307\310\311#\210\211\312H\211GU\203\335�\313\305H	>\204y�\306\307\310\311#\210\312H\305H	>\204\212�\306\307\310\311#\210\312H\"\266\202\211\314=\203\242�\315\f\fA\"B\202\330�\211\316=\203\265�\315\fA\f\"B\202\330�\211\317=\203\327�\320\"\315\321!\321!\"B\315\fA\fA\"B\202\330�\322\262\202V\203\367�\315\323\324\325	!\322\211$BC\n\"\202W\205\315\n\323\324\325!\322\211$BC\"\207" [x cl-struct-cvs-tag-tags signal cl-assertion-failed (and (listp tree1) (listp tree2)) 0 error "%s accessing a non-%s" cvs-tag->vlist cvs-tag 1 cvs-tag-compare-1 more1 cvs-tree-merge more2 equal cvs-tag-merge cvs-cdr nil vector cl-struct-cvs-tag butlast] 18 (#$ . 13977)])
(defalias 'cvs-tag-make-tag #[257 "\300\301\302\3038\304\"\"\211@\305A@!\306\307$\266\203\207" [mapcar string-to-number split-string 2 "\\." intern vector cl-struct-cvs-tag] 10 "\n\n(fn TAG)"])
#@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@\211A\262@\"B\262\202\n�\211\237\266\202\202�\211@\207" [mapcar #[257 "\301!\211\302H>\204�\303\304\305\306#\210\211\307H\310=\204�\211\2027�\311\312\313\302H>\204.�\303\304\314\306#\210\315H!\316\211$DC\207" [cl-struct-cvs-tag-tags cvs-tag-make-tag 0 error "%s accessing a non-%s" cvs-tag->type cvs-tag 3 branch vector cl-struct-cvs-tag butlast cvs-tag->vlist 1 nil] 9 "\n\n(fn TAG)"] nil cvs-tree-merge] 7 (#$ . 15242)])
#@244 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.

(fn)
(defalias 'cvs-status-get-tags #[0 "\304\305\304\306#\204
�\306\202\357�\307u\210`\304\306\310\311!\204\347�\310\312!\2034�\313\307!\313\314!\313\315!EB\262\307y\210\202�\310\316!\204@�\304\262b\210\204\347�\310\317!\204T�\211\203y�\310\320!\203y�\313\314!\206[�\211\262\313\315!\313\307!\321\232\203l�\322\202m�\323EB\262\307y\210\202D�\310\316!\204\205�\304\262b\210\237\211\262\204\347�\324\211\325\n\326R\327Q\330\n\331\260\310!\204\260�\310!\204\260�\310!\203\325�\313\315!\313\307!\203\275�\322\202\276�\323\313\332!EB\262\333\225b\210l\203\236�\307u\210\202\236�\266\310\316!\204\343�\304\262b\210\237\262`|\210)\266\211\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?[ 	]+\\)*" "\\(\\.\\)?\\(" "\\)" "\\(\\)" " (\\(" "\\))" 4 0] 11 (#$ . 15813)])
#@62 Look for a lists of tags, and replace them with trees.

(fn)
(defalias 'cvs-status-trees #[0 "\212eb\210\302\303\303\262\304 \211\262<\205,�\214``}\210\305\306DC\216\302\307\310!\311\312#\210+\202�)\266\202)\207" [inhibit-read-only combine-after-change-calls t nil cvs-status-get-tags funcall #[0 "\300 \207" [combine-after-change-execute] 1 "\n\n(fn)"] cvs-tree-print cvs-tags->tree cvs-tag->string 3] 6 (#$ . 17179) 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) (#$ . 17652))
(defconst cvs-tree-char-space (byte-code "\301=\203\f�\302\303\304\211#\207\305=\203�\306\207\307\207" [cvs-tree-use-charset jisx0208 make-char japanese-jisx0208 33 unicode " " "  "] 4))
(defconst cvs-tree-char-hbar (byte-code "\301=\203\f�\302\303\304\305#\207\306=\203�\307\207\310\207" [cvs-tree-use-charset jisx0208 make-char japanese-jisx0208 40 44 unicode "━" "--"] 4))
(defconst cvs-tree-char-vbar (byte-code "\301=\203\f�\302\303\304\305#\207\306=\203�\307\207\310\207" [cvs-tree-use-charset jisx0208 make-char japanese-jisx0208 40 45 unicode "┃" "| "] 4))
(defconst cvs-tree-char-branch (byte-code "\301=\203\f�\302\303\304\305#\207\306=\203�\307\207\310\207" [cvs-tree-use-charset jisx0208 make-char japanese-jisx0208 40 50 unicode "┣" "+-"] 4))
(defconst cvs-tree-char-eob (byte-code "\301=\203\f�\302\303\304\305#\207\306=\203�\307\207\310\207" [cvs-tree-use-charset jisx0208 make-char japanese-jisx0208 40 49 unicode "┗" "`-"] 4))
(defconst cvs-tree-char-bob (byte-code "\301=\203\f�\302\303\304\305#\207\306=\203�\307\207\310\207" [cvs-tree-use-charset jisx0208 make-char japanese-jisx0208 40 51 unicode "┳" "+-"] 4))
(defalias 'cvs-tag-lessp #[514 "\301\302H>\204�\303\304\305\306#\210\307H\302H>\204\"�\303\304\305\306#\210\307H\"\266\202\310=\207" [cl-struct-cvs-tag-tags cvs-tag-compare-1 0 error "%s accessing a non-%s" cvs-tag->vlist cvs-tag 1 more2] 10 "\n\n(fn TAG1 TAG2)"])
(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\312\313\314\315!\316\"\317\320%DC\216\321ed\322#\210\323\307!\210+\210\212eb\210\307\324\203:�\f?\202;�\f\324\262\325 \211\262<\205\221�\326\327\"\330\331\"\262\211@\332!\205~�\211G\333Y\205~�\211\312H
>\205~�\211\312H
>\204y�\334\335\336\337#\210\211\340H@C\310\341DC\216\307#\342\"\210*\266\202A�*\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 funcall make-byte-code 0 "\301\300!\207" vconcat vector [restore-buffer-modified-p] 2 "\n\n(fn)" decode-coding-region undecided set-buffer-multibyte nil cvs-status-get-tags mapcar cvs-tag-make-tag sort cvs-tag-lessp vectorp 4 error "%s accessing a non-%s" cvs-tag->vlist cvs-tag 1 #[0 "\300 \207" [combine-after-change-execute] 1 "\n\n(fn)"] cvs-tree-tags-insert combine-after-change-calls] 9 (#$ . 19479) "P"])
(defalias 'cvs-tree-tags-insert #[514 "\205\242@\211\306H>\204�\307\310\311\312#\210\211\313H\211A@)\211:\203(�	@\202)�	)\n\203L�\211\203L�\306H>\204A�\307\310\311\312#\210\313H\232\203L�\202M�\314\315#\266\202\212\316 \210\317A\")\320\321\322c\210\211\204t�\204t�\203&\205}�@@\232\211A@)\211A@)\232@\203\251�\203\243�\211\203\235�\320B\202\320\fB\202\321
B\202\203\277�\211\203\270�\321$B\202\320%B\202\321\306H>\204\317�\307\310\323\312#\210\324H\325=\203\326&'&:\203\370�'&\211A&@!\204\336�\320\211&\202\340�&*\204$\202(B\211Ac\210\211@B\262\210\262\266A\262A\262\211A\262\202h�\327\330\331#\262\332\314\333
\f#&'&:\203U'&\211A&@!\204;\320\211&\202=&*\204\334\335G\\\336\"\n\306H>\204q\307\310\337\312#\210\n\340H\206y\341\261\210\202\234\342\343\f\306H>\204\221\307\310\337\312#\210\f\340H\206\231\341\261\210\266\211\237\266\206\207" [cl-struct-cvs-tag-tags x cvs-tree-nomerge cvs-tree-char-vbar cvs-tree-char-branch cvs-tree-char-bob 0 error "%s accessing a non-%s" cvs-tag->vlist cvs-tag 1 cvs-map #[514 "\207" [] 3 "\n\n(fn V P)"] newline cvs-tree-tags-insert t nil "   " cvs-tag->type 3 branch null mapconcat number-to-string "." identity equal make-string 4 32 cvs-tag->name 2 "" "  " ": " cvs-tree-char-space cvs-tree-char-eob -cvs-every-l -cvs-every-f cvs-tree-char-hbar] 20 "\n\n(fn TAGS PREV)"])
(provide 'cvs-status)