HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/vc/pcvs-info.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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 "\302\303!\210\304\305\306\307#\210\310\307\211\2030	@\305N\203)\306N\204)\311\306\305N#\210	A\211\204*\312\305\306\313#\210\314\306\315\316\317\320\321\322&\210\314\323\307\324\317\320\321\325&\210\326\327\330\331\317\320%\210\326\332\333\334\317\320%\210\326\335\336\337\317\320%\210\326\340\341\342\317\320%\210\326\343\344\345\317\320%\210\326\346\347\350\317\320%\210\326\351\352\353\317\320%\207" [prop --dolist-tail-- require pcvs-util defvaralias cvs-display-full-path cvs-display-full-name nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-variable 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 "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."] 9)
(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 ".#" (#$ . 3071))
#@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) (#$ . 3174))
#@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 (#$ . 3409)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 1)) nil] 7 (#$ . 4012)])
(put 'cvs-fileinfo->marked 'compiler-macro 'cvs-fileinfo->marked--cmacro)
#@221 Access slot "marked" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 4425)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 2)) nil] 7 (#$ . 4937)])
(put 'cvs-fileinfo->type 'compiler-macro 'cvs-fileinfo->type--cmacro)
#@219 Access slot "type" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 5340)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 3)) nil] 7 (#$ . 5846)])
(put 'cvs-fileinfo->subtype 'compiler-macro 'cvs-fileinfo->subtype--cmacro)
#@222 Access slot "subtype" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 6264)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 4)) nil] 7 (#$ . 6779)])
(put 'cvs-fileinfo->dir 'compiler-macro 'cvs-fileinfo->dir--cmacro)
#@218 Access slot "dir" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 7177)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 5)) nil] 7 (#$ . 7680)])
(put 'cvs-fileinfo->file 'compiler-macro 'cvs-fileinfo->file--cmacro)
#@219 Access slot "file" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 8083)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 6)) nil] 7 (#$ . 8589)])
(put 'cvs-fileinfo->base-rev 'compiler-macro 'cvs-fileinfo->base-rev--cmacro)
#@223 Access slot "base-rev" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 9012)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 7)) nil] 7 (#$ . 9530)])
(put 'cvs-fileinfo->head-rev 'compiler-macro 'cvs-fileinfo->head-rev--cmacro)
#@223 Access slot "head-rev" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 9953)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 8)) nil] 7 (#$ . 10471)])
(put 'cvs-fileinfo->merge 'compiler-macro 'cvs-fileinfo->merge--cmacro)
#@220 Access slot "merge" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 10880)])
(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 (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 9)) nil] 7 (#$ . 11390)])
(put 'cvs-fileinfo->full-log 'compiler-macro 'cvs-fileinfo->full-log--cmacro)
#@223 Access slot "full-log" of `(cvs-fileinfo (:constructor nil) (:copier nil) (:constructor -cvs-create-fileinfo (type dir file full-log &key marked subtype merge base-rev head-rev)) (:conc-name 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 (#$ . 11814)])
(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 (#$ . 12334)])
(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 (#$ . 13411)])
(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 (#$ . 14659)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias cvs-fileinfo->full-path cvs-fileinfo->full-name nil make-obsolete "22.1"] 4)
#@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 (#$ . 15255)])
#@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 (#$ . 15565)])
#@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#\203G\324>\203G\304\211#\203G\f\203\275\f;\203G\303\211#\203G\203\315;\203G\302\211#\203G\n;\203G\325\211#\203G;\203G\326!\204G\327\230\204\376\330!\230\203G\305\211#\203G
;\203G
\331
!\230\203G\332\211#\203G9\203G\333\211#\203G\334=\2038\"\204G
\335\230\202@\336>\204C\337\203G\202M\340\341##.	\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 DIRCHANGE "." (UNKNOWN CONFLICT NEED-MERGE REMOVED UP-TO-DATE MESSAGE MODIFIED DEAD MISSING ADDED NEED-UPDATE) nil error "Invalid :%s in cvs-fileinfo %s" subtype check] 12 (#$ . 16240)])
#@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) (#$ . 17467))
#@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 (#$ . 18458)])
(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 (#$ . 19122)])
#@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 (#$ . 20507)])
#@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 (#$ . 21489)])
#@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\202w\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!\203v\337\224\337\225U\204\261\340\341\311\342\343!!P
\"\"\202p\342\343!\342\344!\342\345!\307\346\307=>?@ABA\334\337O\347\232\203\340\350>A\337\307OA\202W\351BP!\204\357\352>\202WA\353\232\203\377\354>\307A\202W@\355\232\203\f\356=\202W\357\360BP!8\361CD\362\363D\333#\211?\364H\365U\2037?\334\364O\366?\367\307OQ??@\232*\203J
\205E\370>\202W@\371?P\232\203W\372>>\203n\317>B\306\373A\374=&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 "-" REMOVED file-exists-p MISSING "0" ADDED "Result of merge" MERGED 5 file-attributes "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 (#$ . 22474)])
(provide 'pcvs-info)