WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/vc
Viewing File: /usr/share/emacs/24.3/lisp/vc/pcvs-info.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:15 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el
;;; in Emacs version 24.3.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	@\305N\203)\306N\204)\311\306\305N#\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\311\332\333\327#\210\311\332\334\335\313!\206e\315#\210\326\336\337\340\317\320%\210\311\341\333\336#\210\311\341\334\335\313!\206\315#\210\326\342\343\344\317\320%\210\311\345\333\342#\210\311\345\334\335\313!\206\231\315#\210\326\346\347\350\317\320%\210\311\351\333\346#\210\311\351\334\335\313!\206\263\315#\210\326\352\353\354\317\320%\210\311\355\333\352#\210\311\355\334\335\313!\206\315\315#\210\326\356\357\360\317\320%\210\311\361\333\356#\210\311\361\334\335\313!\206\347\315#\210\326\362\363\364\317\320%\210\311\365\333\362#\210\311\365\334\335\313!\206\315#\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-header-face face-alias obsolete-face purecopy 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-filename-face 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-unknown-face 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-handled-face 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-need-action-face 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-marked-face cvs-msg ((t :slant italic)) "PCL-CVS face used to highlight CVS messages." cvs-msg-face] 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 ".#" (#$ . 3781))
#@44 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) (#$ . 3884))
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->marked compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->marked 'cvs-fileinfo)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->marked #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->marked cvs-fileinfo 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->type compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->type 'cvs-fileinfo)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->type #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->type cvs-fileinfo 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->subtype compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->subtype 'cvs-fileinfo)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->subtype #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->subtype cvs-fileinfo 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->dir compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->dir 'cvs-fileinfo)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->dir #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->dir cvs-fileinfo 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->file compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->file 'cvs-fileinfo)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->file #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->file cvs-fileinfo 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->base-rev compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->base-rev 'cvs-fileinfo)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->base-rev #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->base-rev cvs-fileinfo 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->head-rev compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->head-rev 'cvs-fileinfo)) (aref cl-x 7)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->head-rev #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->head-rev cvs-fileinfo 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->merge compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->merge 'cvs-fileinfo)) (aref cl-x 8)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->merge #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->merge cvs-fileinfo 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo->full-log compiler-macro #[(_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 (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (error "%s accessing a non-%s" 'cvs-fileinfo->full-log 'cvs-fileinfo)) (aref cl-x 9)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo->full-log #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 error "%s accessing a non-%s" cvs-fileinfo->full-log cvs-fileinfo 9] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put cvs-fileinfo-p compiler-macro #[(_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 (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'cvs-fileinfo-p #[(cl-x) "\302!\205G\303Y\205\304H	>\205\305\207" [cl-x cl-struct-cvs-fileinfo-tags vectorp 10 0 t] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put -cvs-create-fileinfo compiler-macro #[(cl-whole type dir file full-log &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\203Q@\313>\2038AA\211\202#\314>A@\203G\315\211\202#\316\317@\"\210\202!)\320\321\322\315\315	\n\f
&-\207" [#1# marked subtype merge base-rev head-rev :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 (vector 'cl-struct-cvs-fileinfo marked type subtype dir file base-rev head-rev merge full-log)) #:--cl-keys-- cl-whole type dir file full-log] 16 "\n\n(fn CL-WHOLE &cl-quote TYPE DIR FILE FULL-LOG &key MARKED SUBTYPE MERGE BASE-REV HEAD-REV)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/pcvs-info.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@75 

(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>A@\307>A@\310>A@\311>A@\312>A@\203Q@\313>\2038AA\211\202#\314>A@\203G\315\211\202#\316\317@\"\210\202!)\320\321	\n\f
&\n-\207" [#1# marked subtype merge base-rev head-rev :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)" vector cl-struct-cvs-fileinfo #2=#:--cl-keys-- type dir file full-log] 12 (#$ . 12125)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\317#\210\302\320\315\313#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\207" [cl-struct-cvs-fileinfo-tags cl-struct-cvs-fileinfo put cvs-fileinfo cl-struct-slots ((cl-tag-slot) (marked) (type) (subtype) (dir) (file) (base-rev) (head-rev) (merge) (full-log)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t -cvs-create-fileinfo side-effect-free cvs-fileinfo-p error-free cvs-fileinfo->full-log cvs-fileinfo->merge cvs-fileinfo->head-rev cvs-fileinfo->base-rev cvs-fileinfo->file cvs-fileinfo->dir cvs-fileinfo->subtype cvs-fileinfo->type cvs-fileinfo->marked] 4)
(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) "\303H	>\204\304\305\306\307#\210\310H\303H	>\204 \304\305\311\307#\210\312H\313=\2038\n\314\230\2032\315\202K\316\n!\202K\n\303H	>\204G\304\305\317\307#\210\320HP)\207" [fileinfo cl-struct-cvs-fileinfo-tags dir 0 error "%s accessing a non-%s" cvs-fileinfo->dir cvs-fileinfo 4 cvs-fileinfo->type 2 DIRCHANGE "" "." directory-file-name cvs-fileinfo->file 5] 5 (#$ . 13817)])
(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	\304H\n>\204\305\306\307\310#\210	\311H\207" [cvs-display-full-name fi cl-struct-cvs-fileinfo-tags cvs-fileinfo->full-name 0 error "%s accessing a non-%s" cvs-fileinfo->file cvs-fileinfo 5] 4 (#$ . 14468)])
#@58 Construct the file name of the backup file for FILEINFO.
(defalias 'cvs-fileinfo->backup-file #[(fileinfo) "\306H	>\204\307\310\311\312#\210\313H\306H	>\204 \307\310\314\312#\210\315H\316\317\n!!\320\321\322\323\324
!\324!\325R#\322\322\211\203n@\326!\203e\203a\327\"\203eA\211\204G*\nP-\207" [fileinfo cl-struct-cvs-fileinfo-tags dir file default-directory cvs-bakprefix 0 error "%s accessing a non-%s" cvs-fileinfo->dir cvs-fileinfo 4 cvs-fileinfo->file 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 (#$ . 14795)])
#@45 Check FI's conformance to some conventions.
(defalias 'cvs-check-fileinfo #[(fi) "\306\307H	>\204\310\311\312\313#\210\314H\307H	>\204 \310\311\315\313#\210\316H\307H	>\2041\310\311\317\313#\210\320H\307H	>\204B\310\311\321\313#\210\322H\307H	>\204S\310\311\323\313#\210\324H\307H	>\204d\310\311\325\313#\210\326H\307H	>\204u\310\311\327\313#\210\330H\307H	>\204\206\310\311\331\313#\210\332H)\"*\333\211*\203?\334>\203?\304\211*\203?\f\203\265\f;\203?\303\211*\203?\203\305;\203?\302\211*\203?\n;\203?\335\211*\203?;\203?\336!\204?\337\230\204\366\340!\230\203?\305\211*\203?
;\203?
\341
!\230\203?\342\211*\203?\"9\203?\343\211*\203?\"\344=\2030)\204?
\345\230\2028\"\346>\204;\347\203?\202E\310\350*#.	\207" [fi cl-struct-cvs-fileinfo-tags full-log head-rev base-rev file none 0 error "%s accessing a non-%s" cvs-fileinfo->type cvs-fileinfo 2 cvs-fileinfo->subtype 3 cvs-fileinfo->marked 1 cvs-fileinfo->dir 4 cvs-fileinfo->file 5 cvs-fileinfo->base-rev 6 cvs-fileinfo->head-rev 7 cvs-fileinfo->full-log 9 marked (t nil) dir file-name-absolute-p "" file-name-as-directory file-name-nondirectory type consistency DIRCHANGE "." (NEED-UPDATE ADDED MISSING DEAD MODIFIED MESSAGE UP-TO-DATE REMOVED NEED-MERGE CONFLICT UNKNOWN) nil "Invalid :%s in cvs-fileinfo %s" subtype check] 12 (#$ . 15505)])
#@393 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) (#$ . 16900))
#@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\305H	>\204\306\307\310\311#\210\312H\211\313=?\205+\n\f\236A>@=)\207" [fi-or-type cl-struct-cvs-fileinfo-tags type func cvs-states 0 error "%s accessing a non-%s" cvs-fileinfo->type cvs-fileinfo 2 MESSAGE] 5 (#$ . 17889)])
(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])
#@107 Pretty print FILEINFO.  Insert a printed representation in current buffer.
For use by the cookie package.
(defalias 'cvs-fileinfo-pp #[(fileinfo) "\306!\210\307H	>\204\310\311\312\313#\210\314H\307H	>\204#\310\311\315\313#\210\316H\211\317=\203=\320\321\322!\323\324\325\324%\326Q\202\327=\203]\321\330\331\307H	>\204T\310\311\332\313#\210\333H\"\334\"\202\307H	>\204k\310\311\335\313#\210\336H\203x\321\337\340\"\202y\341\321\342!\343\324\325\324%\307H	>\204\222\310\311\344\313#\210\345H\206\231\3463\307H	>\204\251\310\311\347\313#\210\350H4\351=\203\270\346\202\275\352\353!!\354\355\353!\227\356Q!5\3575!\203\3255J\206\326\360)67\321768#*\n\203\360\353\n!\227\2064\20343\230\2044\206\3469\330\3619\f3
&.\362\261*\207" [fileinfo cl-struct-cvs-fileinfo-tags subtype type status file cvs-check-fileinfo 0 error "%s accessing a non-%s" cvs-fileinfo->type cvs-fileinfo 2 cvs-fileinfo->subtype 3 DIRCHANGE "In directory " cvs-add-face cvs-fileinfo->full-name cvs-header t cvs-goal-column ":" MESSAGE format "Message: %s" cvs-fileinfo->full-log 9 cvs-msg cvs-fileinfo->marked 1 "*" cvs-marked " " cvs-fileinfo->pp-name cvs-filename cvs-fileinfo->base-rev 6 "" cvs-fileinfo->head-rev 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 (#$ . 18570)])
#@52 Update FI with the information provided in FI-NEW.
(defalias 'cvs-fileinfo-update #[(fi fi-new) "\306H	>\204\307\310\311\312#\210\313H\306H	>\204\307\310\314\312#\210\315H\f\306H	>\2042\307\310\311\312#\210\f\211\313I\210)\f\306H	>\204H\307\310\316\312#\210\f\211\317\306H	>\204[\307\310\316\312#\210\317HI\210)\f\306H	>\204o\307\310\320\312#\210\f\211\321\306H	>\204\202\307\310\320\312#\210\321HI\210)\f\306H	>\204\226\307\310\322\312#\210\f\211\323\306H	>\204\251\307\310\322\312#\210\323HI\210)\f\306H	>\204\275\307\310\324\312#\210\f\211\325\306H	>\204\320\307\310\324\312#\210\325HI\210)\n\203\363\f\306H	>\204\350\307\310\314\312#\210\f\211\315\nI)\202\326>\205\f\306H	>\204\307\310\314\312#\210\f\211\315\327I)*\207" [fi-new cl-struct-cvs-fileinfo-tags merge type fi #1=#:v 0 error "%s accessing a non-%s" cvs-fileinfo->type cvs-fileinfo 2 cvs-fileinfo->merge 8 cvs-fileinfo->subtype 3 cvs-fileinfo->full-log 9 cvs-fileinfo->base-rev 6 cvs-fileinfo->head-rev 7 (UP-TO-DATE NEED-UPDATE) nil #2=#:v #3=#:v #4=#:v #5=#:v #6=#:v #7=#:v] 7 (#$ . 20006)])
#@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) "\305H	>\204\306\307\310\311#\210\312H\n\305H	>\204\306\307\310\311#\210\n\312H\305H	>\2042\306\307\313\311#\210\314H\n\305H	>\204C\306\307\313\311#\210\n\314H\231\203N\315\202\317\305H	>\204\\\306\307\313\311#\210\314H\n\305H	>\204m\306\307\313\311#\210\n\314H\230\204x\316\202\317\n\305H	>\204\206\306\307\317\311#\210\n\320H\321=\203\222\316\202\317\305H	>\204\240\306\307\317\311#\210\320H\321=\203\254\315\202\317\305H	>\204\272\306\307\322\311#\210\323H\n\305H	>\204\313\306\307\322\311#\210\n\323H\231*\207" [a cl-struct-cvs-fileinfo-tags b subtypeb subtypea 0 error "%s accessing a non-%s" cvs-fileinfo->subtype cvs-fileinfo 3 cvs-fileinfo->dir 4 t nil cvs-fileinfo->type 2 DIRCHANGE cvs-fileinfo->file 5] 5 (#$ . 21121)])
#@152 List of fileinfos for DIR, extracted from CVS/Entries.
Unless ALL is optional, 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$Bee}\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>?@ABCB\334\337O\347\232\203\340\350?B\337\307OB\202W\351CP!\204\357\352?\202WB\353\232\203\377\354?\307B\202WA\355\232\203\f\356>\202W\357\360CP!8\361DE\362\363E\364#\211@\365H\366U\2037@\334\365O\367@\370\307OQ@@A\232*\203J
\205E\371?\202WA\372@P\232\203W\373??\203n\317?C\306\374B\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*" ((byte-code "\301!\203\n\302!\210\301\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" utc 8 48 " " 9 UP-TO-DATE "Result of merge+" CONFLICT :base-rev :subtype subtype type timestamp date rev f system-time-locale mtime] 10 (#$ . 22187)])
(provide 'pcvs-info)
F1l3 Manager
