;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:53:11 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/vc-cvs.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`vc-cvs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@127 *Extra switches for registering a file into CVS. A string or list of strings passed to the checkin program by \[vc-register]. (custom-declare-variable 'vc-cvs-register-switches 'nil '(#$ . -615) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc) #@79 *A string or list of strings specifying extra switches for cvs diff under VC. (custom-declare-variable 'vc-cvs-diff-switches 'nil '(#$ . -965) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc) #@57 *Header keywords to be inserted by `vc-insert-headers'. (custom-declare-variable 'vc-cvs-header '(or (cdr (assoc 'CVS vc-header-alist)) '("$Id$")) '(#$ . -1263) :version "21.1" :type '(repeat string) :group 'vc) #@159 *Non-nil means to use `cvs edit' to "check out" a file. This is only meaningful if you don't use the implicit checkout model (i.e. if you have $CVSREAD set). (custom-declare-variable 'vc-cvs-use-edit 't '(#$ . -1482) :type 'boolean :version "21.1" :group 'vc) #@351 *Non-nil means use local operations when possible for remote repositories. This avoids slow queries over the network and instead uses heuristics and past information to determine the current status of a file. The value can also be a regular expression to match against the host name of a repository; then VC only stays local for hosts that match it. (custom-declare-variable 'vc-cvs-stay-local 't '(#$ . -1749) :type '(choice (const :tag "Always stay local" t) (string :tag "Host regexp") (const :tag "Don't stay local" nil)) :version "21.1" :group 'vc) #@42 Local association list of month numbers. (defvar vc-cvs-local-month-numbers '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)) (#$ . 2309)) #@34 Check if FILE is CVS registered. (defalias 'vc-cvs-registered #[(file) "\305!\206\306\307!\310\311\312\313 \"!\205G\314\315\316!!\317\216r\fq\210\320\312\313 \"!\210eb\210\321\322\323\n!\324Q\310\325#\203E\326 \210\327!\210\325\202F\310++\207" [file case-fold-search basename dirname #1=#:temp-buffer file-name-directory "" file-name-nondirectory nil file-readable-p expand-file-name "CVS/Entries" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-insert-file re-search-forward "^/" regexp-quote "/" t beginning-of-line vc-cvs-parse-entry] 4 (#$ . 2554)]) #@37 CVS-specific version of `vc-state'. (defalias 'vc-cvs-state #[(file) "\303!\203\304\305\"\211\306>\203\307!\202 )\207\310\311\312!!\313\216r\nq\210\314\315!!\210\316\317\320\321\322%\210\323\317!+\207" [file state #1=#:temp-buffer vc-cvs-stay-local-p vc-file-getprop vc-state (up-to-date edited) vc-cvs-state-heuristic get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) cd file-name-directory vc-do-command t 0 "cvs" "status" vc-cvs-parse-status] 7 (#$ . 3214)]) #@31 CVS-specific state heuristic. (defalias 'vc-cvs-state-heuristic #[(file) "\303\304\"\305\306!8\211 \232\203\307\202\310*\207" [file lastmod checkout-time vc-file-getprop vc-checkout-time 5 file-attributes up-to-date edited] 5 (#$ . 3778)]) #@41 Find the CVS state of all files in DIR. (defalias 'vc-cvs-dir-state #[(dir) "\303!\203\n\304!\207\305\306\307!!\310\216r\nq\210\311\312\313\314\315\316\317&\210eb\210\320\321\315\312#\205>\313\224\313\225}\210\322 \210db\210~\210\202%,\207" [dir default-directory #1=#:temp-buffer vc-cvs-stay-local-p vc-cvs-dir-state-heuristic get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-do-command t 0 "cvs" nil "status" "-l" re-search-forward "^=+\n\\([^=\n].*\n\\|\n\\)+" vc-cvs-parse-status] 7 (#$ . 4032)]) #@48 CVS-specific version of `vc-workfile-version'. (defalias 'vc-cvs-workfile-version #[(file) "\301!\210\302\303\"\207" [file vc-cvs-registered vc-file-getprop vc-workfile-version] 3 (#$ . 4635)]) #@46 CVS-specific version of `vc-checkout-model'. (defalias 'vc-cvs-checkout-model #[(file) "\301\302!\204\303\304\305\306!8\"\203\307\207\310\207" [file getenv "CVSREAD" string-match "r-..-..-." 8 file-attributes announce implicit] 5 (#$ . 4837)]) #@187 Return string for placement into the modeline for FILE. Compared to the default implementation, this function handles the special case of a CVS file that is added but not yet committed. (defalias 'vc-cvs-mode-line-string #[(file) "\303!\304! \305\230\203\306\2024\n\307=\204\n\310=\203$\311 P\2024\n;\2031\312\n\313 R\2024\312 P*\207" [file rev state vc-state vc-workfile-version "0" "CVS @@" up-to-date needs-patch "CVS-" "CVS:" ":"] 4 (#$ . 5093)]) #@48 CVS-specific version of `vc-dired-state-info'. (defalias 'vc-cvs-dired-state-info #[(file) "\303!\211\304=\203\305\2023 \306=\203\307\2023 \310=\203\"\311\2023 \312=\203,\313\2023 \314=\2053\315\211\205<\316\n\317Q*\207" [file cvs-state state vc-state edited "modified" needs-patch "patch" needs-merge "merge" unlocked-changes "conflict" locally-added "added" "(" ")"] 4 (#$ . 5563)]) #@217 Register FILE into the CVS version-control system. COMMENT can be used to provide an initial description of FILE. `vc-register-switches' and `vc-cvs-register-switches' are passed to the CVS command (in that order). (defalias 'vc-cvs-register #[(file &optional rev comment) ";\203\nC\202  ;\203 C\202 D\305\306\307\310\311 \312\f\205-\313\314\f\"\205-\315\fP\n&)\207" [vc-register-switches vc-cvs-register-switches switches file comment apply vc-do-command nil 0 "cvs" "add" string-match "[^ \n ]" "-m"] 10 (#$ . 5970)]) #@58 Return non-nil if CVS thinks it is responsible for FILE. (defalias 'vc-cvs-responsible-p #[(file) "\301\302\303\301!\203 \202\304!\"!\207" [file file-directory-p expand-file-name "CVS" file-name-directory] 5 (#$ . 6510)]) #@118 Return non-nil if FILE could be registered in CVS. This is only possible if CVS is responsible for FILE's directory. (defalias 'vc-cvs-could-register #[(file) "\301!\207" [file vc-cvs-responsible-p] 2 (#$ . 6745)]) #@47 CVS-specific version of `vc-backend-checkin'. (defalias 'vc-cvs-checkin #[(file rev comment) ";\203\nC\202 \306 \203%\307 !\203%\310\311\306\312\313\f\314\315\316\n& \210\310\311\306\312\313\f\314 \2053\317 P\315 P\n& \320q\210eb\210\321 !\204k\322\323\306\324#\203]\325\f\326\327#\210\330\331\332!!\210\202k\333p!\210eb\210\334 \210\330\335!\210\325\f\336\337\340&'eb\210\322'\306\324#\205\204\341&!*#\210\325\f\342\306#\210 \205\232\311\306\343\313\f\344\345&*\207" [vc-checkin-switches status switches rev file comment nil vc-trunk-p apply vc-do-command 1 "cvs" "ci" "-m" "intermediate" "-r" "*vc*" zerop re-search-forward "Up-to-date check failed" t vc-file-setprop vc-state needs-merge error substitute-command-keys "Up-to-date check failed: type \\[vc-next-action] to merge in changes" pop-to-buffer shrink-window-if-larger-than-buffer "Check-in failed" vc-workfile-version "^\\(new\\|initial\\) revision: \\([0-9.]+\\)" 2 match-string vc-checkout-model 0 "update" "-A" i pattern] 10 (#$ . 6967)]) #@151 Retrieve a revision of FILE into a WORKFILE. EDITABLE non-nil means that the file should be writable. REV is the revision to check out into WORKFILE. (defalias 'vc-cvs-checkout #[(file &optional editable rev workfile) "\206 \306 !\307\310\311\f\"\210\212 \203 q\210 ;\203# C\202$ 11\212\312\f!1\203\261\313 \230\205>\314\f!@232\203_\315\f2\316\317$\210\320\f!\204_\321\f\322\323\f!\324\"\"\210\325\216\326\21145\f\327\330\331!!67\332\216r6q\210\333\334p\335\336 \337\3408;\205\2228\341\230?\205\222\3428P\343\n&\n\210)r6q\210~\210\344ed7\307\335%\210.\3073+\202/\345 !\203\3568\204\3569\203/\346 !\347=\204/:\203\331\334\307\335\336 \350%\210\202/\321 \322\323 !\324\"\"\210 \203/\351\352!\210\202/\353 \354\307#\210\333\334\307\335\336 9\205\345 !\203\346 !\347=?\205\355\3408\203#8\313=\204#8\341\230\203'\356\202+\3428P\n& \210)\357 !\210\310\360\f\"-\207" [workfile file switches file-buffer filename vc-checkout-switches get-file-buffer nil message "Checking out %s..." file-name-directory t find-backup-file-name copy-file ok-if-already-exists keep-date file-writable-p set-file-modes logior file-modes 128 ((byte-code "\203 \203\304 \n\305#\210\202*\306\n!\203*\307\n!\210\202* \203* \204*\307 !\210\304\207" [failed backup-name filename vc-make-backup-files rename-file ok-if-already-exists file-exists-p delete-file] 4)) no-conversion get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply vc-do-command 0 "cvs" "-Q" "update" "" "-r" "-p" write-region file-exists-p vc-cvs-checkout-model implicit "edit" toggle-read-only -1 vc-file-setprop vc-workfile-version "-w" "-A" vc-mode-line "Checking out %s...done" default-directory backup-name failed coding-system-for-write coding-system-for-read #1# #2=#:temp-file rev editable vc-cvs-use-edit] 11 (#$ . 7999)]) #@45 Revert FILE to the version it was based on. (defalias 'vc-cvs-revert #[(file &optional contents-done) "\204 \303 \304\305 ! $\210\306 !\307=?\205+\n\203\"\310\304\311\312 \313%\207\314 \315\316 !\317\"\"\207" [contents-done file vc-cvs-use-edit vc-cvs-checkout nil vc-workfile-version vc-checkout-model implicit vc-do-command 0 "cvs" "unedit" set-file-modes logand file-modes 3950] 6 (#$ . 9949)]) #@108 Merge changes into current working copy of FILE. The changes are between FIRST-VERSION and SECOND-VERSION. (defalias 'vc-cvs-merge #[(file first-version &optional second-version) "\303\304\305\306\307\310\311 P\311\nP&\210\312\313\314#\210\212\315\316!q\210eb\210\317\320\304\321#\203+\322\202,\305)\207" [file first-version second-version vc-do-command nil 0 "cvs" "update" "-kk" "-j" vc-file-setprop vc-state edited get-buffer "*vc*" re-search-forward "conflicts during merge" t 1] 10 (#$ . 10358)]) #@40 Merge in any new changes made to FILE. (defalias 'vc-cvs-merge-news #[(file) "\301\302\"\210\212\303\304\305#\210\306\307\305\310\311%\210\312\313!q\210eb\210\314\315\307\316#\203/\303\317\320\321!#\210\2025\303\317\307#\210\322 \305=\203@\305\202\234\314\323\324\325!!\326Q\307\316#\203\225\320\327!\204e\320\321!\330\230\204e\320\321!\331\230\203y\303\332\333#\210\303\304\334\335!8#\210\305\202\234\320\321!\336\230\203\213\303\332\337#\210\305\202\234\303\332\337#\210\321\202\234\340\313!\210\341\342!\301\343\"\210)\207" [file message "Merging changes into %s..." vc-file-setprop vc-checkout-time 0 vc-do-command nil "cvs" "update" get-buffer "*vc*" re-search-forward "^Merging differences between [01234567890.]* and \\([01234567890.]*\\) into" t vc-workfile-version match-string 1 buffer-size "^\\([CMUP] \\)?" regexp-quote file-name-nondirectory "\\( already contains the differences between \\)?" 2 "U " "P " vc-state up-to-date 5 file-attributes "M " edited pop-to-buffer error "Couldn't analyze cvs update result" "Merging changes into %s...done"] 6 (#$ . 10871)]) #@38 Get change log associated with FILE. (defalias 'vc-cvs-print-log #[(file) "\301\302\303!\203\304\305!\203\306\202\307\310\311%\207" [file vc-do-command nil vc-cvs-stay-local-p fboundp start-process async 0 "cvs" "log"] 6 (#$ . 11978)]) (defalias 'vc-cvs-show-log-entry #[(version) "\304\305\306Q\307\310#\205i\307\211\211\311 \210\312y\210`\304\313\307\310#\204&d\202.\311 \210\312y\210`\314 \n\"\314e\n\"\315 W\203Ieb\210\316\317!\210 b\202h T\315 W\203b b\210\316\315 \320\245 \320\245ZS!\202h b\210\316\317!+\207" [version lines end start re-search-forward "----\nrevision " "\\( locked by:.*\n\\|\n\\)date: " nil t beginning-of-line -1 "^----*\nrevision" count-lines window-height recenter 0 2] 4]) #@65 Get a difference report using CVS between two versions of FILE. (defalias 'vc-cvs-diff #[(file &optional oldvers newvers) "\306\211\307<\203\f\202C <\203 \202 C\310\311\312\313\314!\315Q!!\211<\203-\n\202/\nC)#\316!\317\230\203_\204G \203O\320\321\"\202\232\322\323\324\325\326\307 \327\"&\202\232\322\323\324\330!\203s\331\332!\203s\333\202t\325\334\326\205\201\335P \205\212\335 P & \330!\203\231\325\202\232\f+\207" [diff-switches vc-diff-switches backend-switches diff-switches-list status options nil append eval intern "vc-" symbol-name cvs "-diff-switches" vc-workfile-version "0" error "No revisions of %s exist" apply vc-do-command "*vc-diff*" 1 "diff" ("/dev/null") vc-cvs-stay-local-p fboundp start-process async "cvs" "-r" file oldvers newvers] 11 (#$ . 12710)]) #@34 Diff all files at and below DIR. (defalias 'vc-cvs-diff-tree #[(dir &optional rev1 rev2) "r\306q\210\307!\203\310\311\"\202f\n\206\312\313\314\306\315\316\317\320 \205'\321 P\f\205.\321\fP\322 <\2038 \202: C<\203E\202HC\323\324\325\326\327!\330Q!!\211<\203^\202aC)#& ))\207" [dir default-directory coding-system-for-read rel1 rel2 diff-switches "*vc-diff*" vc-cvs-stay-local-p vc-file-tree-walk #[(f) "\303\304\305\306\307DDDC\310\311\307DD\312\313\307DE\314\307D\307 D\307\nDFFE!\207" [f rel1 rel2 vc-exec-after let coding-system-for-read vc-coding-system-for-diff quote unless vc-up-to-date-p message "Looking at %s" vc-diff-internal] 11] undecided apply vc-do-command 1 "cvs" nil "diff" "-r" append eval intern "vc-" symbol-name cvs "-diff-switches" vc-diff-switches backend-switches] 18 (#$ . 13542)]) #@119 Execute "cvs annotate" on FILE, inserting the contents in BUFFER. Optional arg VERSION is a version to annotate from. (defalias 'vc-cvs-annotate-command #[(file buffer &optional version) "\303\304\305 \306\n\205 \307\nP&\207" [buffer file version vc-do-command 0 "cvs" "annotate" "-r"] 8 (#$ . 14389)]) #@123 Return the difference between the time of the line and the current time. Return values are as defined for `current-time'. (defalias 'vc-cvs-annotate-difference #[(point) "\305\306!\203F\307\310\311!!\312\310\313! \"A\307\310\314!!\315 V\203$\316\202/\317 V\203.\320\202/\321 \\\321\225b\210\322 @\323\321\211\211\n\f&@Z,\207\324\306\325\326#\205U\327\325!\210\330`!\207" [day vc-cvs-local-month-numbers month year-tmp year looking-at "^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): " string-to-number match-string 1 assoc 2 3 69 2000 100 1900 0 current-time encode-time re-search-forward nil t beginning-of-line vc-cvs-annotate-difference] 8 (#$ . 14702)]) #@171 Assign to DIR's current version a given NAME. If BRANCHP is non-nil, the name is created as a branch (and the current workspace is immediately moved to that new branch). (defalias 'vc-cvs-create-snapshot #[(dir name branchp) "\303\304\305\306\307\310 \205\f\311\n&\210 \205\303\304\305\306\312\313\n&\207" [dir branchp name vc-do-command nil 0 "cvs" "tag" "-c" "-b" "update" "-r"] 9 (#$ . 15392)]) #@174 Retrieve a snapshot at and below DIR. NAME is the name of the snapshot; if it is empty, do a `cvs update'. If UPDATE is non-nil, then update (resynch) any affected buffers. (defalias 'vc-cvs-retrieve-snapshot #[(dir name update) "r\306\307!q\210\310 \210\n\203\n\311\230\203 \312\313\314\315\316\317%\210\202+\312\313\314\315\316\317\320\n&\210 \205\241eb\210m?\205\241\321\322!\203\233\323\324\325!\"\324\326!\327\f!\211%\203\232 \330\230\204] \331\230\203v\332\f\333\334#\210\332\f\335\316#\210\332\f\336\337\340\f!8#\210\202\224 \341\230\204\202 \342\230\203\224\332\f\333\343#\210\332\f\335\316#\210\332\f\336\314#\210\344\f\313\211#\210+\326y\210\2022*\207" [dir default-directory name update file state get-buffer-create "*vc*" erase-buffer "" vc-do-command t 0 "cvs" nil "update" "-r" looking-at "\\([CMUP]\\) \\(.*\\)" expand-file-name match-string 2 1 find-buffer-visiting "U" "P" vc-file-setprop vc-state up-to-date vc-workfile-version vc-checkout-time 5 file-attributes "M" "C" edited vc-resynch-buffer buffer] 9 (#$ . 15804)]) #@60 Return non-nil if version backups should be made for FILE. (defalias 'vc-cvs-make-version-backups-p #[(file) "\301!\207" [file vc-cvs-stay-local-p] 2 (#$ . 16870)]) #@50 Check if the current file has any headers in it. (defalias 'vc-cvs-check-headers #[nil "\212eb\210\300\301\302\303#)\207" [re-search-forward "\\$[A-Za-z\300-\326\330-\366\370-\377]+\\(: [ -#%-~\240-\377]*\\)?\\$" nil t] 4 (#$ . 17042)]) #@60 Return non-nil if VC should stay local when handling FILE. (defalias 'vc-cvs-stay-local-p #[(file) "\205m\306 !\203\307 !\202\310 !\311\n\312\"\206c\313\314\n\"\315\n\312\316 !\205a\317\320\321!!\322\216r\fq\210\323 !\210eb\210\324\325!\203_;\204K\326\202`\327\330!\331 \"\203Z\326\202[\332)\202`\332+#)\211\326=\205l\333*\207" [vc-cvs-stay-local file dirname rootname #1=#:temp-buffer hostname file-directory-p directory-file-name file-name-directory vc-file-getprop vc-cvs-stay-local-p expand-file-name "CVS/Root" vc-file-setprop file-readable-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-insert-file looking-at "\\([^:]*\\):" yes match-string 1 string-match no t prop] 7 (#$ . 17286)]) #@147 Parse output of "cvs status" command in the current buffer. Set file properties accordingly. Unless FULL is t, parse only essential information. (defalias 'vc-cvs-parse-status #[(&optional full) "\303\211eb\210\304\305\303\306#\205\215\307\310!\203\303\202\215\304\311\303\306#\205\215\312\313\314!!\315 \316\317#\210\304\320\303\306#\204:\321\202>\313\314!\n\203R\304\322\303\306#\203R\315 \323\313\324!#\210\315 \325\326\327\"\203j\315 \330\331\332 !8#\210\333\202\214\326\334\"\203u\335\202\214\326\336\"\203\200\337\202\214\326\340\"\203\213\341\202\214\335#*\207" [status file full nil re-search-forward "^File: " t looking-at "no file" "\\=\\([^ ]+\\)" expand-file-name match-string 1 vc-file-setprop vc-backend CVS "\\=[ ]+Status: \\(.*\\)" "Unknown" "\\(RCS Version\\|RCS Revision\\|Repository revision\\):[ ]+\\([0-9.]+\\)" vc-latest-version 2 vc-state string-match "Up-to-date" vc-checkout-time 5 file-attributes up-to-date "Locally Modified" edited "Needs Merge" needs-merge "Needs \\(Checkout\\|Patch\\)" needs-patch] 9 (#$ . 18098)]) #@71 Find the CVS state of all files in DIR, using only local information. (defalias 'vc-cvs-dir-state-heuristic #[(dir) "\303\304\305!!\306\216rq\210\307\310\311 \"!\210eb\210m?\205;\312\313!\2035\310\314\315! \"\316\n\317\"\2044\320\n\321\"\210)\315y\210\202+\207" [#1=#:temp-buffer dir file get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-insert-file expand-file-name "CVS/Entries" looking-at "/\\([^/]*\\)/" match-string 1 vc-file-getprop vc-state vc-cvs-parse-entry t] 4 (#$ . 19181)]) #@183 Parse a line from CVS/Entries. Compare modification time to that of the FILE, set file properties accordingly. However, `vc-state' is set only if optional arg SET-STATE is non-nil. (defalias 'vc-cvs-parse-entry #[(file &optional set-state) "\306\307!\203\310\311\312#\210\310\313\314#\210 \205\255\310\315\316#\207\306\317!\203\220\310\313\320\321!#\210\322\320\323!!\322\320\324!!\322\320\325!!\322\320\326!!\322\320\327!!\330\320\331!\332\"\326\245\324\333!8 !\n\334!  \f\312&\232\203~\310\311\n#\210 \205\215\310\315\335#\202\215\310\311\312#\210 \205\215\310\315\316#.\207\306\336!\205\255\310\313\320\321!#\210\310\311\312#\210 \205\255\310\315\316#\207" [file set-state mtime month year day looking-at "/[^/]+/0/" vc-file-setprop vc-checkout-time 0 vc-workfile-version "0" vc-state edited "/[^/]+/\\([^/]*\\)/[A-Z][a-z][a-z] \\([A-Z][a-z][a-z]\\) *\\([0-9]*\\) \\([0-9]*\\):\\([0-9]*\\):\\([0-9]*\\) \\([0-9]*\\)\\(+[^/]*\\)?/" match-string 1 string-to-number 6 5 4 3 7 string-match 2 "xxxJanFebMarAprMayJunJulAugSepOctNovDec" file-attributes encode-time up-to-date "/[^/]+/\\([^/]*\\)/[^/]*\\(+[^/]*\\)?/" hour minute second] 9 (#$ . 19770)]) (provide 'vc-cvs)