Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
vc /
Delete
Unzip
Name
Size
Permission
Date
Action
add-log.elc
35.97
KB
-rw-r--r--
2023-06-07 04:15
compare-w.elc
9.89
KB
-rw-r--r--
2023-06-07 04:15
cvs-status.elc
21.51
KB
-rw-r--r--
2023-06-07 04:15
diff-mode.elc
63.77
KB
-rw-r--r--
2023-06-07 04:15
diff.elc
5.9
KB
-rw-r--r--
2023-06-07 04:15
ediff-diff.elc
35.48
KB
-rw-r--r--
2023-06-07 04:15
ediff-help.elc
11.36
KB
-rw-r--r--
2023-06-07 04:15
ediff-hook.elc
6.49
KB
-rw-r--r--
2023-06-07 04:19
ediff-init.elc
58.7
KB
-rw-r--r--
2023-06-07 04:15
ediff-merg.elc
9.68
KB
-rw-r--r--
2023-06-07 04:15
ediff-mult.elc
60.23
KB
-rw-r--r--
2023-06-07 04:15
ediff-ptch.elc
19.55
KB
-rw-r--r--
2023-06-07 04:15
ediff-util.elc
119.83
KB
-rw-r--r--
2023-06-07 04:15
ediff-vers.elc
5
KB
-rw-r--r--
2023-06-07 04:15
ediff-wind.elc
30.84
KB
-rw-r--r--
2023-06-07 04:15
ediff.elc
38.37
KB
-rw-r--r--
2023-06-07 04:15
emerge.elc
76.85
KB
-rw-r--r--
2023-06-07 04:15
log-edit.elc
32.25
KB
-rw-r--r--
2023-06-07 04:15
log-view.elc
18.21
KB
-rw-r--r--
2023-06-07 04:15
pcvs-defs.elc
15.6
KB
-rw-r--r--
2023-06-07 04:15
pcvs-info.elc
23.49
KB
-rw-r--r--
2023-06-07 04:15
pcvs-parse.elc
15.33
KB
-rw-r--r--
2023-06-07 04:15
pcvs-util.elc
24.08
KB
-rw-r--r--
2023-06-07 04:15
pcvs.elc
85.47
KB
-rw-r--r--
2023-06-07 04:15
smerge-mode.elc
37.72
KB
-rw-r--r--
2023-06-07 04:15
vc-annotate.elc
25.01
KB
-rw-r--r--
2023-06-07 04:15
vc-arch.elc
18.12
KB
-rw-r--r--
2023-06-07 04:15
vc-bzr.elc
41.49
KB
-rw-r--r--
2023-06-07 04:15
vc-cvs.elc
33.48
KB
-rw-r--r--
2023-06-07 04:15
vc-dav.elc
5.25
KB
-rw-r--r--
2023-06-07 04:15
vc-dir.elc
40.26
KB
-rw-r--r--
2023-06-07 04:15
vc-dispatcher.elc
16.33
KB
-rw-r--r--
2023-06-07 04:15
vc-git.elc
46.72
KB
-rw-r--r--
2023-06-07 04:15
vc-hg.elc
25.34
KB
-rw-r--r--
2023-06-07 04:15
vc-hooks.elc
31.95
KB
-rw-r--r--
2023-06-07 04:19
vc-mtn.elc
13.72
KB
-rw-r--r--
2023-06-07 04:15
vc-rcs.elc
35.34
KB
-rw-r--r--
2023-06-07 04:15
vc-sccs.elc
15.26
KB
-rw-r--r--
2023-06-07 04:15
vc-svn.elc
21.91
KB
-rw-r--r--
2023-06-07 04:15
vc.elc
68.74
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:15:38 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-svn.el ;;; in Emacs version 24.3.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 "\300\301\302\303#\210\304\305\303\306\307\310\311\312&\210\313\314\315\316\317\320\311\305&\210\313\321\303\322\317\323\307\324\311\305& \210\313\325\303\326\317\327\307\324\311\305& \210\313\330\331\332\317\333\307\324\311\305& \210\313\334\335\336\307\310\317\337\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 "svn" "Name of the SVN executable." :type string vc-svn-global-switches "Global switches to pass to any SVN command." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) "22.1" vc-svn-register-switches "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 (#1#) string)) vc-svn-diff-switches t "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 (#1#) string)) vc-svn-header '("$Id$") "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) (#$ . 2202)) (defalias 'vc-svn-revision-granularity #[nil "\300\207" [repository] 1]) (defalias 'vc-svn-checkout-model #[(files) "\300\207" [implicit] 1]) #@34 Check if FILE is SVN registered. (defalias 'vc-svn-registered #[(file) "\305!\2051 \306\307!r q\210\310\216\311\312!!\210\313\211\314\315\217\211\316=\2050 \317!\211 \205/ \f\320>?)-\207" [file #1=#:temp-buffer process-file-side-effects status parsed vc-svn-root generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) cd file-name-directory nil (byte-code "\301\302\211\303\304%\207" [file vc-svn-command t "status" "-v"] 6) ((error)) 0 vc-svn-parse-status (ignored unregistered)] 4 (#$ . 2596)]) #@37 SVN-specific version of `vc-state'. (defalias 'vc-svn-state #[(file &optional localp) "\304 \206\n \305\n\306\"\307\310!r q\210\311\216\312\313\n!!\210\314\315\316\n\317 \203( \320\202) \321%\210\322\n!,\207" [process-file-side-effects localp file #1=#:temp-buffer nil vc-stay-local-p SVN generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) cd file-name-directory vc-svn-command t 0 "status" "-v" "-u" vc-svn-parse-status] 6 (#$ . 3161)]) #@31 SVN-specific state heuristic. (defalias 'vc-svn-state-heuristic #[(file) "\301\302\"\207" [file vc-svn-state local] 3 (#$ . 3667)]) (defalias 'vc-svn-after-dir-status #[(callback &optional remote) "\306\203 \307\202\n \310\311eb\210\312\n\311\313#\203\212 \314\315!\316H \236A\314\317!\316H \236A\f\320>\2039 \321\322\323\314\324!#\202< \314\324! \325>\203S \326=\204S \203t \314\327!\330\230\203t \331=\203l \332 \202t \204t \333 \203\206 \334\230\204\206 D B+\202 !+\207" [remote result re state-map system-type filename ((65 . added) (67 . conflict) (73 . ignored) (77 . edited) (68 . removed) (82 . removed) (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 "." propstat state callback] 7]) #@173 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. (defalias 'vc-svn-dir-status #[(dir callback) "\303\304\305p\306\303\307 \205 \310%\210\311\312\313\nD E!*\207" [local remote callback nil t vc-svn-command async "status" "-u" vc-exec-after vc-svn-after-dir-status quote] 6 (#$ . 4660)]) (defalias 'vc-svn-dir-status-files #[(dir files default-state callback) "\302\303p\304\305\306&\210\307\310\311 DD!\207" [files callback apply vc-svn-command async nil "status" vc-exec-after vc-svn-after-dir-status quote] 7]) #@62 Generate extra status headers for a Subversion working copy. (defalias 'vc-svn-dir-extra-headers #[(dir) "\302\303\304\305\302\306$\210)\212\304q\210eb\210\307\310\302\311#\205 \312\313!)\211\2030 \314\315\316\317#\314 \316\320#P\2021 \321\260)\207" [process-file-side-effects repo 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 ""] 6 (#$ . 5306)]) #@48 SVN-specific version of `vc-working-revision'. (defalias 'vc-svn-working-revision #[(file) "\301!\210\302\303\"\207" [file vc-svn-registered vc-file-getprop vc-working-revision] 3 (#$ . 5798)]) (defalias 'vc-svn-previous-revision #[(file rev) "\302!S\303 W\205 \304 !)\207" [rev newrev string-to-number 0 number-to-string] 2]) (defalias 'vc-svn-next-revision #[(file rev) "\303!T\303\304\n\305\"! W?\205 \306 !)\207" [rev newrev file string-to-number vc-file-getprop vc-working-revision number-to-string] 4]) #@30 Create a new SVN repository. (defalias 'vc-svn-create-repo #[nil "\301\302\303\304\305$\210\306\302\303\307\310\311\312Q%\207" [default-directory vc-do-command "*vc*" 0 "svnadmin" ("create" "SVN") vc-svn-command "." "checkout" "file://" "SVN"] 8 (#$ . 6321)]) #@208 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. (defalias 'vc-svn-register #[(files &optional rev comment) "\301\302\303\304\305\306\307\310\"&\207" [files apply vc-svn-command nil 0 "add" vc-switches SVN register] 9 (#$ . 6589)]) (defalias 'vc-svn-root #[(file) "\302 \"\207" [file vc-svn-admin-directory vc-find-root] 3]) (byte-code "\300\301\302\"\210\300\303\302\304#\207" [defalias vc-svn-responsible-p vc-svn-root vc-svn-could-register "Return non-nil if FILE could be registered in SVN.\nThis is only possible if SVN is responsible for FILE's directory."] 4) #@47 SVN-specific version of `vc-backend-checkin'. (defalias 'vc-svn-checkin #[(files rev comment &optional extra-args-ignored) "\203 \304\305!\210\306\307\310\311 \312\313\nD\314\315\316\"\244&\317q\210eb\210 \320\232?\205H \321\322\310\323#\203; \324\325 \"\210\304\326\327!!\202H \330p!\210eb\210\331 \210\304\332!)\207" [rev files comment status error "Committing to a specific revision is unsupported in SVN" apply vc-svn-command nil 1 "ci" "-m" vc-switches SVN checkin "*vc*" 0 search-forward "Transaction is out of date" t mapc #[(file) "\301\302\303#\207" [file vc-file-setprop vc-state needs-merge] 4] 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"] 10 (#$ . 7323)]) #@62 SVN-specific retrieval of a specified version into a buffer. (defalias 'vc-svn-find-revision #[(file rev buffer) "\304\305\306 \307\n\310 \205 \311\230?\205 \312 P\313\314\315\"&)\207" [process-file-side-effects buffer file rev nil apply vc-svn-command 0 "cat" "" "-r" vc-switches SVN checkout] 10 (#$ . 8121)]) (defalias 'vc-svn-checkout #[(file &optional editable rev) "\303\304\"\210r\305!\206 pq\210\306 \n\307\310\311\"$\210)\312\310\"\210\303\313\"\207" [file editable rev message "Checking out %s..." get-file-buffer vc-svn-update vc-switches SVN checkout vc-mode-line "Checking out %s...done"] 7]) (defalias 'vc-svn-update #[(file editable rev switches) "\303!\205 ??\2056 \304\305\306#\210\307\310\306\311\312 \204 \313\2023 \314=\204, \315\232\2030 \306\2023 \316 P\n&\207" [file rev switches file-exists-p vc-file-setprop vc-working-revision nil apply vc-svn-command 0 "update" "-rBASE" t "" "-r"] 8]) (defalias 'vc-svn-delete-file #[(file) "\301\302\303\304$\207" [file vc-svn-command nil 0 "remove"] 5]) (defalias 'vc-svn-rename-file #[(old new) "\302\303\304\305\306 !%\207" [new old vc-svn-command nil 0 "move" file-relative-name] 7]) #@45 Revert FILE to the version it was based on. (defalias 'vc-svn-revert #[(file &optional contents-done) "?\205 \302\303\304 \305$\207" [contents-done file vc-svn-command nil 0 "revert"] 5 (#$ . 9299)]) #@108 Merge changes into current working copy of FILE. The changes are between FIRST-VERSION and SECOND-VERSION. (defalias 'vc-svn-merge #[(file first-version &optional second-version) "\303\304\305\306\307 \203 \n\310 Q\202 \n&\210\311\312\313#\210r\314\315!q\210eb\210\316\317!\203. \320\202/ \305)\207" [file second-version first-version vc-svn-command nil 0 "merge" "-r" ":" vc-file-setprop vc-state edited get-buffer "*vc*" looking-at "C " 1] 9 (#$ . 9508)]) #@40 Merge in any new changes made to FILE. (defalias 'vc-svn-merge-news #[(file) "\301\302\"\210\303\304\305#\210\306\307\305\310$\210r\311\312!q\210eb\210\313\314\307\315#\203. \303\316\317\320!#\210\2024 \303\316\307#\210eb\210\321\322!\203A \305\202\216 \313\323\324\325!!P\307\315#\203\207 \317\320!\326\230\203k \303\327\330#\210\303\304\331\332!8#\210\305\202\216 \317\320!\333\230\203} \303\327\334#\210\305\202\216 \303\327\334#\210\335\202\216 \336\312!\210\337\340!\301\341\"\210)\207" [file 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 5 file-attributes "G" edited 1 pop-to-buffer error "Couldn't analyze svn update result" "Merging changes into %s...done"] 6 (#$ . 9978)]) #@281 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://. (defalias 'vc-svn-modify-change-comment #[(files rev comment) "\306\211\211\211\211 \307\310! r q\210\311\216\312p\313\306\314$\210eb\210\315\316\306\317#\204* \320\321!\210\322\323!\2039 \317\322\324!\202F \322\325!\322\326! \327\fQ+\330-!\211\331\332\333!! . /\334\216r.q\2100c\210)r.q\210\335\306\211/\306\313%\210,\203\223 \336\337\313\340\306\341\342 \3431\344\345\f\"&\n\204\215 \320\346!\210\347\f!\202\275 \336\337\313\350\306\351\f\n&\204\245 \320\352\n\"\210\336\337\313\353\306\351 \344\354 1\f\211%&?\205\275 \320\346!-\207" [fileurl-p directory remotefile host tempfile #1=#:temp-buffer nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-svn-command 0 "info" re-search-forward "Repository Root: \\(file://\\(/.*\\)\\)\\|\\(svn\\+ssh://\\([^/]+\\)\\(/.*\\)\\)" t error "Repository information is unavailable" match-string 1 2 4 5 ":" make-temp-file get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) 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" user-mail-address #2# #3=#:temp-file comment rev] 13 (#$ . 10971)]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-svn-log-view-mode-hook variable-documentation put purecopy "Hook run when 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] 5) (defvar vc-svn-log-view-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [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] 5) (defvar vc-svn-log-view-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-svn-log-view-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-svn-log-view-mode'." vc-svn-log-view-mode-abbrev-table definition-name vc-svn-log-view-mode] 5) (defvar vc-svn-log-view-mode-abbrev-table (progn (define-abbrev-table 'vc-svn-log-view-mode-abbrev-table nil) vc-svn-log-view-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-svn-log-view-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-svn-log-view-mode'." vc-svn-log-view-mode derived-mode-parent log-view-mode] 5) #@519 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 step during initialization. \{vc-svn-log-view-mode-map} (defalias 'vc-svn-log-view-mode #[nil "\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 \2036 \321 =\203< \322\f\323 \"\210)\324 \325\"\204V =\204V \326 \325 C#\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 parent 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 vc-svn-log-view-mode-abbrev-table local-abbrev-table] 6 (#$ . 14106) nil]) #@42 Get change log(s) associated with FILES. (defalias 'vc-svn-print-log #[(files buffer &optional shortlog start-revision limit) "r\306!\210\307eb\210\n\203P \n\310\211 \205L \f@\311 \312\261\210\313\314\315 C\316\317 \2032 \320\321 \"\2023 \322C\205@ \323\320\324\"D\"&\210\fA\211\204 \310*\202s \313\314\325\310\316\317 \203b \320\321 \"\202c \322C\205p \323\320\324\"D\"&*\207" [buffer inhibit-read-only files file --dolist-tail-- start-revision vc-setup-buffer t nil "Working file: " "\n" apply vc-svn-command async "log" append format "-r%s" "-rHEAD:0" "--limit" "%s" 0 limit] 13 (#$ . 15494)]) #@75 Get a difference report using SVN between two revisions of fileset FILES. (defalias 'vc-svn-diff #[(files &optional oldvers newvers buffer) "\203 \204 \n\203 \306\307\215\203 \310 \203 \311\312\313\"\202, \314\fP\315\316\317\311\310\313\"\320#E ?\205? \321\n\312\"\205? \206? \322\323 \203N \324\202O \325\n\326\327 \205e \330 \203c \331 Q\202d D\"&\210\203r \332\202x \333\334 !!*\207" [oldvers newvers files vc-svn-diff-switches diff-command switches no (byte-code "\304\211\203 \n@ \305 !\232\204 \306\307\304\"\210\nA\211\204 *\310\207" [files f --dolist-tail-- oldvers nil vc-working-revision throw no t] 4) nil vc-switches SVN diff "--diff-cmd=" "-x" mapconcat identity " " vc-stay-local-p apply vc-svn-command async 0 "diff" append "-r" ":" 1 buffer-size get-buffer vc-disable-async-diff buffer] 12 (#$ . 16116)]) #@201 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. (defalias 'vc-svn-create-tag #[(dir name branchp) "\303\304\305\306 %\210\n\205 \307 \304#\207" [dir name branchp vc-svn-command nil 0 "copy" vc-svn-retrieve-tag] 6 (#$ . 16976)]) #@193 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. (defalias 'vc-svn-retrieve-tag #[(dir name update) "\302\303\304\305 %\207" [dir name vc-svn-command nil 0 "switch"] 6 (#$ . 17366)]) #@50 Check if the current file has any headers in it. (defalias 'vc-svn-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 (#$ . 17699)]) #@220 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 "--non-interactive" and `vc-svn-global-switches' to it before FLAGS. (defalias 'vc-svn-command #[(buffer okstatus file-or-list &rest flags) "\306;\203\f B\202 \307 \"\211\235\204 \306 B\310\311\n\206! \312 \f &\207" [vc-svn-global-switches flags buffer okstatus vc-svn-program file-or-list "--non-interactive" append apply vc-do-command "*vc*"] 7 (#$ . 17944)]) (defalias 'vc-svn-repository-hostname #[(dirname) "\303\304!rq\210\305\216\306\307\310\211\n\311\312%\210)eb\210\313\314\306\310#\205# \315\316!+\207" [#1=#:temp-buffer process-file-side-effects dirname generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil vc-svn-command t "info" "--xml" re-search-forward "<url>\\(.*\\)</url>" match-string 1] 6]) #@64 Call "svn resolved" if the conflict markers have been removed. (defalias 'vc-svn-resolve-when-done #[nil "\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 (#$ . 18884)]) (defalias 'vc-svn-find-file-hook #[nil "\301\302\"\303=\205# \212eb\210\304\305\306\307#)\203 \310 \210\311\312\313\306\307$\210\314\315!\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 message "There are unresolved conflicts in this file"] 5]) #@184 Parse output of "svn status" command in the current buffer. Set file properties accordingly. Unless FILENAME is non-nil, parse only information about FILENAME and return its status. (defalias 'vc-svn-parse-status #[(&optional filename) "\304\211\211eb\210\305\306\304\307#\203\323 \206 \310`\311 {!\312 f\312 Tf \313=\2034 \314\n\315\316#\210\202 \314\n\317\320\321!#\210\314\n\322 #\210\314\n\315 \323=\203k \323=\203k \324\224f\325=\203] \326\202\316 \314\n\327\330\331\n!8#\210\332\202\316 \333=\203\201 \314\n\317\334#\210\314\n\327\335#\210\336\202\316 \337=\204\215 \337=\203\225 \314\n\315\340#\202\316 \341=\204\241 \341=\203\261 \324\224f\325=\203\255 \342\202\316 \343\202\316 \344=\203\277 \314\n\315\345#\202\316 \346>\203\315 \314\n\315\347#\202\316 \343#\210\202 \205\333 \350 \315\"+\207" [propstat status file filename nil re-search-forward "^\\(?:\\?\\|[ ACDGIMR!~][ MC][ L][ +][ S]..\\([ *]\\) +\\([-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 5 file-attributes up-to-date 65 "0" 0 added 67 conflict 77 needs-merge edited 73 ignored (68 82) removed vc-file-getprop] 9 (#$ . 19592)]) #@53 Return non-nil if TAG is a valid symbolic tag name. (defalias 'vc-svn-valid-symbolic-tag-name-p #[(tag) "\301\302\"\205\f \301\303\"?\207" [tag string-match "^[a-zA-Z]" "[^a-z0-9A-Z-_]"] 3 (#$ . 20907)]) #@51 Return non-nil if TAG is a valid revision number. (defalias 'vc-svn-valid-revision-number-p #[(tag) "\301\302\"\205\f \301\303\"?\207" [tag string-match "^[0-9]" "[^0-9]"] 3 (#$ . 21119)]) (defalias 'vc-svn-annotate-command #[(file buf &optional rev) "\303\304 \305\n\205\f \306\nP%\207" [buf file rev vc-svn-command async "annotate" "-r"] 7]) (defalias 'vc-svn-annotate-time-of-rev #[(rev) "\301!\302\245\207" [rev string-to-number 10.0] 2]) (defalias 'vc-svn-annotate-current-time #[nil "\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 #[nil "\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 #[nil "\212\301 \210\302!\205 \303\304!)\207" [vc-svn-annotate-re beginning-of-line looking-at match-string 1] 2]) (defalias 'vc-svn-revision-table #[(files) "\304r\305q\210\306\304\307 \310\311%\210eb\210\304y\210e\312ed\"\313\314\n\"\2036 \315\316\n\"B \307\225\\\312 d\"\202 **\207" [vc-svn-revisions files loglines start nil "*vc*" vc-svn-command 0 "log" "-q" buffer-substring-no-properties string-match "^r\\([0-9]+\\) " match-string 1] 6]) (provide 'vc-svn)