;ELC ;;; Compiled ;;; in Emacs version 27.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]) #@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 (#$ . 3943) "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 (#$ . 4689) "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 (#$ . 5947)]) #@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 (#$ . 6303)]) (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 (#$ . 6619)]) (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 (#$ . 6881)]) (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 (#$ . 7264)]) (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 (#$ . 7586)]) (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 (#$ . 7964)]) (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 (#$ . 8283)]) (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 (#$ . 8661)]) (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 (#$ . 9026)]) (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 (#$ . 9376)]) (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 (#$ . 9784)]) (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 (#$ . 9980)]) #@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 (#$ . 10497)]) #@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 (#$ . 10727)]) (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 (#$ . 11049)]) #@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 (#$ . 11918)]) #@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 (#$ . 13095)]) #@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 (#$ . 14175)]) #@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 (#$ . 14380)]) #@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 (#$ . 14909)]) #@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 (#$ . 16269) 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) (#$ . 16702)) (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 (#$ . 18722)]) (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 (#$ . 19027) "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\317 B\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 (#$ . 20022)]) (provide 'cvs-status)