;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:53:13 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/vc-rcs.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-rcs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@123 *The release number of your RCS installation, as a string. If nil, VC itself computes this value when it is first needed. (custom-declare-variable 'vc-rcs-release 'nil '(#$ . -615) :type '(choice (const :tag "Auto" nil) (string :tag "Specified") (const :tag "Unknown" unknown)) :group 'vc) #@141 *Extra switches for registering a file in RCS. A string or list of strings. These are passed to the checkin program by \[vc-rcs-register]. (custom-declare-variable 'vc-rcs-register-switches 'nil '(#$ . -912) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc) #@135 *A string or list of strings specifying extra switches for RCS checkin. These are passed to the checkin program by \[vc-rcs-checkin]. (custom-declare-variable 'vc-rcs-checkin-switches 'nil '(#$ . -1277) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc) #@138 *A string or list of strings specifying extra switches for RCS checkout. These are passed to the checkout program by \[vc-rcs-checkout]. (custom-declare-variable 'vc-rcs-checkout-switches 'nil '(#$ . -1636) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc) #@78 *A string or list of strings specifying extra switches for rcsdiff under VC. (custom-declare-variable 'vc-rcs-diff-switches 'nil '(#$ . -1998) :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-rcs-header '(or (cdr (assoc 'RCS vc-header-alist)) '("$Id$")) '(#$ . -2296) :type '(repeat string) :version "21.1" :group 'vc) #@194 *Indicates whether rcsdiff understands the --brief option. The value is either `yes', `no', or nil. If it is nil, VC tries to use --brief and sets this variable to remember whether it worked. (custom-declare-variable 'vc-rcsdiff-knows-brief 'nil '(#$ . -2515) :type '(choice (const :tag "Work out" nil) (const yes) (const no)) :group 'vc) #@109 *Where to look for RCS master files. For a description of possible values, see `vc-check-master-templates'. (custom-declare-variable 'vc-rcs-master-templates ''("%sRCS/%s,v" "%s%s,v" "%sRCS/%s") '(#$ . -2862) :type '(choice (const :tag "Use standard RCS file names" '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) (repeat :tag "User-specified" (choice string function))) :version "21.1" :group 'vc) (defalias 'vc-rcs-registered #[(f) "\301\302\"\207" [f vc-default-registered RCS] 3]) #@39 Implementation of `vc-state' for RCS. (defalias 'vc-rcs-state #[(file) "\303\304!\204\203\305 !\210\306 \307 \310\"\"\211\311=\204 \n\202;\312\313!\210\314 !\203.\311\202;\315 !\316=\203:\317\202;\320)\207" [vc-consult-headers file state boundp vc-rcs-headers-result vc-rcs-consult-headers vc-rcs-fetch-master-state vc-file-getprop vc-workfile-version up-to-date require vc vc-workfile-unchanged-p vc-checkout-model locking unlocked-changes edited] 6 (#$ . 3343)]) #@26 State heuristic for RCS. (defalias 'vc-rcs-state-heuristic #[(file) "\306 \203[\307\n!\211\203[\310=\203[\311\n\312\"\211\313=\203V\314\n!\204V\315\316\317\320\n!8\"\203E\321\n\322\323#\210\324\n!\203@\325\202A\313\202V\315\326\317\320\n!8\"\203V\321\n\322\327#\210 )\202\270\314\n!\204\265\320\n!\330\f8\317\f8\315\326\"\203\200\321\n\322\327#\210\313\202\261\315\316\"\203\256\322\n!\327=\203\240\331\n!\203\232\325\202\261\332 !\202\261\324\n!\203\252\325\202\261\313\202\261\333\n!+\202\270\333\n!)\207" [vc-rcs-headers-result vc-consult-headers file state attributes owner-uid nil vc-rcs-consult-headers rev-and-lock vc-file-getprop vc-state up-to-date vc-mistrust-permissions string-match ".rw..-..-." 8 file-attributes vc-file-setprop vc-checkout-model implicit vc-rcs-workfile-is-newer edited ".r-..-..-." locking 2 file-ownership-preserved-p vc-user-login-name vc-rcs-state permissions] 6 (#$ . 3826)]) #@48 RCS-specific version of `vc-workfile-version'. (defalias 'vc-rcs-workfile-version #[(file) "\203\302 !\203\303 \304\"\206\305 !\210\303 \304\"\207" [vc-consult-headers file vc-rcs-consult-headers vc-file-getprop vc-workfile-version vc-rcs-fetch-master-state] 3 (#$ . 4780)]) #@128 Return non-nil if workfile version of FILE is the latest on its branch. When VERSION is given, perform check for that version. (defalias 'vc-rcs-latest-on-branch-p #[(file &optional version) "\204\305 !\306\307\310!!\311\216r\nq\210\312!\2038\313\314 !\315\"\210\316\317eb\210\320\f\321\322#\2054\323 !*\202D\313\314 !\324\"\210\325\326!!\230+\207" [version file #1=#:temp-buffer i pattern vc-workfile-version get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-rcs-trunk-p vc-insert-file vc-name "^[0-9]" "^head[ \n]+\\([^;]+\\);" 1 re-search-forward nil t match-string "^desc" vc-rcs-find-most-recent-rev vc-rcs-branch-part] 5 (#$ . 5069)]) #@46 RCS-specific version of `vc-checkout-model'. (defalias 'vc-rcs-checkout-model #[(file) "\301!\210\302\303\"\206\304!\210\302\303\"\207" [file vc-rcs-consult-headers vc-file-getprop vc-checkout-model vc-rcs-fetch-master-state] 3 (#$ . 5816)]) #@57 RCS-specific implementation of vc-workfile-unchanged-p. (defalias 'vc-rcs-workfile-unchanged-p #[(file) "\304\305!P\n\306=\203\307\310\311\312 %\202\307\310\313\312\314 &\211\313=\203>\n\2047\306\307\310\311\312 %\202D\315\316!\210\202D\n\204D\317\320 !*\207" [file version vc-rcsdiff-knows-brief status "-r" vc-workfile-version no vc-do-command nil 1 "rcsdiff" 2 "--brief" error "rcsdiff failed" yes zerop] 8 (#$ . 6070)]) #@414 Register FILE into the RCS version-control system. REV is the optional revision number for the file. COMMENT can be used to provide an initial description of FILE. `vc-register-switches' and `vc-rcs-register-switches' are passed to the RCS command (in that order). Automatically retrieve a read-only version of the file with keywords expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile. (defalias 'vc-rcs-register #[(file &optional rev comment) "\306\307\310!\" ;\203 C\202 \n;\203\nC\202\nD\311\f!\204:\312\310!\313\314\315$\204:\316\317!\203:\320\f!\210\321\322\313\323\324\325\326!\205G\327 \203O\330\202P\331(P)\205\\\332)P & \210r\333q\210eb\210\334\335\336!P!\205t\337\340!\211*\204\201\341!\210\202\231\342\343\344*!\203\220*\202\227\306*\310!\"#\210)\342\345\346\347\313\315#\205\250\337\340!#+\207" [file vc-register-switches vc-rcs-register-switches switches subdir vc-keep-workfiles expand-file-name "RCS" file-name-directory file-exists-p directory-files nil ".*,v$" t yes-or-no-p "Create RCS subdirectory? " make-directory apply vc-do-command 0 "ci" vc-rcs-release-p "5.6.4" "-i" "-u" "-r" "-t-" "*vc*" looking-at "^\\(.*\\) <-- " file-name-nondirectory match-string 1 vc-rcs-registered vc-file-setprop vc-name file-name-absolute-p vc-workfile-version re-search-forward "^initial revision: \\([0-9.]+\\).*\n" rev comment name] 11 (#$ . 6520)]) #@76 Return non-nil if RCS thinks it would be responsible for registering FILE. (defalias 'vc-rcs-responsible-p #[(file) "\301\302\303\304!\"!\207" [file file-directory-p expand-file-name "RCS" file-name-directory] 5 (#$ . 7949)]) #@41 Implementation of receive-file for RCS. (defalias 'vc-rcs-receive-file #[(file rev) "\303!\304\n\305#\210 \306=\203\307!\210\310\n\311P\")\207" [file checkout-model rev vc-checkout-model vc-rcs-register "" implicit vc-rcs-set-non-strict-locking vc-rcs-set-default-branch ".1"] 4 (#$ . 8182)]) #@105 Unregister FILE from RCS. If this leaves the RCS subdirectory empty, ask the user whether to remove it. (defalias 'vc-rcs-unregister #[(file) "\306!\307 !\310 !\211\204\311 !\210\2027\312 @\313#\210 A\314\211\2036 @\315\316\317\217\210 A\211\204'*\320\321\n!!\322\230\205V\323\n\314\324#?\205V\325\326\327\n\"!\205V\330\n!+\207" [file master dir backup-info f #1=#:--dolist-temp--97285 vc-name file-name-directory find-backup-file-name delete-file rename-file ok-if-already-exists nil #2=#:G97286 (delete-file f) ((error)) file-name-nondirectory directory-file-name "RCS" directory-files "^\\([^.]\\|\\.[^.]\\|\\.\\.[^.]\\).*" yes-or-no-p format "Directory %s is empty; remove it? " delete-directory] 5 (#$ . 8489)]) #@47 RCS-specific version of `vc-backend-checkin'. (defalias 'vc-rcs-checkin #[(file rev comment) ";\203\nC\202 \306\n!\307\310\n\311\"(\2047 \2037\312\313\314 !\315Q \"\2037 \211(\2037\316 B(\204E \203E\317 !(\320\321\307\322\323\324\n!\325\326!\205T\327)\203]\330\202^\331(P\332*P & \210\333\n\306\307#\210\334q\210eb\210\335\336\307\337#\204\205\335\340\307\337#\203\217\341\342!\333\n\306\f#\210 \205\302\f\205\302\343 !\343\f!\230?\205\302\344\n\345\f!?\205\256\343\f!\"\210\325\346!?\205\302\321\307\342\347\324\n!\330 P%,\207" [vc-checkin-switches switches file default-branch new-version old-version vc-workfile-version nil vc-file-getprop vc-rcs-default-branch string-match "^" regexp-quote "\\." "-f" vc-branch-part apply vc-do-command 0 "ci" vc-name vc-rcs-release-p "5.6.4" "-j" "-u" "-r" "-m" vc-file-setprop "*vc*" re-search-forward "new revision: \\([0-9.]+\\);" t "reverting to previous revision \\([0-9.]+\\)" match-string 1 vc-rcs-branch-part vc-rcs-set-default-branch vc-rcs-trunk-p "5.6.2" "rcs" rev vc-keep-workfiles comment] 10 (#$ . 9229)]) #@61 Retrieve a copy of a saved version of FILE into a workfile. (defalias 'vc-rcs-checkout #[(file &optional editable rev workfile) "\206 \306 !\307\310\311\f\"\210\212 \203 q\210 ;\203# C\202$ 22\212\312\f!2\203\250\313\314\315 !!3\203B\316\202C\317\"\32045\321\216\322\21167\f\323\324\325!!89\326\216r8q\210\327\330p\317\331\315 !\3323\205q\333\334:P\n& \210)r8q\210~\210\335ed9\307\317%\210.\336\f\313\314\315 !!3\203\235\316\202\236\317\"\"\210\3074+\202]\307;:\203\274:\337\230\203\274\340 \307\"\210\327\330\307\317\331\315 !\341 !\342=\205\315\3433\205\323\333:;\203\340\344:P\202\n\345 !\211<\205 \344:\204\364<\202\346eb\210\353>\307\320#\205(\354=!*;)\355 \345;#\210:\203\\:\337\230\204\\\340 \356 ;\"\203X\357;!?\205Z\360;!\202Z;\"\210))\310\361\f\"-\207" [workfile file switches file-buffer filename vc-checkout-switches get-file-buffer nil message "Checking out %s..." file-name-directory logior file-modes vc-name 128 0 t ((byte-code "\203\302 !\203\303 !\210\302\207" [failed filename file-exists-p delete-file] 2)) 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 "co" "-q" "-l" "-p" write-region set-file-modes "" vc-rcs-set-default-branch vc-checkout-model implicit "-f" "-r" vc-workfile-version vc-trunk-p vc-branch-part "*vc*" "^revision \\([0-9.]+\\).*\n" 1 re-search-forward match-string vc-file-setprop vc-rcs-latest-on-branch-p vc-rcs-trunk-p vc-rcs-branch-part "Checking out %s...done" default-directory editable failed vc-modes coding-system-for-write coding-system-for-read #1# #2=#:temp-file rev new-version workrev i pattern] 13 (#$ . 10328)]) #@45 Revert FILE to the version it was based on. (defalias 'vc-rcs-revert #[(file &optional contents-done) "\301\302\303\304\305!\306\307!\310=\203\311\202\312\313!P&\207" [file vc-do-command nil 0 "co" vc-name "-f" vc-state edited "-u" "-r" vc-workfile-version] 9 (#$ . 12189)]) #@97 Undo the most recent checkin of FILE. EDITABLE non-nil means previous version should be locked. (defalias 'vc-rcs-cancel-version #[(file editable) "\305!\306 !\203\307\202\310 !\311 \312\313\312\314\315\316!\317 P%\210\f?\2050\320\321\322\217\210\202#,\207" [file target previous config done vc-workfile-version vc-trunk-p "" vc-branch-part current-window-configuration nil vc-do-command 0 "rcs" vc-name "-o" err (byte-code "\304\305\306\307\310!\311 \203\312\202\313\nP&\210\314\305\207" [file editable previous done vc-do-command nil 0 "co" vc-name "-f" "-l" "-u" t] 8) ((error (byte-code "\304q\210eb\210\305\306\307\310#\203\311!\312 \"\210\313\n!\210\202%\314 @ A\"\210\307\207" [previous file config err "*vc*" search-forward "no side branches present for" nil t vc-branch-part vc-rcs-set-default-branch set-window-configuration signal] 4)))] 7 (#$ . 12478)]) #@108 Merge changes into current working copy of FILE. The changes are between FIRST-VERSION and SECOND-VERSION. (defalias 'vc-rcs-merge #[(file first-version &optional second-version) "\303\304\305\306\307!\310\311 P\n\205\311\nP&\207" [file first-version second-version vc-do-command nil 1 "rcsmerge" vc-name "-kk" "-r"] 9 (#$ . 13376)]) #@100 Steal the lock on the current workfile for FILE and revision REV. Needs RCS 5.6.2 or later for -M. (defalias 'vc-rcs-steal-lock #[(file &optional rev) "\302\303\304\305\306!\307\310 P\311 P&\207" [file rev vc-do-command nil 0 "rcs" vc-name "-M" "-u" "-l"] 9 (#$ . 13721)]) #@38 Get change log associated with FILE. (defalias 'vc-rcs-print-log #[(file) "\301\302\303\304\305!$\207" [file vc-do-command nil 0 "rlog" vc-name] 6 (#$ . 14002)]) (defalias 'vc-rcs-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 RCS between two versions of FILE. (defalias 'vc-rcs-diff #[(file &optional oldvers newvers) "\204\306 !\307\310\311\312\313 \314\315\316P\n\205\316\nPE\314 <\203% \202' C\f<\2030\f\2022\fC\317\320\321\322\323!\324Q!!\211<\203F \202H C)#\"&\207" [oldvers file newvers diff-switches vc-diff-switches backend-switches vc-workfile-version apply vc-do-command "*vc-diff*" 1 "rcsdiff" append "-q" "-r" eval intern "vc-" symbol-name rcs "-diff-switches"] 17 (#$ . 14653)]) #@47 Assign to FILE's latest version a given NAME. (defalias 'vc-rcs-assign-name #[(file name) "\302\303\304\305\306!\307 \310Q%\207" [file name vc-do-command nil 0 "rcs" vc-name "-n" ":"] 8 (#$ . 15170)]) #@50 Check if the current file has any headers in it. (defalias 'vc-rcs-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 (#$ . 15378)]) #@45 Implementation of vc-clear-headers for RCS. (defalias 'vc-rcs-clear-headers #[nil "\301eb\210\302\303\301\304#\205\305\306!\210\202)\207" [case-fold-search nil re-search-forward "\\$\\(Author\\|Date\\|Header\\|Id\\|Locker\\|Name\\|RCSfile\\|Revision\\|Source\\|State\\): [^$\n]+\\$" t replace-match "$\\1$"] 4 (#$ . 15622)]) (defalias 'vc-rcs-rename-file #[(old new) "\303\304! \n#\207" [old new vc-rcs-master-templates vc-rename-master vc-name] 4]) #@50 Return t if REV is an RCS revision on the trunk. (defalias 'vc-rcs-trunk-p #[(rev) "\301\302\"\303=?\207" [rev string-match "\\`[0-9]+\\.[0-9]+\\'" nil] 3 (#$ . 16084)]) #@54 Return the branch part of an RCS revision number REV (defalias 'vc-rcs-branch-part #[(rev) "\301\302\303\"O\207" [rev 0 string-match "\\.[0-9]+\\'"] 5 (#$ . 16261)]) #@43 Return t if REV is an RCS branch revision (defalias 'vc-rcs-branch-p #[(rev) "\301\302\"\303=?\207" [rev string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" nil] 3 (#$ . 16435)]) #@64 Return the minor version number of an RCS revision number REV. (defalias 'vc-rcs-minor-part #[(rev) "\301\302\"\210\303\224\303\225O\207" [rev string-match "[0-9]+\\'" 0] 3 (#$ . 16622)]) #@39 Guess the previous RCS version number (defalias 'vc-rcs-previous-version #[(rev) "\303!\304\305!! \306V\203\n\307\310 S!Q\202'\311!\203$\312\202'\303\n!*\207" [rev minor-num branch vc-rcs-branch-part string-to-number vc-rcs-minor-part 1 "." number-to-string vc-rcs-trunk-p ""] 4 (#$ . 16818)]) #@135 Return non-nil if FILE is newer than its RCS master. This likely means that FILE has been changed with respect to its master version. (defalias 'vc-rcs-workfile-is-newer #[(file) "\303\304!8\303\304\305!!8\211@ @V\206%\n@ @U\205%\nA@ A@V*\207" [file master-time file-time 5 file-attributes vc-name] 6 (#$ . 17129)]) #@38 Find most recent revision on BRANCH. (defalias 'vc-rcs-find-most-recent-rev #[(branch) "eb\210\304\305\306\307\310\n!\311Q\305\312#\203*\313\314\315!! W\203& \314\316!)\202\2061\317\n!*\207" [value latest-rev branch rev -1 nil re-search-forward "^\\(" regexp-quote "\\.\\([0-9]+\\)\\)\ndate[ ]+[0-9.]+;" t string-to-number match-string 2 1 vc-rcs-branch-part] 4 (#$ . 17457)]) #@319 Compute the master file's idea of the state of FILE. If a WORKFILE-VERSION is given, compute the state of that version, otherwise determine the workfile version based on the master file. This function sets the properties `vc-workfile-version' and `vc-checkout-model' to their correct values, based on the master file. (defalias 'vc-rcs-fetch-master-state #[(file &optional workfile-version) "\306\307\310!!\311\216rq\210\312\313 !\314\"\203eb\210\315\316!\204%\317\320\313 !\"\210\321\322\323eb\210\324 \321\325#\2058\326\n!*\327 \330\f#\210.\204\214\f\203P\f\331\230\203j\332\323eb\210\324 \321\325#\205b\326\n!*.\325\202\205\333\334\f\"\203w\f.\202\205\312\313 !\335\"\210\336\f!.\325\327 \337.#\210eb\210\327 \340\324\341\321\325#\203\236\342\202\237\343#\210eb\210\344\345.!\346Q\323eb\210\324 \321\325#\205\274\326\n!*\211/\204\327 \204\317\347 .\"\203\323\350\202\351\202/;\203/\352 \230\203\340 !\342=\204\371 \204\371\347 .\"\203\375\353\202\354\202/;\203\f/\202\317\355!.\207" [#1=#:temp-buffer file i pattern default-branch workfile-is-latest 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 vc-name "^[0-9]" looking-at "^head[ \n]+[^;]+;$" error "File %s is not an RCS master file" nil "^branch[ \n]+\\([^;]*\\);" 1 re-search-forward t match-string vc-file-setprop vc-rcs-default-branch "" "^head[ \n]+\\([^;]+\\);" string-match "^[0-9]+\\.[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*$" "^desc" vc-rcs-find-most-recent-rev vc-workfile-version vc-checkout-model ";[ \n]*strict;" locking implicit "^locks[ \n]+[^;]*[ \n]+\\([^:]+\\):" regexp-quote "[^0-9.]" vc-rcs-latest-on-branch-p up-to-date needs-patch vc-user-login-name edited needs-merge "Error getting state of RCS file" workfile-version locking-user] 8 (#$ . 17854)]) #@232 Search for RCS headers in FILE, and set properties accordingly. Returns: nil if no headers were found 'rev if a workfile revision was found 'rev-and-lock if revision and lock info was found (defalias 'vc-rcs-consult-headers #[(file) "\304!\204\305\207\305\211\211\212\304!q\210eb\210\306\307\305\310#\203%\311\312!\2046eb\210\306\313\305\310#\203d\311\312!\203d\314\225b\210\315\316!\311\317!\203\240\314\225b\210\311\320!\203U\321\322\202\240\311\323!\203\240\315\316!\322\202\240\324\325\305\310#\203\240\315\316!eb\210\324\326\305\310#\203\236\311\327!\203\212\315\316!\322\202\240\311\330!\203\227\321\322\202\240\321\322\202\240\331) \203\253\332\333\n#\210 \322=\203\364\332\334 \321=\203\276\335\202\312 \336 \230\203\311\337\202\312 #\203\364\340!\204\364\341!\203\364\342\343\344\345!8\"\203\356\332\346\347#\210\202\364\332\346\350#\210 +\207" [file locking-user version status get-file-buffer nil search-forward "$Id: " t looking-at "[^ ]+ \\([0-9.]+\\) " "$Header: " 0 match-string-no-properties 1 "[0-9]+[/-][01][0-9][/-][0-3][0-9] [0-2][0-9]:[0-5][0-9]+:[0-6][0-9]+\\([+-][0-9:]+\\)? [^ ]+ [^ ]+ " "\\$" none rev-and-lock "\\([^ ]+\\) \\$" re-search-forward "\\$Revision: \\([0-9.]+\\) \\$" "\\$Locker:" " \\([^ ]+\\) \\$" " *\\$" rev vc-file-setprop vc-workfile-version vc-state up-to-date vc-user-login-name edited vc-mistrust-permissions vc-up-to-date-p string-match ".r-..-..-." 8 file-attributes vc-checkout-model locking implicit] 5 (#$ . 19750)]) #@525 Compare release numbers, represented as strings. Release components are assumed cardinal numbers, not decimal fractions (5.10 is a higher release than 5.9). Omitted fields are considered lower (5.6.7 is earlier than 5.6.7.1). Comparison runs till the end of the string is found, or a non-numeric component shows up (5.6.7 is earlier than "5.6.7 beta", which is probably not what you want in some cases). This code is suitable for existing RCS release numbers. CVS releases are handled reasonably, too (1.3 < 1.4* < 1.5). (defalias 'vc-release-greater-or-equal #[(r1 r2) "\304\211\211\211\305\306\215,\207" [i2 i1 v2 v1 nil done (byte-code "\306\307\"\203a\310\225\211\203a\311\312\313\"!\211\203a\306\307 \"\203a\310\225\211\203a\311\312\313 \"!\211\203a\n V\203?\314\315\316\"\202Y\n W\203L\314\315\317\"\202Y\314\315\320 \317O \f\317O\"\"\203a\314\315\316\"\210\306\307 \"\203o\314\315\317\"\206s\314\315\316\"\207" [r1 i1 v1 r2 i2 v2 string-match "^\\.?\\([0-9]+\\)" 0 string-to-number match-string 1 throw done t nil vc-release-greater-or-equal] 7)] 4 (#$ . 21320)]) #@40 Return t if we have RELEASE or better. (defalias 'vc-rcs-release-p #[(release) "\302 \211\205\303=?\205\304 \")\207" [installation release vc-rcs-system-release unknown vc-release-greater-or-equal] 4 (#$ . 22424)]) #@303 Return the RCS release installed on this system, as a string. Return symbol UNKNOWN if the release cannot be deducted. The user can override this using variable `vc-rcs-release'. If the user has not set variable `vc-rcs-release' and it is nil, variable `vc-rcs-release' is set to the returned value. (defalias 'vc-rcs-system-release #[nil "\206/\303\304\305\211\306\305\307%!\203,r\310\311!q\210\312\313eb\210\314\n\305\315#\205(\316 !+\206-\317\211\207" [vc-rcs-release i pattern zerop vc-do-command nil "rcs" "-V" get-buffer "*vc*" "^RCS version \\([0-9.]+ *.*\\)" 1 re-search-forward t match-string unknown] 7 (#$ . 22653)]) (defalias 'vc-rcs-set-non-strict-locking #[(file) "\301\302\303\304\305%\210\306\307\310#\210\311\312\313!\314\"\"\207" [file vc-do-command nil 0 "rcs" "-U" vc-file-setprop vc-checkout-model implicit set-file-modes logior file-modes 128] 6]) (defalias 'vc-rcs-set-default-branch #[(file branch) "\302\303\304\305\306!\307 P%\210\310\311 #\207" [file branch vc-do-command nil 0 "rcs" vc-name "-b" vc-file-setprop vc-rcs-default-branch] 7]) (provide 'vc-rcs)