ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/cvs-status.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) (#$ . 618))
#@43 Hook run at the end of `cvs-status-mode'.
(defvar cvs-status-mode-hook nil (#$ . 1075))
(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)
#@167 Hook run after entering CVS-Status mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar cvs-status-mode-hook nil (#$ . 2236))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp cvs-status-mode-map put definition-name cvs-status-mode] 4)
(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)
#@148 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}
(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 (#$ . 3550) 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$)\206P d\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 (#$ . 4243) "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 (#$ . 4849) "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#\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])
(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 "\n\n(fn BUF F)"])
(defalias 'cvs-tag-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag-p (declare (side-effect-free error-free)) (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)"])
(put 'cvs-tag-p 'compiler-macro 'cvs-tag-p--cmacro)
(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)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cvs-tag-p side-effect-free error-free put cvs-tag cl-deftype-satisfies] 4)
(defalias 'cvs-tag->vlist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->vlist (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-tag-tags)) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cvs-tag->vlist 'compiler-macro 'cvs-tag->vlist--cmacro)
(defalias 'cvs-tag->vlist #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-tag-tags 0 signal wrong-type-argument cvs-tag 1] 5 "\n\n(fn CL-X)"])
(function-put 'cvs-tag->vlist 'side-effect-free t)
(defalias 'cvs-tag->name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-tag-tags)) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cvs-tag->name 'compiler-macro 'cvs-tag->name--cmacro)
(defalias 'cvs-tag->name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-tag-tags 0 signal wrong-type-argument cvs-tag 2] 5 "\n\n(fn CL-X)"])
(function-put 'cvs-tag->name 'side-effect-free t)
(defalias 'cvs-tag->type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-tag->type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-tag-tags)) (signal 'wrong-type-argument (list 'cvs-tag cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cvs-tag->type 'compiler-macro 'cvs-tag->type--cmacro)
(defalias 'cvs-tag->type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-tag-tags 0 signal wrong-type-argument cvs-tag 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put cvs-tag->type side-effect-free t defalias copy-cvs-tag copy-sequence] 4)
(defalias 'cvs-tag-make--cmacro #[1026 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (vlist name type) (cl-block cvs-tag-make "Constructor for objects of type `cvs-tag'." (declare (side-effect-free t)) (vector 'cl-struct-cvs-tag vlist name type)) nil] 13 "\n\n(fn CL-WHOLE-ARG VLIST &optional NAME TYPE)"])
(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" [vector cl-struct-cvs-tag] 8 (#$ . 9257)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put cvs-tag-make side-effect-free t cl-struct-define cvs-tag nil cl-structure-object ((cl-tag-slot) (vlist) (name) (type)) cl-struct-cvs-tag-tags cl-struct-cvs-tag] 10)
(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\304D\"\210\211\305H\301H>\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%\"\202g P\262\207" [cl-struct-cvs-tag-tags 0 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 "\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\305D\"\210\306H\302H>\204\" \303\304\305D\"\210\306H\"\207" [cl-struct-cvs-tag-tags cvs-tag-compare-1 0 signal wrong-type-argument 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\305D\"\210\306H\302H>\204! \303\304\305D\"\210\306H\302H>\2044 \303\304\305D\"\210\307H\302H>\204G \303\304\305D\"\210\307H\302H>\204Z \303\304\305D\"\210\310H\302H>\204m \303\304\305D\"\210\310H\232\204\213 \302H>\204\204 \303\304\305D\"\210\211\310\311I\266\203\263 \203\312 \232\204\312 \302H>\204\251 \303\304\305D\"\210\211\306\311I\266\202\312 \302H>\204\303 \303\304\305D\"\210\211\306I\266\203\363 \302H>\204\336 \303\304\305D\"\210\211\307D\312\313\314\315 \"\")I\266\202\n\302H>\204\303\304\305D\"\210\211\307I\266\207" [cl-struct-cvs-tag-tags xs 0 signal wrong-type-argument cvs-tag 3 2 1 nil apply append mapcar #[(x) "<\203 \207C\207" [x] 1]] 14 (#$ . 10888)])
#@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 (#$ . 11744)])
#@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( )\211\304H >\2048 \305\306\307D\"\210\211\310H\211G@\211\211:\203K @\202L )\211\304H >\204\\ \305\306\307D\"\210\211\310H\211GU\203\337 \311\304H >\204z \305\306\307D\"\210\310H\304H >\204\214 \305\306\307D\"\210\310H\"\266\202\211\312=\203\244 \313\f\fA\"B\202\332 \211\314=\203\267 \313\fA\f\"B\202\332 \211\315=\203\331 \316\"\313\317 !\317!\"B\313\fA\fA\"B\202\332 \320\262\202V\203\371 \313\321\322\323 !\320\211$ BC\n\"\202W\205\313\n\321\322\323!\320\211$ BC\"\207" [x cl-struct-cvs-tag-tags cl--assertion-failed (and (listp tree1) (listp tree2)) 0 signal wrong-type-argument 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 (#$ . 12921)])
(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\242\211A\262\242\"B\262\202\n \211\237\266\202\202 \211@\207" [mapcar #[257 "\301!\211\302H>\204 \303\304\305D\"\210\211\306H\307=\204 \211\202< \310\302H>\204. \303\304\305D\"\210\311H!\312\313\314\211$\262DC\207" [cl-struct-cvs-tag-tags cvs-tag-make-tag 0 signal wrong-type-argument cvs-tag 3 branch butlast 1 vector cl-struct-cvs-tag nil] 8 "\n\n(fn TAG)"] nil cvs-tree-merge] 7 (#$ . 14152)])
#@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 (#$ . 14701)])
#@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 (#$ . 16061) 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) (#$ . 16494))
(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\305D\"\210\306H\302H>\204$ \303\304\305D\"\210\306H\"\266\202\307=\207" [cl-struct-cvs-tag-tags cvs-tag-compare-1 0 signal wrong-type-argument 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$\216\317ed\320#\210\321\307!\210+\210\212eb\210\307\322\2035 \f?\2026 \f \323 \211\262<\205\207 \324\325\"\326\327\"\262\211@\330!\205w \211G\331Y\205w \211\311H
>\205w \211\311H
>\204r \332\333\334D\"\210\211\335H@C\336\216\307 \337\"\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 vectorp 4 signal wrong-type-argument cvs-tag 1 #[0 "\300 \207" [combine-after-change-execute] 1] cvs-tree-tags-insert combine-after-change-calls] 9 (#$ . 18300) "P"])
(defalias 'cvs-tree-tags-insert #[514 "\205\241@\211\306H>\204 \307\310\311D\"\210\211\312HA@\211:\203& @\202' )\n\203K \211\203K \306H>\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 \306H>\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\"\n\306H>\204n\307\310\311
D\"\210\n\335H\206v\336\261\210\202\233\337\340\f\306H>\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 0 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 "\n\n(fn TAGS PREV)"])
(provide 'cvs-status)
Kontol Shell Bypass