%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/vc/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/vc/pcvs-info.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\315&\210\316\317\320\321\306\307%\210\316\322\323\324\306\307%\210\316\325\326\327\306\307%\210\316\330\331\332\306\307%\210\316\333\334\335\306\307%\210\316\336\337\340\306\307%\210\316\341\342\343\306\307%\207" [require pcvs-util custom-declare-variable cvs-display-full-name t "Specifies how the filenames should be displayed in the listing.\nIf non-nil, their full filename name will be displayed, else only the\nnon-directory part." :group pcl-cvs :type (boolean) cvs-allow-dir-commit nil "Allow `cvs-mode-commit' on directories.\nIf you commit without any marked file and with the cursor positioned\non a directory entry, cvs would commit the whole directory.  This seems\nto confuse some users sometimes." (boolean) custom-declare-face cvs-header ((((class color) (background dark)) (:foreground "lightyellow" :weight bold)) (((class color) (background light)) (:foreground "blue4" :weight bold)) (t (:weight bold))) "PCL-CVS face used to highlight directory changes." cvs-filename ((((class color) (background dark)) (:foreground "lightblue")) (((class color) (background light)) (:foreground "blue4")) (t nil)) "PCL-CVS face used to highlight file names." cvs-unknown ((((class color) (background dark)) (:foreground "red1")) (((class color) (background light)) (:foreground "red1")) (t (:slant italic))) "PCL-CVS face used to highlight unknown file status." cvs-handled ((((class color) (background dark)) (:foreground "pink")) (((class color) (background light)) (:foreground "pink")) (t nil)) "PCL-CVS face used to highlight handled file status." cvs-need-action ((((class color) (background dark)) (:foreground "orange")) (((class color) (background light)) (:foreground "orange")) (t (:slant italic))) "PCL-CVS face used to highlight status of files needing action." cvs-marked ((((min-colors 88) (class color) (background dark)) (:foreground "green1" :weight bold)) (((class color) (background dark)) (:foreground "green" :weight bold)) (((class color) (background light)) (:foreground "green3" :weight bold)) (t (:weight bold))) "PCL-CVS face used to highlight marked file indicator." cvs-msg ((t :slant italic)) "PCL-CVS face used to highlight CVS messages."] 8)
(defvar cvs-fi-up-to-date-face 'cvs-handled)
(defvar cvs-fi-unknown-face 'cvs-unknown)
(defvar cvs-fi-conflict-face 'font-lock-warning-face)
#@58 The prefix that CVS prepends to files when rcsmerge'ing.
(defvar cvs-bakprefix ".#" (#$ . 2822))
#@45 Local keymap for text properties of status.
(defconst cvs-status-map (byte-code "\301\302\303\304\300!\205\n\303$\207" [cvs-status-map easy-mmode-define-keymap (([(mouse-2)] . cvs-mode-toggle-mark)) nil boundp] 5) (#$ . 2925))
#@47 compiler-macro for inlining `cvs-fileinfo-p'.
(defalias 'cvs-fileinfo-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo-p (and (memq (type-of cl-x) cl-struct-cvs-fileinfo-tags) t)) nil] 7 (#$ . 3160)])
(put 'cvs-fileinfo-p 'compiler-macro 'cvs-fileinfo-p--cmacro)
(defalias 'cvs-fileinfo-p #[(cl-x) "\302!	>\205	\303\207" [cl-x cl-struct-cvs-fileinfo-tags type-of t] 2])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cvs-fileinfo-p side-effect-free error-free put cvs-fileinfo cl-deftype-satisfies] 5)
#@53 compiler-macro for inlining `cvs-fileinfo->marked'.
(defalias 'cvs-fileinfo->marked--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->marked (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 1))) nil] 7 (#$ . 3763)])
(put 'cvs-fileinfo->marked 'compiler-macro 'cvs-fileinfo->marked--cmacro)
#@53 Access slot "marked" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->marked #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 1] 4 (#$ . 4183)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->marked side-effect-free t] 4)
#@51 compiler-macro for inlining `cvs-fileinfo->type'.
(defalias 'cvs-fileinfo->type--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->type (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 2))) nil] 7 (#$ . 4527)])
(put 'cvs-fileinfo->type 'compiler-macro 'cvs-fileinfo->type--cmacro)
#@51 Access slot "type" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->type #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 2] 4 (#$ . 4937)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->type side-effect-free t] 4)
#@54 compiler-macro for inlining `cvs-fileinfo->subtype'.
(defalias 'cvs-fileinfo->subtype--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->subtype (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 3))) nil] 7 (#$ . 5275)])
(put 'cvs-fileinfo->subtype 'compiler-macro 'cvs-fileinfo->subtype--cmacro)
#@54 Access slot "subtype" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->subtype #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 3] 4 (#$ . 5700)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->subtype side-effect-free t] 4)
#@50 compiler-macro for inlining `cvs-fileinfo->dir'.
(defalias 'cvs-fileinfo->dir--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->dir (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 4))) nil] 7 (#$ . 6047)])
(put 'cvs-fileinfo->dir 'compiler-macro 'cvs-fileinfo->dir--cmacro)
#@50 Access slot "dir" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->dir #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 4] 4 (#$ . 6452)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->dir side-effect-free t] 4)
#@51 compiler-macro for inlining `cvs-fileinfo->file'.
(defalias 'cvs-fileinfo->file--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->file (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 5))) nil] 7 (#$ . 6787)])
(put 'cvs-fileinfo->file 'compiler-macro 'cvs-fileinfo->file--cmacro)
#@51 Access slot "file" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->file #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 5] 4 (#$ . 7197)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->file side-effect-free t] 4)
#@55 compiler-macro for inlining `cvs-fileinfo->base-rev'.
(defalias 'cvs-fileinfo->base-rev--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->base-rev (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 6))) nil] 7 (#$ . 7535)])
(put 'cvs-fileinfo->base-rev 'compiler-macro 'cvs-fileinfo->base-rev--cmacro)
#@55 Access slot "base-rev" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->base-rev #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 6] 4 (#$ . 7965)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->base-rev side-effect-free t] 4)
#@55 compiler-macro for inlining `cvs-fileinfo->head-rev'.
(defalias 'cvs-fileinfo->head-rev--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->head-rev (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 7))) nil] 7 (#$ . 8315)])
(put 'cvs-fileinfo->head-rev 'compiler-macro 'cvs-fileinfo->head-rev--cmacro)
#@55 Access slot "head-rev" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->head-rev #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 7] 4 (#$ . 8745)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->head-rev side-effect-free t] 4)
#@52 compiler-macro for inlining `cvs-fileinfo->merge'.
(defalias 'cvs-fileinfo->merge--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->merge (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 8))) nil] 7 (#$ . 9095)])
(put 'cvs-fileinfo->merge 'compiler-macro 'cvs-fileinfo->merge--cmacro)
#@52 Access slot "merge" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->merge #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 8] 4 (#$ . 9510)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->merge side-effect-free t] 4)
#@55 compiler-macro for inlining `cvs-fileinfo->full-log'.
(defalias 'cvs-fileinfo->full-log--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->full-log (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 9))) nil] 7 (#$ . 9851)])
(put 'cvs-fileinfo->full-log 'compiler-macro 'cvs-fileinfo->full-log--cmacro)
#@55 Access slot "full-log" of `cvs-fileinfo' struct CL-X.
(defalias 'cvs-fileinfo->full-log #[(cl-x) "\302!	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 9] 4 (#$ . 10281)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->full-log side-effect-free t] 4)
#@145 compiler-macro for inlining `-cvs-create-fileinfo'.

(fn CL-WHOLE &cl-quote TYPE DIR FILE FULL-LOG &key MARKED SUBTYPE MERGE BASE-REV HEAD-REV)
(defalias '-cvs-create-fileinfo--cmacro #[(cl-whole type dir file full-log &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\203V@\314>\203=AA\211\202(\315>A@\203L\316\211\202(\317\320@\"\210\202&)\321\322\323\316\316	\n\f
&-\207" [#1# marked subtype merge base-rev head-rev plist-member :marked :subtype :merge :base-rev :head-rev (:marked :subtype :merge :base-rev :head-rev :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:marked :subtype :merge :base-rev :head-rev)" cl--defsubst-expand (type dir file full-log marked subtype merge base-rev head-rev) (cl-block -cvs-create-fileinfo (record 'cvs-fileinfo marked type subtype dir file base-rev head-rev merge full-log)) #2=#:--cl-keys-- cl-whole type dir file full-log] 16 (#$ . 10633)])
(put '-cvs-create-fileinfo 'compiler-macro '-cvs-create-fileinfo--cmacro)
#@122 Constructor for objects of type `cvs-fileinfo'.

(fn TYPE DIR FILE FULL-LOG &key MARKED SUBTYPE MERGE BASE-REV HEAD-REV)
(defalias '-cvs-create-fileinfo #[(type dir file full-log &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\203V@\314>\203=AA\211\202(\315>A@\203L\316\211\202(\317\320@\"\210\202&)\321\322	\n\f
&\n-\207" [#1# marked subtype merge base-rev head-rev plist-member :marked :subtype :merge :base-rev :head-rev (:marked :subtype :merge :base-rev :head-rev :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:marked :subtype :merge :base-rev :head-rev)" record cvs-fileinfo #2=#:--cl-keys-- type dir file full-log] 12 (#$ . 11710)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put -cvs-create-fileinfo side-effect-free t cl-struct-define cvs-fileinfo nil cl-structure-object record ((cl-tag-slot) (marked) (type) (subtype) (dir) (file) (base-rev) (head-rev) (merge) (full-log)) cl-struct-cvs-fileinfo-tags] 11)
(defalias 'cvs-create-fileinfo #[(type dir file msg &rest keys) "\305\306\307	\n\f&!\207" [type dir file msg keys cvs-check-fileinfo apply -cvs-create-fileinfo] 8])
#@66 Return the full path for the file that is described in FILEINFO.
(defalias 'cvs-fileinfo->full-name #[(fileinfo) "\303!	>\204\304\305\306D\"\210\307H\303!	>\204\"\304\305\306D\"\210\310H\311=\203:\n\312\230\2034\313\202N\314\n!\202N\n\303!	>\204J\304\305\306D\"\210\315HP)\207" [fileinfo cl-struct-cvs-fileinfo-tags dir type-of signal wrong-type-argument cvs-fileinfo 4 2 DIRCHANGE "" "." directory-file-name 5] 5 (#$ . 12958)])
#@54 Return the filename of FI as it should be displayed.
(defalias 'cvs-fileinfo->pp-name #[(fi) "\203\303	!\207\304	!\n>\204\305\306\307	D\"\210	\310H\207" [cvs-display-full-name fi cl-struct-cvs-fileinfo-tags cvs-fileinfo->full-name type-of signal wrong-type-argument cvs-fileinfo 5] 4 (#$ . 13411)])
#@58 Construct the file name of the backup file for FILEINFO.
(defalias 'cvs-fileinfo->backup-file #[(fileinfo) "\306!	>\204\307\310\311D\"\210\312H\306!	>\204\"\307\310\311D\"\210\313H\314\315\n!!\316\317\320\321\322
!\322!\323R#\320\320\211\203p@\324!\203g\203c\325\"\203gA\211\204I*\nP-\207" [fileinfo cl-struct-cvs-fileinfo-tags dir file default-directory cvs-bakprefix type-of signal wrong-type-argument cvs-fileinfo 4 5 file-name-as-directory expand-file-name directory-files "." nil "\\`" regexp-quote "\\(\\.[0-9]+\\.[0-9]+\\)+\\'" file-readable-p file-newer-than-file-p files bf f --dolist-tail--] 8 (#$ . 13721)])
#@45 Check FI's conformance to some conventions.
(defalias 'cvs-check-fileinfo #[(fi) "\306\307!	>\204\310\311\312D\"\210\313H\307!	>\204\"\310\311\312D\"\210\314H\307!	>\2044\310\311\312D\"\210\315H\307!	>\204F\310\311\312D\"\210\316H\307!	>\204X\310\311\312D\"\210\317H\307!	>\204j\310\311\312D\"\210\320H\307!	>\204|\310\311\312D\"\210\321H\307!	>\204\216\310\311\312D\"\210\322H!\"\323\211\"\203C\324>\203C\304\211\"\203C\f\203\275\f;\203C\303\211\"\203C\203\315;\203C\302\211\"\203C\n;\203C\325\211\"\203C;\203C\326!\204C\327\230\204\376\330!\230\203C\305\211\"\203C
;\203C
\331
!\230\203C\332\211\"\203C9\203C\333\211\"\203C\334\267\202;!\204C
\335\230\202<\202?\336\203C\202I\337\340\"#.	\207" [fi cl-struct-cvs-fileinfo-tags full-log head-rev base-rev file none type-of signal wrong-type-argument cvs-fileinfo 2 3 1 4 5 6 7 9 marked (t nil) dir file-name-absolute-p "" file-name-as-directory file-name-nondirectory type consistency #s(hash-table size 12 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (DIRCHANGE 301 UNKNOWN 312 CONFLICT 312 NEED-MERGE 312 REMOVED 312 UP-TO-DATE 312 MESSAGE 312 MODIFIED 312 DEAD 312 MISSING 312 ADDED 312 NEED-UPDATE 312)) "." nil error "Invalid :%s in cvs-fileinfo %s" subtype check] 12 (#$ . 14396)])
#@395 Fileinfo state descriptions for pcl-cvs.
This is an assoc list.  Each element consists of (STATE . FUNS):
- STATE (described in `cvs-create-fileinfo') is the key.
- FUNS is the list of applicable operations.
  The first one (if any) should be the "default" action.
Most of the actions have the obvious meaning.
`safe-rm' indicates that the file can be removed without losing
  any information.
(defconst cvs-states (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\205\315\316BBBBB\317BBBBBBBBB\207" [cvs-allow-dir-commit (NEED-UPDATE update diff ignore) (UP-TO-DATE update nil remove diff safe-rm revert) (MODIFIED update commit undo remove diff merge diff-base) (ADDED update commit remove) (MISSING remove undo update safe-rm revert) (REMOVED commit add undo safe-rm) (NEED-MERGE update undo diff diff-base) (CONFLICT merge remove undo commit diff diff-base) DIRCHANGE remove update diff commit (tag) ((UNKNOWN ignore add remove) (DEAD) (MESSAGE))] 14) (#$ . 15762))
#@144 Check if FUNC is applicable to FI-OR-TYPE.
If FUNC is nil, always return t.
FI-OR-TYPE can either be a symbol (a fileinfo-type) or a fileinfo.
(defalias 'cvs-applicable-p #[(fi-or-type func) "9\203	\202\305!	>\204\306\307\310D\"\210\311H\211\312=?\205,\n\f\236A>@=)\207" [fi-or-type cl-struct-cvs-fileinfo-tags type func cvs-states type-of signal wrong-type-argument cvs-fileinfo 2 MESSAGE] 5 (#$ . 16753)])
(defalias 'cvs-add-face #[(str face &optional keymap &rest props) "\203\304!\203\300	BB\305\306	BB\307\310\nG\311	BB\n$\210\n\207" [keymap props str face keymapp mouse-face highlight add-text-properties 0 font-lock-face] 6])
#@105 Pretty print FILEINFO.  Insert a printed representation in current buffer.
For use by the ewoc package.
(defalias 'cvs-fileinfo-pp #[(fileinfo) "\306!\210\307!	>\204\310\311\312D\"\210\313H\307!	>\204%\310\311\312D\"\210\314H\211\315\267\202Z\316\317\320!\321\322\323\322%\324Q\202\317\325\326\307!	>\204Q\310\311\312D\"\210\327H\"\330\"\202\307!	>\204i\310\311\312D\"\210\331H\203v\317\332\333\"\202w\334\317\335!\336\322\323\322%\307!	>\204\221\310\311\312D\"\210\337H\206\230\340,\307!	>\204\251\310\311\312D\"\210\341H-\342=\203\270\340\202\275\343\344!!\345\346\344!\227\347Q!.\350.!\203\325.J\206\326\351)/0\3170/1#*\n\203\360\344\n!\227\206-\203-,\230\204-\206\3402\325\3522\f,
&.\353\261*\207" [fileinfo cl-struct-cvs-fileinfo-tags subtype type status file cvs-check-fileinfo type-of signal wrong-type-argument cvs-fileinfo 2 3 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (DIRCHANGE 48 MESSAGE 63)) "In directory " cvs-add-face cvs-fileinfo->full-name cvs-header t cvs-goal-column ":" format "Message: %s" 9 cvs-msg 1 "*" cvs-marked " " cvs-fileinfo->pp-name cvs-filename 6 "" 7 DEAD capitalize symbol-name intern-soft "cvs-fi-" "-face" boundp cvs-need-action "%-11s %s %-11s %-11s %s" "\n" base head sym face str cvs-status-map side] 8 (#$ . 17417)])
#@52 Update FI with the information provided in FI-NEW.
(defalias 'cvs-fileinfo-update #[(fi fi-new) "\306!	>\204\307\310\311D\"\210\312H\306!	>\204!\307\310\311D\"\210\313H\306\f!	>\2045\307\310\311\fD\"\210\f\211\312I\210)\306\f!	>\204L\307\310\311\fD\"\210\f\211\314\306!	>\204`\307\310\311D\"\210\314HI\210)\306\f!	>\204u\307\310\311\fD\"\210\f\211\315\306!	>\204\211\307\310\311D\"\210\315HI\210)\306\f!	>\204\236\307\310\311\fD\"\210\f\211\316\306!	>\204\262\307\310\311D\"\210\316HI\210)\306\f!	>\204\307\307\310\311\fD\"\210\f\211\317\306!	>\204\333\307\310\311D\"\210\317HI\210)\n\203\377\306\f!	>\204\364\307\310\311\fD\"\210\f\211\313\nI)\202\320>\205\306\f!	>\204\307\310\311\fD\"\210\f\211\313\321I)*\207" [fi-new cl-struct-cvs-fileinfo-tags merge type fi #1=#:v type-of signal wrong-type-argument cvs-fileinfo 2 8 3 9 6 7 (UP-TO-DATE NEED-UPDATE) nil #2=#:v #3=#:v #4=#:v #5=#:v #6=#:v #7=#:v] 7 (#$ . 18802)])
#@264 Compare fileinfo A with fileinfo B and return t if A is `less'.
The ordering defined by this function is such that directories are
sorted alphabetically, and inside every directory the DIRCHANGE
fileinfo will appear first, followed by all files (alphabetically).
(defalias 'cvs-fileinfo< #[(a b) "\305!	>\204\306\307\310D\"\210\311H\305\n!	>\204!\306\307\310\nD\"\210\n\311H\305!	>\2045\306\307\310D\"\210\312H\305\n!	>\204G\306\307\310\nD\"\210\n\312H\231\203R\313\202\331\305!	>\204a\306\307\310D\"\210\312H\305\n!	>\204s\306\307\310\nD\"\210\n\312H\230\204~\314\202\331\305\n!	>\204\215\306\307\310\nD\"\210\n\315H\316=\203\231\314\202\331\305!	>\204\250\306\307\310D\"\210\315H\316=\203\264\313\202\331\305!	>\204\303\306\307\310D\"\210\317H\305\n!	>\204\325\306\307\310\nD\"\210\n\317H\231*\207" [a cl-struct-cvs-fileinfo-tags b subtypeb subtypea type-of signal wrong-type-argument cvs-fileinfo 3 4 t nil 2 DIRCHANGE 5] 5 (#$ . 19784)])
#@151 List of fileinfos for DIR, extracted from CVS/Entries.
Unless ALL is non-nil, returns only the files that are not up-to-date.
DIR can also be a file.
(defalias 'cvs-fileinfo-from-entries #[(dir &optional all) "\306\232\203\n\307\202#\310!\203\311!\307\202#\312!\313!\206\"\306\314\315\"\307\316\n!\204I\317	\203:\320\202;\321	\206A\322\306$B\202|\323\324!r\fq\210\325\216\326\n!\210eb\210	\204j\317\321\322\306$B\202\222\327\330\331	!\332Q\307\333#\203\205\333\334\224b\210`\334\225}\210\202\222\317\320	\306$Bee}\210\335\336!\203{\337\224\337\225U\204\261\340\341\311\342\343!!P
\"\"\202u\342\343!\342\344!\342\345!\307\346\307>?@ABC\347B\334\337#\350\232\203\341\351?\347B\337\"B\202\\\352CP!\204\360\353?\202\\B\354\232\203\355?\307B\202\\A\356\232\203
\357>\202\\\360CP!\3618\262\362DE\363\364E\333#\211@\365H\366U\203<\347@\334\365#\367\347@\370\"Q@@A\232*\203O
\205J\371?\202\\A\372@P\232\203\\\373??\203s\317?C\306\374B\375>&B.\337y\210\202\222++\207" [dir singlefile file fis #1=#:temp-buffer all "" nil file-directory-p file-name-as-directory file-name-nondirectory file-name-directory expand-file-name "CVS/Entries" file-readable-p cvs-create-fileinfo UNKNOWN DIRCHANGE "." generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^[^/]*/" regexp-quote "/.*" t 0 looking-at "\\([^/]*\\)/\\([^/]*\\)/\\([^/]*\\)/\\([^/]*\\)/" 1 append cvs-fileinfo-from-entries match-string 2 3 4 MODIFIED substring "-" REMOVED file-exists-p MISSING "0" ADDED "Result of merge" MERGED file-attributes 5 "C" format-time-string "%c" 8 48 " " 9 UP-TO-DATE "Result of merge+" CONFLICT :base-rev :subtype subtype type timestamp date rev f system-time-locale mtime] 10 (#$ . 20769)])
(provide 'pcvs-info)

Zerion Mini Shell 1.0