ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/pcvs-info.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\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 ".#" (#$ . 3636))
#@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) (#$ . 3739))
(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 (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags) t)) nil] 7])
(put 'cvs-fileinfo-p 'compiler-macro 'cvs-fileinfo-p--cmacro)
(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 "\300\301\302\303#\210\304\305\306\301#\207" [function-put cvs-fileinfo-p side-effect-free error-free put cvs-fileinfo cl-deftype-satisfies] 4)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 1)) nil] 7])
(put 'cvs-fileinfo->marked 'compiler-macro 'cvs-fileinfo->marked--cmacro)
(defalias 'cvs-fileinfo->marked #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 1] 4])
(function-put 'cvs-fileinfo->marked 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 2)) nil] 7])
(put 'cvs-fileinfo->type 'compiler-macro 'cvs-fileinfo->type--cmacro)
(defalias 'cvs-fileinfo->type #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 2] 4])
(function-put 'cvs-fileinfo->type 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 3)) nil] 7])
(put 'cvs-fileinfo->subtype 'compiler-macro 'cvs-fileinfo->subtype--cmacro)
(defalias 'cvs-fileinfo->subtype #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 3] 4])
(function-put 'cvs-fileinfo->subtype 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 4)) nil] 7])
(put 'cvs-fileinfo->dir 'compiler-macro 'cvs-fileinfo->dir--cmacro)
(defalias 'cvs-fileinfo->dir #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 4] 4])
(function-put 'cvs-fileinfo->dir 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 5)) nil] 7])
(put 'cvs-fileinfo->file 'compiler-macro 'cvs-fileinfo->file--cmacro)
(defalias 'cvs-fileinfo->file #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 5] 4])
(function-put 'cvs-fileinfo->file 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 6)) nil] 7])
(put 'cvs-fileinfo->base-rev 'compiler-macro 'cvs-fileinfo->base-rev--cmacro)
(defalias 'cvs-fileinfo->base-rev #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 6] 4])
(function-put 'cvs-fileinfo->base-rev 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 7)) nil] 7])
(put 'cvs-fileinfo->head-rev 'compiler-macro 'cvs-fileinfo->head-rev--cmacro)
(defalias 'cvs-fileinfo->head-rev #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 7] 4])
(function-put 'cvs-fileinfo->head-rev 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 8)) nil] 7])
(put 'cvs-fileinfo->merge 'compiler-macro 'cvs-fileinfo->merge--cmacro)
(defalias 'cvs-fileinfo->merge #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 8] 4])
(function-put 'cvs-fileinfo->merge 'side-effect-free t)
(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 (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cvs-fileinfo-tags)) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 9)) nil] 7])
(put 'cvs-fileinfo->full-log 'compiler-macro 'cvs-fileinfo->full-log--cmacro)
(defalias 'cvs-fileinfo->full-log #[(cl-x) "\302H >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-cvs-fileinfo-tags 0 signal wrong-type-argument cvs-fileinfo 9] 4])
(function-put 'cvs-fileinfo->full-log 'side-effect-free t)
#@94
(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 "Constructor for objects of type `cvs-fileinfo'." (declare (side-effect-free t)) (vector 'cl-struct-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 (#$ . 10323)])
(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)" vector cl-struct-cvs-fileinfo #2=#:--cl-keys-- type dir file full-log] 12 (#$ . 11440)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put -cvs-create-fileinfo side-effect-free t cl-struct-define cvs-fileinfo nil cl-structure-object ((cl-tag-slot) (marked) (type) (subtype) (dir) (file) (base-rev) (head-rev) (merge) (full-log)) cl-struct-cvs-fileinfo-tags cl-struct-cvs-fileinfo] 10)
(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\306D\"\210\307H\303H >\204\" \304\305\306D\"\210\310H\311=\203: \n\312\230\2034 \313\202N \314\n!\202N \n\303H >\204J \304\305\306D\"\210\315HP)\207" [fileinfo cl-struct-cvs-fileinfo-tags dir 0 signal wrong-type-argument cvs-fileinfo 4 2 DIRCHANGE "" "." directory-file-name 5] 5 (#$ . 12718)])
(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 D\"\210 \310H\207" [cvs-display-full-name fi cl-struct-cvs-fileinfo-tags cvs-fileinfo->full-name 0 signal wrong-type-argument cvs-fileinfo 5] 4 (#$ . 13308)])
#@58 Construct the file name of the backup file for FILEINFO.
(defalias 'cvs-fileinfo->backup-file #[(fileinfo) "\306H >\204 \307\310\311D\"\210\312H\306H >\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 0 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 (#$ . 13612)])
#@45 Check FI's conformance to some conventions.
(defalias 'cvs-check-fileinfo #[(fi) "\306\307H >\204 \310\311\312D\"\210\313H\307H >\204\" \310\311\312D\"\210\314H\307H >\2044 \310\311\312D\"\210\315H\307H >\204F \310\311\312D\"\210\316H\307H >\204X \310\311\312D\"\210\317H\307H >\204j \310\311\312D\"\210\320H\307H >\204| \310\311\312D\"\210\321H\307H >\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 0 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 (#$ . 14281)])
#@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) (#$ . 15502))
#@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\310D\"\210\311H\211\312=?\205, \n\f\236A>@ =)\207" [fi-or-type cl-struct-cvs-fileinfo-tags type func cvs-states 0 signal wrong-type-argument cvs-fileinfo 2 MESSAGE] 5 (#$ . 16493)])
(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\307H >\204 \310\311\312D\"\210\313H\307H >\204% \310\311\312D\"\210\314H\211\315=\203? \316\317\320!\321\322\323\322%\324Q\202 \325=\203` \317\326\327\307H >\204W \310\311\312D\"\210\330H\"\331\"\202\307H >\204o \310\311\312D\"\210\332H\203| \317\333\334\"\202} \335 \317\336!\337\322\323\322% \307H >\204\227 \310\311\312D\"\210\340H\206\236 \341 -\307H >\204\257 \310\311\312D\"\210\342H . \343=\203\276 \341\202\303 \344\345 !!\346\347\345 !\227\350Q! /\351/!\203\333 /J\206\334 \352) 0 1\317102#*\n\203\366 \345\n!\227\206 .\203.-\230\204.\206 \341 3\326\3533\f -
&.\354\261*\207" [fileinfo cl-struct-cvs-fileinfo-tags subtype type status file cvs-check-fileinfo 0 signal wrong-type-argument cvs-fileinfo 2 3 DIRCHANGE "In directory " cvs-add-face cvs-fileinfo->full-name cvs-header t cvs-goal-column ":" MESSAGE 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 (#$ . 17151)])
#@52 Update FI with the information provided in FI-NEW.
(defalias 'cvs-fileinfo-update #[(fi fi-new) "\306H >\204 \307\310\311D\"\210\312H\306H >\204! \307\310\311D\"\210\313H\f\306H >\2045 \307\310\311\fD\"\210\f\211 \312 I\210)\f\306H >\204L \307\310\311\fD\"\210\f\211 \314\306H >\204` \307\310\311D\"\210\314HI\210)\f\306H >\204u \307\310\311\fD\"\210\f\211 \315\306H >\204\211 \307\310\311D\"\210\315HI\210)\f\306H >\204\236 \307\310\311\fD\"\210\f\211 \316\306H >\204\262 \307\310\311D\"\210\316HI\210)\f\306H >\204\307 \307\310\311\fD\"\210\f\211 \317\306H >\204\333 \307\310\311D\"\210\317HI\210)\n\203\377 \f\306H >\204\364 \307\310\311\fD\"\210\f\211 \313\nI)\202 \320>\205 \f\306H >\204\307\310\311\fD\"\210\f\211 \313\321I)*\207" [fi-new cl-struct-cvs-fileinfo-tags merge type fi #1=#:v 0 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 (#$ . 18445)])
#@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\310D\"\210\311H\n\305H >\204! \306\307\310\nD\"\210\n\311H \305H >\2045 \306\307\310D\"\210\312H\n\305H >\204G \306\307\310\nD\"\210\n\312H\231\203R \313\202\331 \305H >\204a \306\307\310D\"\210\312H\n\305H >\204s \306\307\310\nD\"\210\n\312H\230\204~ \314\202\331 \n\305H >\204\215 \306\307\310\nD\"\210\n\315H\316=\203\231 \314\202\331 \305H >\204\250 \306\307\310D\"\210\315H\316=\203\264 \313\202\331 \305H >\204\303 \306\307\310D\"\210\317H\n\305H >\204\325 \306\307\310\nD\"\210\n\317H\231*\207" [a cl-struct-cvs-fileinfo-tags b subtypeb subtypea 0 signal wrong-type-argument cvs-fileinfo 3 4 t nil 2 DIRCHANGE 5] 5 (#$ . 19421)])
#@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 (#$ . 20400)])
(provide 'pcvs-info)
Kontol Shell Bypass