;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\"\203g A\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\340 2\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 \312 I\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 = > ? @ A BA\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\361 C D\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)
|