HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/vc/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/vc/cvs-status.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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" #$))

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


(require 'pcvs-util)
#@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) (#$ . 429))
#@43 Hook run at the end of `cvs-status-mode'.
(defvar cvs-status-mode-hook nil (#$ . 886))
(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 (#$ . 3234) 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 =\205^\314\315!\205^\212\305\306\307\316$)\206Pd\317\306\307#?\205\\\320\321!\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 recenter (0)] 6 (#$ . 3942) "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 (#$ . 4548) "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])
(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 "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 (#$ . 5733)])
#@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 (#$ . 6089)])
(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 (#$ . 6405)])
(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 (or (cvs-tag-p cl-x) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 1)) nil] 9 (#$ . 6667)])
(put 'cvs-tag->vlist 'compiler-macro 'cvs-tag->vlist--cmacro)
#@158 Access slot "vlist" of `(cvs-tag (:constructor nil) (:constructor cvs-tag-make (vlist &optional name type)) (:conc-name 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 (#$ . 7043)])
(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 (or (cvs-tag-p cl-x) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 2)) nil] 9 (#$ . 7465)])
(put 'cvs-tag->name 'compiler-macro 'cvs-tag->name--cmacro)
#@157 Access slot "name" of `(cvs-tag (:constructor nil) (:constructor cvs-tag-make (vlist &optional name type)) (:conc-name 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 (#$ . 7836)])
(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 (or (cvs-tag-p cl-x) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 3)) nil] 9 (#$ . 8255)])
(put 'cvs-tag->type 'compiler-macro 'cvs-tag->type--cmacro)
#@157 Access slot "type" of `(cvs-tag (:constructor nil) (:constructor cvs-tag-make (vlist &optional name type)) (:conc-name 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 (#$ . 8626)])
(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 (#$ . 9091)])
(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 (#$ . 9441)])
(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 (#$ . 9849)])
(put 'cvs-status-vl-to-str 'byte-optimizer 'byte-compile-inline-expand)
#@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\2049\211\307\310\311#\262\202i\211\203K\312\307\310\311#\262\313Q\202L\314:\203d\315\316\317\320\321\322!\323\"\324\325%\"\202gP\262\207" [cl-struct-cvs-tag-tags type-of signal wrong-type-argument cvs-tag 2 1 mapconcat number-to-string "." " (" ")" "" mapcar make-byte-code 257 "\211\300P\207" vconcat vector [] 3 "\n\n(fn NAME)"] 11 (#$ . 10045)])
#@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$\302\2024W\203.\301\2024\303AA\"\207" [equal more2 more1 cvs-tag-compare-1] 7 (#$ . 10563)])
#@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 (#$ . 10793)])
(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 "\302!>\204\303\304\305D\"\210\306H\302!>\204!\303\304\305D\"\210\306H\302!>\2044\303\304\305D\"\210\307H\302!>\204G\303\304\305D\"\210\307H\302!>\204[\303\304\305D\"\210\310H\302!>\204o\303\304\305D\"\210\310H\232\204\216\302!>\204\207\303\304\305D\"\210\211\310\311I\266\203\267\203\317\232\204\317\302!>\204\255\303\304\305D\"\210\211\306\311I\266\202\317\302!>\204\310\303\304\305D\"\210\211\306I\266\203\371\302!>\204\344\303\304\305D\"\210\211\307D\312\313\314\315	\"\")I\266\202\302!>\204\n\303\304\305D\"\210\211\307I\266\207" [cl-struct-cvs-tag-tags xs type-of signal wrong-type-argument cvs-tag 3 2 1 nil apply append mapcar #[(x) "<\203\207C\207" [x] 1]] 14 (#$ . 11115)])
#@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\346\211:\203@\202 )\211:\203.@\202/)!\304\305!\305	!\"\212\306y\307U\204E\310c\210\311#)\211Y\204W\312\313!\210\314\315\"\210l\204d\312\316!\210\211:\203p@\202q)c\210\305!\211\203\343\211@i\n\211:\203\214@\202\215)!\211\211:\203\233@\202\234)G\317\303\245\320\"\321P\212\322c\210\311\305!E\323\304\324\325	\"\")i#)\212\314!\210`)`|\210\326\317\327\303#\330\"\326\261\210\302\266A\266\202\202w\210\266\203\207" [x xs 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 #[(x) "<\203\207C\207" [x] 1] " " - 45] 23 (#$ . 11984)])
#@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!\210\204\207\211\204\207@\211\211:\203'@\202()\304!	>\2048\305\306\307D\"\210\211\310H\211G@\211\211:\203K@\202L)\304!	>\204\\\305\306\307D\"\210\211\310H\211GU\203\323\311\304!	>\204z\305\306\307D\"\210\310H\304!	>\204\214\305\306\307D\"\210\310H\"\266\202\211\312\267\202\315\313\f\fA\"B\202\316\313\fA\f\"B\202\316\314\"\313\315!\315!\"B\313\fA\fA\"B\202\316\316\262\202V\203\355\313\317\307\320	!\316\211$BC\n\"\202W\205\313\n\317\307\320!\316\211$BC\"\207" [x 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 152 more2 164 equal 177)) cvs-tree-merge cvs-tag-merge cvs-cdr nil record butlast] 18 (#$ . 13161)])
#@12 

(fn TAG)
(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 record cvs-tag] 10 (#$ . 14241)])
#@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 (#$ . 14446)])
#@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\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 (#$ . 14975)])
#@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 (#$ . 16335) 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) (#$ . 16768))
(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 (#$ . 18788)])
(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$\216\317ed\320#\210\321\307!\210+\210\212eb\210\307\322\2035\f?\2026\f\323 \211\262<\205z\324\325\"\326\327\"\262\211@\330!
>\205j\330!
>\204e\331\332\333D\"\210\211\334H@C\335\216\307\336\"\210*\266\2029*\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-byte-code 0 "\301\300!\207" vconcat vector [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 (#$ . 19093) "P"])
#@18 

(fn TAGS PREV)
(defalias 'cvs-tree-tags-insert #[514 "\205\241@\306!>\204\307\310\311D\"\210\211\312HA@\211:\203&	@\202'	)\n\203K\211\203K\306!>\204@\307\310\311D\"\210\312H\232\203K\202L\313\314#\266\202\212\315 \210\316A\")\317\320\321c\210\211\204s\204s\203!\205|@@\232A@A@\232@\203\242\203\234\211\203\226\317B\202\317\fB\202\320
B\202\203\270\211\203\261\320!B\202\317\"B\202\320\306\f!>\204\312\307\310\311D\"\210\322H\323=\203\376\324#$#:\203\363$#\211A#\242!\204\331\317\211#\202\333#*\204\376!\202%B\211Ac\210\211@B\262\210\262\266A\262A\262\211A\262\202g\325\326\327#\262\330\313\331
\f##$#:\203P$#\211A#\242!\2046\317\211#\2028#*\204|\332\333G\\\334\"\306!>\204n\307\310\311
D\"\210\n\335H\206v\336\261\210\202\233\337\340\306
!>\204\220\307\310\311D\"\210\f\335H\206\230\336\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 type-of signal wrong-type-argument cvs-tag 1 cvs-map #[514 "\207" [] 3 "\n\n(fn V P)"] newline cvs-tree-tags-insert t nil "   " 3 branch null mapconcat number-to-string "." identity equal make-string 4 32 2 "" "  " ": " cvs-tree-char-space cvs-tree-char-eob -cvs-every-l -cvs-every-f cvs-tree-char-hbar] 20 (#$ . 20088)])
(provide 'cvs-status)