%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/vc/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/vc/vc-svn.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\300\301\302\303#\210\304\305\303\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322\311\305&\210\313\323\315\316\324DD\325\321\326\307\327\311\305&	\210\313\330\315\316\331DD\332\321\333\307\334\311\305&	\210\313\335\315\316\336DD\337\321\340\307\334\311\305&	\210\313\341\315\316\342DD\343\321\344\307\345\311\305&	\210\313\346\315\316\347DD\350\307\310\321\351\311\305&	\207" [put SVN vc-functions nil custom-declare-group vc-svn "VC Subversion (svn) backend." :version "24.1" :group vc custom-declare-variable vc-svn-program funcall function #[0 "\300\207" [#1="svn"] 1 #1#] "Name of the SVN executable." :type string vc-svn-global-switches #[0 "\301=?\205\302\207" [system-type darwin ("--non-interactive")] 2] "Global switches to pass to any SVN command.\nThe option \"--non-interactive\" is often needed to prevent SVN\nhanging while prompting for authorization." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#2="") string)) "24.4" vc-svn-register-switches #[0 "\300\207" [nil] 1] "Switches for registering a file into SVN.\nA string or list of strings passed to the checkin program by\n\\[vc-register].  If nil, use the value of `vc-register-switches'.\nIf t, use no switches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#2#) string)) "22.1" vc-svn-diff-switches #[0 "\300\207" [t] 1] "String or list of strings specifying extra switches for svn diff under VC.\nIf nil, use the value of `vc-diff-switches' (or `diff-switches'),\ntogether with \"-x --diff-cmd=\"`diff-command' (since `svn diff'\ndoes not support the default \"-c\" value of `diff-switches').\nIf you want to force an empty list of arguments, use t." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#2#) string)) vc-svn-annotate-switches #[0 "\300\207" [nil] 1] "String or list of strings specifying switches for svn annotate under VC.\nIf nil, use the value of `vc-annotate-switches'.  If t, use no\nswitches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#2#) string)) "25.1" vc-svn-header #[0 "\300\207" [("$Id$")] 1] "Header keywords to be inserted by `vc-insert-headers'." (repeat string)] 10)
#@56 The name of the ".svn" subdirectory or its equivalent.
(defconst vc-svn-admin-directory (byte-code "\301>\203\302\303!\203\304\207\305\207" [system-type (cygwin windows-nt ms-dos) getenv "SVN_ASP_DOT_NET_HACK" "_svn" ".svn"] 2) (#$ . 2815))
(defalias 'vc-svn-revision-granularity #[0 "\300\207" [repository] 1])
#@14 

(fn FILES)
(defalias 'vc-svn-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 3138)])
(defalias 'vc-svn-update-on-retrieve-tag #[0 "\300\207" [nil] 1])
#@45 Check if FILE is SVN registered.

(fn FILE)
(defalias 'vc-svn-registered #[257 "\301!\262\302!\205X\303\304!!\205X\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316\304!!\210\317\3201=\321\322\211\323\324%0\202?\210\317\211\310=\205R\325!\211\205P\211\326>?\262)\262*\262\207" [process-file-side-effects expand-file-name vc-svn-root file-accessible-directory-p file-name-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 cd nil (error) vc-svn-command t "status" "-v" vc-svn-parse-status (ignored unregistered)] 8 (#$ . 3300)])
#@48 SVN-specific version of `vc-state'.

(fn FILE)
(defalias 'vc-svn-state #[257 "\301\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314!!\210\315\316\305\317\320%\210\321!*\262)\207" [process-file-side-effects nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 cd file-name-directory vc-svn-command t "status" "-v" vc-svn-parse-status] 8 (#$ . 3941)])
#@34 

(fn CALLBACK &optional REMOTE)
(defalias 'vc-svn-after-dir-status #[513 "\301\203	\302\202\n\303\304eb\210\305\304\306#\203~\307\310!\311H\236A\307\312!\311H\236A\313>\2036\314\315\316\307\317!#\2029\307\317!\320>\203H\321=\204H\262\203h\307\322!\323\230\203h\324=\203a\325\262\202h\204h\326\262\203y\211\327\230\204y\211DB\262\266\202!\207" [system-type ((65 . added) (67 . conflict) (73 . ignored) (77 . edited) (68 . removed) (82 . removed) (33 . needs-update) (63 . unregistered) (126 . edited)) "^\\(.\\)\\(.\\).....? \\([ *]\\) +\\(?:[-0-9]+\\)?   \\(.*\\)$" "^\\(.\\)\\(.\\)...\\(.\\).? \\(.*\\)$" nil re-search-forward t match-string 1 0 2 (windows-nt ms-dos) replace-regexp-in-string "\\\\" "/" 4 (conflict edited) conflict 3 "*" edited needs-merge needs-update "."] 12 (#$ . 4389)])
(autoload 'vc-expand-dirs "vc")
#@198 Run 'svn status' for DIR and update BUFFER via CALLBACK.
CALLBACK is called as (CALLBACK RESULT BUFFER), where
RESULT is a list of conses (FILE . STATE) for directory DIR.

(fn DIR FILES CALLBACK)
(defalias 'vc-svn-dir-status-files #[771 "\300\301p\302\303\304\305&\210\306\307\310\311\312\313!\314\"\315$!\207" [apply vc-svn-command async nil "status" "-u" vc-exec-after make-byte-code 0 "\301\300\302\"\207" vconcat vector [vc-svn-after-dir-status t] 3] 11 (#$ . 5261)])
#@72 Generate extra status headers for a Subversion working copy.

(fn DIR)
(defalias 'vc-svn-dir-extra-headers #[257 "\301\302\303\304\301\305$\210)\212\303q\210eb\210\306\307\301\310#\205\311\312!)\211\203/\313\314\315\316#\313\315\317#P\2020\320\260\207" [process-file-side-effects nil vc-svn-command "*vc*" 0 "info" re-search-forward "Repository Root: *\\(.*\\)" t match-string 1 propertize "Repository : " face font-lock-type-face font-lock-variable-name-face ""] 7 (#$ . 5745)])
#@59 SVN-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-svn-working-revision #[257 "\300!\210\301\302\"\207" [vc-svn-registered vc-file-getprop vc-working-revision] 4 (#$ . 6238)])
#@17 

(fn FILE REV)
(defalias 'vc-svn-previous-revision #[514 "\300!S\301W\205
\302!\207" [string-to-number 0 number-to-string] 5 (#$ . 6443)])
#@17 

(fn FILE REV)
(defalias 'vc-svn-next-revision #[514 "\300!T\300\301\302\"!W?\205\303!\207" [string-to-number vc-file-getprop vc-working-revision number-to-string] 7 (#$ . 6593)])
#@30 Create a new SVN repository.
(defalias 'vc-svn-create-repo #[0 "\301\302\303\304\305$\210\306\302\303\307\310\311!\312\313!\314\315!\203'\315!\316=\203'\317\320\321#\262;\2038\303H\322=\2038\323\2029\324\325Q\266\202%\207" [default-directory vc-do-command "*vc*" 0 "svnadmin" ("create" "SVN") vc-svn-command "." "checkout" expand-file-name executable-find "svn" fboundp w32-application-type msys replace-regexp-in-string "^\\(.\\):/" "/\\1/" 47 "file://" "file:///" "SVN"] 11 (#$ . 6786)])
(autoload 'vc-switches "vc")
#@238 Register FILES into the SVN version-control system.
The COMMENT argument is ignored  This does an add but not a commit.
Passes either `vc-svn-register-switches' or `vc-register-switches'
to the SVN command.

(fn FILES &optional COMMENT)
(defalias 'vc-svn-register #[513 "\300\301\302\303\304\305\306\307\"&\207" [apply vc-svn-command nil 0 "add" vc-switches SVN register] 11 (#$ . 7324)])
#@13 

(fn FILE)
(defalias 'vc-svn-root #[257 "\301\"\207" [vc-svn-admin-directory vc-find-root] 4 (#$ . 7721)])
(defalias 'vc-svn-responsible-p 'vc-svn-root)
#@96 SVN-specific version of `vc-backend-checkin'.

(fn FILES COMMENT &optional EXTRA-ARGS-IGNORED)
(defalias 'vc-svn-checkin #[770 "\300\301\302\303\304\305\306\302\n\"B\307\310\311\"\244&\312q\210eb\210\211\313\232?\205D\314\315\302\316#\2037\317\320\"\210\321\322\323!!\202D\324p!\210eb\210\325 \210\321\326!\207" [apply vc-svn-command nil 1 "ci" "-m" log-edit-extract-headers vc-switches SVN checkin "*vc*" 0 search-forward "Transaction is out of date" t mapc #[257 "\300\301\302#\207" [vc-file-setprop vc-state needs-merge] 5 "\n\n(fn FILE)"] 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"] 13 (#$ . 7883)])
#@84 SVN-specific retrieval of a specified version into a buffer.

(fn FILE REV BUFFER)
(defalias 'vc-svn-find-revision #[771 "\301\302\303\304\305\205\306\230?\205\307P\310\311\312\"&)\207" [process-file-side-effects nil apply vc-svn-command 0 "cat" "" "-r" vc-switches SVN checkout] 13 (#$ . 8628)])
#@145 Ignore FILE under Subversion.
FILE is a wildcard specification, either relative to
DIRECTORY or absolute.

(fn FILE &optional DIRECTORY REMOVE)
(defalias 'vc-svn-ignore #[769 "\300\301\"!\302!\303!\304!\203\305\"\202 B\211\262\306\307\310\307\211\311\312\313\314	\315#&\207" [directory-file-name expand-file-name file-name-directory file-name-nondirectory vc-svn-ignore-completion-table delete vc-svn-command nil 0 "propset" "svn:ignore" mapconcat identity "\n"] 19 (#$ . 8947)])
#@64 Return the list of ignored files in DIRECTORY.

(fn DIRECTORY)
(defalias 'vc-svn-ignore-completion-table #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\211\313\314\315\316!&\303U\205)\317\320 \321\"*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-svn-command t nil "propget" "svn:ignore" expand-file-name split-string buffer-string "\n"] 10 (#$ . 9451)])
#@57 Return the administrative directory of FILE.

(fn FILE)
(defalias 'vc-svn-find-admin-dir #[257 "\301\302!\"\207" [vc-svn-admin-directory expand-file-name vc-svn-root] 5 (#$ . 9924)])
#@27 

(fn FILE &optional REV)
(defalias 'vc-svn-checkout #[513 "\300\301\"\210r\302!\206
pq\210\303\304\305\306\"#\210)\307\305\"\210\300\310\"\207" [message "Checking out %s..." get-file-buffer vc-svn-update vc-switches SVN checkout vc-mode-line "Checking out %s...done"] 8 (#$ . 10115)])
#@26 

(fn FILE REV SWITCHES)
(defalias 'vc-svn-update #[771 "\300!\205??\205<\301\302\303#\210\304\305\303\306\307\204\"\310\2028\311=\2040\312\232\2034\303\2028\313P&\207" [file-exists-p vc-file-setprop vc-working-revision nil apply vc-svn-command 0 "update" "-rBASE" t "" "-r"] 11 (#$ . 10414)])
#@13 

(fn FILE)
(defalias 'vc-svn-delete-file #[257 "\300\301\302\303$\207" [vc-svn-command nil 0 "remove"] 6 (#$ . 10738)])
#@16 

(fn OLD NEW)
(defalias 'vc-svn-rename-file #[514 "\300\301\302\303\304!%\207" [vc-svn-command nil 0 "move" file-relative-name] 9 (#$ . 10866)])
#@80 Revert FILE to the version it was based on.

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-svn-revert #[513 "\211?\205\300\301\302\303$\207" [vc-svn-command nil 0 "revert"] 7 (#$ . 11021)])
(autoload 'vc-read-revision "vc")
#@66 Accept a file merge request, prompting for revisions.

(fn FILE)
(defalias 'vc-svn-merge-file #[257 "\300\301\302QC\303#\304\211\305\230\203\306!\262\202+\300\307C\303\304%\262\310#\262\207" [vc-read-revision "Merge " " from SVN revision (default news on current branch): " SVN nil "" vc-svn-merge-news "Second SVN revision: " vc-svn-merge] 10 (#$ . 11256)])
#@158 Merge changes into current working copy of FILE.
The changes are between FIRST-VERSION and SECOND-VERSION.

(fn FILE FIRST-VERSION &optional SECOND-VERSION)
(defalias 'vc-svn-merge #[770 "\300\301\302\303\304\203\305Q\202&\210\306\307\310#\210r\311\312!q\210eb\210\313\314!\2032\315\2023\302)\207" [vc-svn-command nil 0 "merge" "-r" ":" vc-file-setprop vc-state edited get-buffer "*vc*" looking-at "C  " 1] 12 (#$ . 11638)])
#@51 Merge in any new changes made to FILE.

(fn FILE)
(defalias 'vc-svn-merge-news #[257 "\300\301\"\210\302\303\304#\210\305\306\304\307$\210r\310\311!q\210eb\210\312\313\306\314#\203.\302\315\316\317!#\210\2024\302\315\306#\210eb\210\320\321!\203A\304\202\221\312\322\323\324!!P\306\314#\203\212\316\317!\325\230\203n\302\326\327#\210\302\303\330!\3318\262#\210\304\202\221\316\317!\332\230\203\200\302\326\333#\210\304\202\221\302\326\333#\210\334\202\221\335\311!\210\336\337!\300\340\"\210)\207" [message "Merging changes into %s..." vc-file-setprop vc-checkout-time 0 vc-svn-command nil "update" get-buffer "*vc*" re-search-forward "^\\(Updated to\\|At\\) revision \\([0-9]+\\)" t vc-working-revision match-string 2 looking-at "At revision" "^\\(\\([ACGDU]\\)\\(.[B ]\\)?  \\)" regexp-quote file-relative-name "U" vc-state up-to-date file-attributes 5 "G" edited 1 pop-to-buffer error "Couldn't analyze svn update result" "Merging changes into %s...done"] 7 (#$ . 12086)])
#@305 Modify the change comments for a specified REV.
You must have ssh access to the repository host, and the directory Emacs
uses locally for temp files must also be writable by you on that host.
This is only supported if the repository access method is either file://
or svn+ssh://.

(fn FILES REV COMMENT)
(defalias 'vc-svn-modify-change-comment #[771 "\301\211\211\211\211\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313p\305\301\314$\210eb\210\315\316\301\317#\204.\320\321!\210\322\323!\203?\317\262\322\312!\262\202P\322\324!\262\322\325!\262\326Q\262*\210\327!\211\262\302\330!\304\305\306\307\310!\331\"\312$\216r\211q\210c\210)r\211q\210\332\301\211\301\305%\210*\266\211\203\243\333\334\305\335\301\336\337\340\341\342\"&\n\204\235\320\343!\210\344!\202\322\333\334\305\345\301\346\n	&\204\267\320\347\"\210\333\334\305\350\301\346	\341\351\n\211%&?\205\322\320\343!\207" [user-mail-address nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-svn-command "info" re-search-forward "Repository Root: \\(file://\\(/.*\\)\\)\\|\\(svn\\+ssh://\\([^/]+\\)\\(/.*\\)\\)" t error "Repository information is unavailable" match-string 1 4 5 ":" make-temp-file " *temp file*" [buffer-name kill-buffer] write-region vc-do-command "*vc*" "svnadmin" "setlog" "--bypass-hooks" "-r" format "%s" "Log edit failed" delete-file "scp" "-q" "Copy of comment to %s failed" "ssh" "svnadmin setlog --bypass-hooks %s -r %s %s; rm %s"] 21 (#$ . 13092)])
(defvar vc-svn-log-view-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vc-svn-log-view-mode-hook variable-documentation put "Hook run after entering SVN-Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-svn-log-view-mode-map definition-name vc-svn-log-view-mode] 4)
(defvar vc-svn-log-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-svn-log-view-mode-abbrev-table vc-svn-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-svn-log-view-mode'." boundp vc-svn-log-view-mode-syntax-table definition-name vc-svn-log-view-mode (lambda (#1=#:def-tmp-var) (defvar vc-svn-log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-svn-log-view-mode'." (lambda (#1#) (defvar vc-svn-log-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-svn-log-view-mode'." derived-mode-parent log-view-mode] 5)
#@534 Major mode derived from `log-view-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:

  `vc-svn-log-view-mode-map', `vc-svn-log-view-mode-abbrev-table' and `vc-svn-log-view-mode-syntax-table'

which more-or-less shadow log-view-mode's corresponding tables.

In addition to any hooks its parent mode might have run,
this mode runs the hook `vc-svn-log-view-mode-hook', as the final or penultimate step
during initialization.

\{vc-svn-log-view-mode-map}
(defalias 'vc-svn-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\331\332!\210\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name vc-svn-log-view-mode-map vc-svn-log-view-mode-syntax-table vc-svn-log-view-mode-abbrev-table make-local-variable t log-view-mode vc-svn-log-view-mode "SVN-Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table require add-log log-view-per-file-logs nil run-mode-hooks vc-svn-log-view-mode-hook local-abbrev-table] 5 (#$ . 15935) nil])
(autoload 'vc-setup-buffer "vc-dispatcher")
#@266 Print commit log associated with FILES into specified BUFFER.
SHORTLOG is ignored.
If START-REVISION is non-nil, it is the newest revision to show.
If LIMIT is non-nil, show no more than this many entries.

(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)
(defalias 'vc-svn-print-log #[1282 "r\302!\210\303eb\210\203W\211\205R\211@\304\305\261\210\306\307\310C\311\312\n\2031\313\314\f\"\2022\315C	\316=\205;\317C\205G\320\313\321\"D#&\210A\266\202\202\262\202\204\306\307\322\323\311\312\203k\313\324\n\"\202l\315C	\316=\205u\317C	\205\201\320\313\321\f\"D#&*\207" [inhibit-read-only vc-log-view-type vc-setup-buffer t "Working file: " "\n" apply vc-svn-command async "log" append format "-r%s:1" "-rHEAD:0" with-diff "--diff" "--limit" "%s" 0 nil "-r%s"] 20 (#$ . 17375)])
#@126 Get a difference report using SVN between two revisions of fileset FILES.

(fn FILES &optional OLDVERS NEWVERS BUFFER ASYNC)
(defalias 'vc-svn-diff #[1281 "\2034\2044\2034\3022.\211\203+\211@\303!\232\204$\304\302\305\"\210A\266\202\202\210\3060\2034\305\262\211\205=\206=\262\203J\307\310\311\"\202W\312	P\313\314\315\307\305\311\"\316#E\317\320\203b\321\202c\322	\323\324\f\205\200\325\f\203}
\326Q\202
D\"&\210\203\214\327\202\221\330\331!!\207" [vc-svn-diff-switches diff-command no vc-working-revision throw nil t vc-switches SVN diff "--diff-cmd=" "-x" mapconcat identity " " apply vc-svn-command async 0 "diff" append "-r" ":" 1 buffer-size get-buffer] 18 (#$ . 18204)])
#@224 Assign to DIR's current revision 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).
NAME is assumed to be a URL.

(fn DIR NAME BRANCHP)
(defalias 'vc-svn-create-tag #[771 "\300\301\302\303%\210\211\205\304\301#\207" [vc-svn-command nil 0 "copy" vc-svn-retrieve-tag] 9 (#$ . 18936)])
#@215 Retrieve a tag at and below DIR.
NAME is the name of the tag; if it is empty, do a `svn update'.
If UPDATE is non-nil, then update (resynch) any affected buffers.
NAME is assumed to be a URL.

(fn DIR NAME UPDATE)
(defalias 'vc-svn-retrieve-tag #[771 "\300\301\302\303%\207" [vc-svn-command nil 0 "switch"] 9 (#$ . 19320)])
#@50 Check if the current file has any headers in it.
(defalias 'vc-svn-check-headers #[0 "\212eb\210\300\301\302\303#)\207" [re-search-forward "\\$[A-Za-z\300-\326\330-\366\370-\377]+\\(: [	 -#%-~\240-\377]*\\)?\\$" nil t] 4 (#$ . 19653)])
#@243 A wrapper around `vc-do-command' for use in vc-svn.el.
The difference to vc-do-command is that this function always invokes `svn',
and that it passes `vc-svn-global-switches' to it before FLAGS.

(fn BUFFER OKSTATUS FILE-OR-LIST &rest FLAGS)
(defalias 'vc-svn-command #[899 "\302\303\206\304	;\203	B\202\305	\"&\207" [vc-svn-program vc-svn-global-switches apply vc-do-command "*vc*" append] 13 (#$ . 19896)])
#@64 Call "svn resolved" if the conflict markers have been removed.
(defalias 'vc-svn-resolve-when-done #[0 "\212eb\210\301\302\303\304#?\205\305\303\306\307$\210\310\311\312\304#)\207" [buffer-file-name re-search-forward "^<<<<<<< " nil t vc-svn-command 0 "resolved" remove-hook after-save-hook vc-svn-resolve-when-done] 5 (#$ . 20327)])
(defalias 'vc-svn-find-file-hook #[0 "\301\302\"\303=\205#\212eb\210\304\305\306\307#)\203 \310 \210\311\312\313\306\307$\210\314!\207" [buffer-file-name vc-file-getprop vc-svn-status 67 re-search-forward "^<<<<<<< " nil t smerge-start-session add-hook after-save-hook vc-svn-resolve-when-done vc-message-unresolved-conflicts] 5])
#@163 Parse output of "svn status" command in the current buffer.
Set file properties accordingly.  If FILENAME is non-nil, return its status.

(fn &optional FILENAME)
(defalias 'vc-svn-parse-status #[256 "\300\211\211\211eb\210\301\302\300\303#\203\337\204\206\304`\305 {!\262\303\262\306 f\262\306 Tf\262\307=\203<\310\311\312#\210\202\310\313\314\315!#\210\310\316#\210\310\311\317=\203x\317=\203x\320\224f\321=\203e\322\202\332\310\323\324	!\3258\262#\210\326\202\332\327=\203\220\310\313\330#\210\310\323\331#\210\332\202\332\333=\204\234\333=\203\245\310\311\334#\202\332\335=\204\261\335=\203\301\320\224f\321=\203\275\336\202\332\337\202\332\340\267\202\331\310\311\341#\202\332\310\311\342#\202\332\337#\210\202\205\347\343\311\"\207" [nil re-search-forward "^\\(?:\\?\\|[ ACDGIMR!~][ MC][ L][ +][ SX]..\\([ *]\\) +\\([-0-9]+\\) +\\([0-9?]+\\) +\\([^ ]+\\)\\) +" t expand-file-name line-end-position line-beginning-position 63 vc-file-setprop vc-state unregistered vc-working-revision match-string 3 vc-svn-status 32 1 42 needs-update vc-checkout-time file-attributes 5 up-to-date 65 "0" 0 added 67 conflict 77 needs-merge edited #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (73 199 68 208 82 208)) ignored removed vc-file-getprop] 14 (#$ . 21006)])
#@63 Return non-nil if TAG is a valid symbolic tag name.

(fn TAG)
(defalias 'vc-svn-valid-symbolic-tag-name-p #[257 "\300\301\"\205\f\300\302\"?\207" [string-match "^[a-zA-Z]" "[^a-z0-9A-Z_-]"] 4 (#$ . 22371)])
#@61 Return non-nil if TAG is a valid revision number.

(fn TAG)
(defalias 'vc-svn-valid-revision-number-p #[257 "\300\301\"\205\f\300\302\"?\207" [string-match "^[0-9]" "[^0-9]"] 4 (#$ . 22587)])
#@31 

(fn FILE BUF &optional REV)
(defalias 'vc-svn-annotate-command #[770 "\300\301\302\303\304\305\306\307\"\205\310	PC\"&\207" [apply vc-svn-command async "annotate" append vc-switches svn annotate "-r"] 13 (#$ . 22788)])
#@12 

(fn REV)
(defalias 'vc-svn-annotate-time-of-rev #[257 "\300!\301\245\207" [string-to-number 10.0] 3 (#$ . 23024)])
(defalias 'vc-svn-annotate-current-time #[0 "\301!\207" [vc-annotate-parent-rev vc-svn-annotate-time-of-rev] 2])
(defconst vc-svn-annotate-re "[ 	]*\\([0-9]+\\)[ 	]+[^	 ]+ ")
(defalias 'vc-svn-annotate-time #[0 "\301!\205\302\225b\210\303\304\305!!\207" [vc-svn-annotate-re looking-at 0 vc-svn-annotate-time-of-rev match-string 1] 3])
(defalias 'vc-svn-annotate-extract-revision-at-line #[0 "\212\301 \210\302!\205
\303\304!)\207" [vc-svn-annotate-re beginning-of-line looking-at match-string 1] 2])
#@14 

(fn FILES)
(defalias 'vc-svn-revision-table #[257 "\300r\301q\210\302\300\303\304\305%\210eb\210\300y\210e\306ed\"\307\310\"\2036\311\312\"B\262\303\225\\\262\306d\"\262\202\266)\211\207" [nil "*vc*" vc-svn-command 0 "log" "-q" buffer-substring-no-properties string-match "^r\\([0-9]+\\) " match-string 1] 8 (#$ . 23654)])
(provide 'vc-svn)

Zerion Mini Shell 1.0