-
Notifications
You must be signed in to change notification settings - Fork 0
/
dsvn.elc
343 lines (335 loc) · 50.9 KB
/
dsvn.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
;ELC
;;; Compiled by [email protected] on Fri Oct 1 12:31:14 2010
;;; from file /Users/oceanhug/.emacs.d/dsvn.el
;;; in Emacs version 22.3.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 "`dsvn.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\210\301\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\210\320\321\322\323\324\325%\207" [current-load-list require vc log-edit svn-status-msg-col (lambda (#1=#:defconst-tmp-var) (defconst svn-status-msg-col #1#)) 1 svn-status-flags-col (lambda (#2=#:defconst-tmp-var) (defconst svn-status-flags-col #2#)) 11 svn-status-mark-col (lambda (#3=#:defconst-tmp-var) (defconst svn-status-mark-col #3#)) 18 svn-status-file-col (lambda (#4=#:defconst-tmp-var) (defconst svn-status-file-col #4#)) 20 custom-declare-group dsvn nil "Settings for dsvn." :group tools] 6)
#@25 *The svn program to run
(custom-declare-variable 'svn-program '"svn" '(#$ . -1204) :type 'string :group 'dsvn)
#@185 Run svn and wait for it to finish.
Argument PROGRAM is the svn binary to run.
Argument BUFFER is the buffer in which to insert output.
Optional argument ARGS are the arguments to svn.
(defalias 'svn-call-process #[(program buffer &rest args) "\304\305\306 \n%\307 \310\"\210\311 \312\"\210\313 !\314=\205& \315 \316\"\210\317\320!\210\202 )\207" [buffer program args proc apply start-process "svn" set-process-coding-system utf-8 set-process-filter svn-output-filter process-status run accept-process-output 5 sit-for 0] 6 (#$ . 1322)])
#@267 Run 'svn' with output to another window.
Argument SUBCOMMAND is the command to execute.
Optional argument ARGS is a list of the arguments to the command.
Optional argument MODE is the major mode to use for the output buffer.
Return non-NIL if there was any output.
(defalias 'svn-run-with-output #[(subcommand &optional args mode) "\306\307!\310r q\210\311 \210\f\203 \f \210\202 \312 \210\n\310 !\"BB\313 # $\314\315\316 $$#\317#\320\"\210\321#\322\"\210\323#!\324=\203X \325#\326\"\210\327\330!\210\202B *edU?\205y \331 \332\333\334 \" % &r\335\216\336\337 !!\210eb\210,\310,\207" [default-directory inhibit-read-only dir buf mode buffer-read-only get-buffer-create "*svn output*" t erase-buffer fundamental-mode nil apply start-process "svn" set-process-coding-system utf-8 set-process-filter svn-output-filter process-status run accept-process-output 5 sit-for 0 selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/ \n@\306 @!\203( \307 \211A@)!\203( \310 @ \211A@)\"\210\nA\211\204 *\307\f!\203: \311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window display-buffer svn-program subcommand args proc cmd save-selected-window-alist save-selected-window-window] 5 (#$ . 1869)])
#@122 Run 'svn' without showing output.
Argument COMMAND is the command to run.
Optional argument ARGS is a list of arguments.
(defalias 'svn-run-hidden #[(command args) "\306\307!r\nq\210\310 \210 )\311\312 \313\n\313\314\f!&\210\n*\207" [default-directory dir buf svn-program command args get-buffer-create " *svn*" erase-buffer apply call-process nil symbol-name] 8 (#$ . 3290)])
#@180 Run `svn', discarding output, returning t if it succeeded (exited with
status zero).
Argument COMMAND is the svn subcommand to run.
Optional argument ARGS is a list of arguments.
(defalias 'svn-run-predicate #[(command args) "\303\304\305\306\211\211\307 !\n&!\207" [svn-program command args zerop apply call-process nil symbol-name] 9 (#$ . 3680)])
#@103 Output filter for svn output.
Argument PROC is the process object.
Argument STR is the output string.
(defalias 'svn-output-filter #[(proc str) "\212\304!q\210\305!b\210`\306\307 !\210\nb\210\310\311\305!\306#\203- \212\312 \210`\313\224|\210)\202 \nb+\207" [proc inhibit-read-only p str process-buffer process-mark t insert-before-markers search-forward "" beginning-of-line 0] 4 (#$ . 4039)])
#@75 svn-status buffer describing the files that a commit operation applies to
(defvar svn-status-buffer nil (#$ . 4447))
(make-variable-buffer-local 'svn-status-buffer)
#@63 A queue of commands to run when the current command finishes.
(defvar svn-todo-queue nil (#$ . 4618))
(make-variable-buffer-local 'svn-todo-queue)
#@25 Get the repository URL.
(defalias 'svn-current-url #[nil "r\300\301\302\"q\210\303\304\302\305#\203 \306\307!\202 \310\311!)\207" [svn-run-hidden info nil re-search-backward "^URL: \\(.*\\)$" t match-string 1 error "Couldn't find the current URL"] 4 (#$ . 4771)])
#@148 Run subversion command COMMAND with ARGS.
Optional third argument DESCRIPTION is a string used in the status
buffer to describe what is going on.
(defalias 'svn-run #[(command args &optional description) "\306 d|\210)\307\n!\310\311 \312Q! \310\311 \313Q! \314 \n\315=\203* \316\317B\320\321\322p &\323\f!\203F \324\f\"\210\202L \324\325\"\210\323!\203[ \326\"\210\202a \326\327\"\210 D \330\331!\210,\207" [inhibit-read-only svn-output-marker command command-s filter-func sentinel-func t symbol-name intern "svn-" "-filter" "-sentinel" nil status-v "status" "-v" apply start-process "svn" fboundp set-process-filter svn-default-filter set-process-sentinel svn-default-sentinel set-svn-process-status running proc args svn-program description svn-running] 7 (#$ . 5044)])
(defalias 'svn-check-running #[nil "\205 \302\211A@)!\303=\205 \304\305!\207" [svn-running x process-status run error "Can't run two svn processes from the same buffer"] 3])
#@157 Run subversion command COMMAND with ARGS, possibly at a later time.
Optional third argument FILE-FILTER is the file filter to be in effect
during the run.
(defalias 'svn-run-async #[(command args &optional file-filter) "\203 \306\211A@)!\307=\203 \n \fEC\244\211\207\310\311!\210 \312 \f\"\207" [svn-running x svn-todo-queue command args file-filter process-status run make-local-variable svn-file-filter svn-run] 5 (#$ . 6035)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list svn-output-queue default-boundp set-default nil svn-in-output-filter] 3)
(defalias 'svn-filter-queue #[(proc str) " C\244\n?\205 \304\205 \305 @\"\210A\211\204 \306)\207" [svn-output-queue str svn-in-output-filter proc t svn-status-filter nil] 4])
(defalias 'svn-default-filter #[(proc str) "\212\303!q\210\304db\210\nc*\207" [proc inhibit-read-only str process-buffer t] 2])
(defalias 'svn-default-sentinel #[(proc reason) "r\306!q\210 \203. \211A@)=\203. \307\310!\311U\204& \312\313!\210\202* \312\314!\210\315 !\210\f\205\\ \f@ \fA@\211A@)\211AA)@ \316\317!\210\320\",)\207" [proc svn-running x goal-column svn-todo-queue cmd-info process-buffer nil process-exit-status 0 set-svn-process-status failed finished move-to-column make-local-variable svn-file-filter svn-run file-filter args command] 4])
#@62 Run `svn diff'.
Argument ARG are the command line arguments.
(defalias 'svn-diff #[(arg) "\301\302\303!\304#\207" [arg svn-run-with-output "diff" split-string diff-mode] 4 (#$ . 7443) "ssvn diff arguments: "])
#@38 Commit changes to one or more files.
(defalias 'svn-commit #[nil "\303 \210p\304\305!\306!\210\307\310!\210 \211*\207" [commit-buf status-buf svn-status-buffer save-some-buffers get-buffer-create "*svn commit*" switch-to-buffer-other-window log-edit svn-confirm-commit] 3 (#$ . 7660) nil])
#@59 Commit changes with the current buffer as commit message.
(defalias 'svn-confirm-commit #[nil "rq\210\306 )p\307\310!\203 \310\311!\202 \312\313\311\314 \"! db\210n\204* \315 \210\316ed #\210\317\320!\203Q \321 \322!\204J \323\324\"\232\204P \325\"\210)\326 !\210r\nq\210\327\330!\210\327\331!\210 \f\332\333\334\335\336 E\f\"\"-\207" [svn-status-buffer msg-file status-buf commit-buf files comment svn-action-files fboundp make-temp-file "svn-commit" make-temp-name expand-file-name temp-directory newline write-region boundp vc-comment-ring buffer-string ring-empty-p ring-ref 0 ring-insert kill-buffer make-local-variable svn-commit-msg-file svn-commit-files svn-run commit append "-N" "-F"] 7 (#$ . 7960) nil])
#@42 Output filter function for `svn commit'.
(defalias 'svn-commit-filter #[(proc str) "\212\306!q\210\307\310db\210 c\210\fb\210 ?\205L \311\312!\203' \313\224\313\225|\210\202 \311\314!\203: \315\316\317!\"\210\317y\210\202 \311\320!\203F \317y\210\202 \307\211\202 +\207" [proc nomore inhibit-read-only str svn-output-marker svn-revision-label process-buffer t nil looking-at "\\(Sending\\|Adding\\|Transmitting file\\|Deleting\\) .*\n" 0 "Committed revision \\([0-9]+\\).\n" svn-update-label match-string 1 ".*\n"] 5 (#$ . 8701)])
#@37 Sentinel function for `svn commit'.
(defalias 'svn-commit-sentinel #[(proc reason) "r\306!q\210\307\310!\311U\204 \312\313!\210\202m \312\314!\210\n\203m \n@\f P \315 ! \316! \317 \203E \320\321\211#\210\322\323\"\210\203e \324\325!\203e rq\210\326 \327\325 !#\210\330 !\210)-\nA\211\204 \331 !)\207" [proc svn-running svn-commit-files file default-directory path process-buffer nil process-exit-status 0 set-svn-process-status failed finished svn-file-pos get-file-buffer t svn-update-status-flag 32 svn-update-status-msg "Committed" fboundp vc-svn-workfile-version vc-file-setprop vc-workfile-version vc-mode-line delete-file pos file-buffer inhibit-read-only buffer-file-name svn-commit-msg-file] 6 (#$ . 9247)])
#@73 Run `svn log'.
Argument ARG is the command-line arguments, as a string.
(defalias 'svn-log #[(arg) "\301\302\303!\304#\207" [arg svn-run-with-output "log" split-string svn-log-mode] 4 (#$ . 9994) "ssvn log arguments: "])
#@28 Keymap for `svn-log-mode'.
(defvar svn-log-mode-map nil (#$ . 10222))
(byte-code "\204 \301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\301\207" [svn-log-mode-map make-sparse-keymap define-key "" svn-log-show-diff "n" svn-log-next "p" svn-log-prev] 4)
#@41 Major mode for viewing Subversion logs.
(defalias 'svn-log-mode #[nil "\304 \210\305\306\307\n!\210\310\211\207" [major-mode mode-name svn-log-mode-map paragraph-start kill-all-local-variables svn-log-mode "Svn log" use-local-map "^commit"] 2 (#$ . 10495) nil])
(defalias 'svn-log-current-commit #[nil "\212\300\210\301\302\300\303#\204 \304\305!\210\306\307\310!!)\207" [nil re-search-forward "^r\\([0-9]+\\) |" t error "Found no commit" string-to-number match-string 1] 4])
#@59 Show the changes introduced by the changeset under point.
(defalias 'svn-log-show-diff #[nil "\306 \307\310!\311 \312 !\210r q\210\313 \210\311\314 \210\n\315 \316\317\320\321\fS\f#%-\207" [default-directory inhibit-read-only dir diff-buf commit-id buffer-read-only svn-log-current-commit get-buffer-create "*svn diff*" t display-buffer diff-mode erase-buffer svn-call-process "diff" "-r" format "%d:%d" svn-program] 9 (#$ . 10982) nil])
#@40 Move to the next changeset in the log.
(defalias 'svn-log-next #[nil "\300\210\301\302\300\303#\204 \304\305!\210\306 \210\307 \207" [nil re-search-forward "^------------------------------------------------------------------------$" t error "Found no commit" beginning-of-line svn-log-show-diff] 4 (#$ . 11434) nil])
#@44 Move to the previous changeset in the log.
(defalias 'svn-log-prev #[nil "\300 \210\301\302\303\304#\204 \305\306!\210\307 \207" [beginning-of-line re-search-backward "^------------------------------------------------------------------------$" nil t error "Found no commit" svn-log-show-diff] 4 (#$ . 11759) nil])
(defalias 'svn-new-label #[(&optional pos) "\204 `\303 \303 \211\304\223\210 \304\223\210\n *D\207" [pos stop start make-marker nil] 4])
(defalias 'svn-update-label #[(label str) "@\211A@)\306\211 |\210\307 \306\"\210\212\fb\210c,\207" [label x inhibit-read-only stop start str t set-marker-insertion-type] 4])
#@50 Return the Subversion property PROPNAME of FILE.
(defalias 'svn-propget #[(file propname) "r\302\303 D\"q\210\304 \305\306O)\207" [propname file svn-run-hidden propget buffer-string 0 -1] 4 (#$ . 12405)])
#@51 Return an alist containing the properties of FILE
(defalias 'svn-get-props #[(file) "\302\303C\"\204 \304\305\"\210\306r\307\310C\"q\210eb\210\311\312!\2035 \313y\210\311\314!\2035 \315\313! B\313y\210\202# )\316\317 \")\207" [file propnames svn-run-predicate ls error "%s is not under version control" nil svn-run-hidden proplist looking-at "Properties on " 1 " \\(.+\\)$" match-string mapcar #[(propname) "\302 \"B\207" [propname file svn-propget] 4]] 3 (#$ . 12617)])
#@26 Edit properties of FILE.
(defalias 'svn-propedit #[(file) "\306!\211\307\230\203 \310\311!\312 \210\313\314 \"\315\n!\203\" \316\n!\210\317 !\320\n! \321 !\210\322 \210\323 \324\325\326\327\330\325\331\332\333\334!\335\261\f\210\336\337\340\f\341\"\"\210\342\305!\210\343!&\344\333\345!!,\207" [file local-file buf-name propedit-buf prop-alist svn-propedit-file svn-local-file-name "" "." file-name-as-directory svn-check-running format "*propedit %s*" get-buffer kill-buffer svn-get-props get-buffer-create switch-to-buffer-other-window svn-propedit-mode "# Properties of " "\n" "#\n" "# Lines are on the form PROPNAME: VALUE for single-line values,\n" "# or just PROPNAME: followed by one or more lines starting with > for\n" "# multi-line values. Lines starting with # are ignored.\n" "# Change, add, delete or rename properties just by editing this\n" "# buffer; then press " substitute-command-keys "\\[svn-propedit-done]" " to save changes.\n\n" mapc #[(prop) "A\303 \304\" \305\232\204* \306\307O\304\232\203 \305\nB \310\311O\304\232\203* \312\n\305C\"@\313\261\210\nG\307V\203A \304c\210\314\315\n\"\202K \316\n@\206H \305\304\261*\207" [prop value lines split-string "\n" "" 0 1 -1 nil append ":" mapc #[(line) "\301\302\261\207" [line ">" "\n"] 3] " "] 3] sort #[(a b) "@ @\231\207" [a b] 2] make-local-variable file-name-directory message "Press \\[svn-propedit-done] when you are done editing." default-directory] 13 (#$ . 13103) (list (expand-file-name (or (svn-getprop (point) 'file) (read-file-name "Edit properties of file: " default-directory nil t (svn-getprop (point) 'dir)))))])
#@33 Keymap for `svn-propedit-mode'.
(defvar svn-propedit-mode-map nil (#$ . 14734))
(byte-code "\204 \301 \302\303\304#\210\301\207" [svn-propedit-mode-map make-sparse-keymap define-key "" svn-propedit-done] 4)
#@47 Major mode for editing Subversion properties.
(defalias 'svn-propedit-mode #[nil "\304 \210\305\306\307\n!\210\310\311 \207" [major-mode mode-name svn-propedit-mode-map font-lock-defaults kill-all-local-variables svn-propedit-mode "Svn propedit" use-local-map ((("^#.*$" quote font-lock-comment-face) ("^\\([^ \n#>][^ \n]*\\):" 1 'bold) ("^[^ \n#>][^ \n]*: *\\(.*\\)$" 1 'font-lock-function-name-face) ("^>" quote bold) ("^>\\(.*\\)$" 1 'font-lock-function-name-face)) nil nil ((34 . ".")) nil) font-lock-mode] 2 (#$ . 14953) nil])
#@74 Parse the current propedit buffer and return an alist of the properties.
(defalias 'svn-props-from-buffer #[nil "\212\306eb\210m\204n \307\310!\203> \311\312!\311\313!\314\315\nG\306\n$\210\314\315 G\306 $\210\316\n\"\2034 \317\320\n\"\210\n BB*\202h \307\321!\203h \311\312!\314\315 G\306 $\210\204X \317\322!\210\211 @A) @\323 Q\241\210*\312y\210\202 \324\325\"*\207" [prop-alist value prop-name extra-line x old-value nil looking-at "^\\([^ \n#>][^ \n]*\\): *\\(.*\\)$" match-string 1 2 set-text-properties 0 assoc error "Duplicated property '%s'" "^>\\(.*\\)$" "Continued line not preceded by property name" "\n" mapcar #[(prop) "@A \303\232\204 \304\305O\306\232\203 \n \305\307OB\202 *\207" [prop value name "" 0 1 "\n" nil] 4]] 6 (#$ . 15498)])
#@35 Delete FILE's property PROP-NAME.
(defalias 'svn-propdel #[(file prop-name) "\302\303 D\"\207" [prop-name file svn-run-hidden propdel] 4 (#$ . 16280)])
#@46 Set FILE's property PROP-NAME to PROP-VALUE.
(defalias 'svn-propset #[(file prop-name prop-value) "\303\304 \nE\"\207" [prop-name prop-value file svn-run-hidden propset] 5 (#$ . 16439)])
#@37 Apply property changes to the file.
(defalias 'svn-propedit-done #[nil "\304!\305 \306\307\310 \"\210\307\311\n\"\210 \312V\203! \313\314 \"\210\202+ \306U\203+ \313\315!\210+\316\317\"\210\320p!\207" [svn-propedit-file changes new-props wc-props svn-get-props svn-props-from-buffer 0 mapc #[(wc-prop) "@\305 \n\"?\205 \306\307 \"\210\310 \"\210\fT\211)\207" [wc-prop prop-name new-props svn-propedit-file changes assoc message "Deleting property %s" svn-propdel] 3] #[(new-prop) "@\306 \n\" \232?\205 \307\310 \"\210\311\f A#\210T\211*\207" [new-prop prop-name wc-props wc-prop svn-propedit-file changes assoc message "Setting property %s" svn-propset] 4] 1 message "Changed %d properties." "No properties changed." svn-foreach-svn-buffer #[(local-file-name file-pos) "\301\302\"\207" [local-file-name svn-refresh-item nil] 3] kill-buffer] 3 (#$ . 16633) nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\304\"\210\311B\302\311!\204Z \303\311\304\"\210\312B\302\312!\204i \303\312\304\"\210\304\207" [current-load-list svn-files-start default-boundp set-default nil svn-files-stop svn-url-label svn-revision-label svn-running-label svn-output-marker svn-running] 3)
#@86 Create a buffer for showing svn status.
Argument DIR is the directory to run svn in.
(defalias 'create-svn-buffer #[(dir) "\306\307P!\310r\nq\210\311 \210\312\304!\210\312\305!\210\312\313!\210\312\314!\210\315\261\210\316 \210\317c\210\320 \321c\210\320 \316 \210\316 \210\322c\210\320 \316 \210\323 \324\325\"\210\323 \324\325\"\210\326c\210\316 \210\323 \f\324\f\325\"\210\327\310\"\310)\n*\207" [dir inhibit-read-only status-buf default-directory svn-url-label svn-revision-label create-file-buffer "*svn*" t svn-status-mode make-local-variable svn-running-label svn-output-marker "Svn status for " newline "URL: " svn-new-label " revision " "---- " point-marker set-marker-insertion-type nil "----" copy-marker svn-files-start svn-last-inserted-marker svn-files-stop buffer-read-only] 3 (#$ . 17989)])
#@61 Switch to a (possibly new) buffer displaying status for DIR
(defalias 'switch-to-svn-buffer #[(dir) "\304!\305 \211\203$ r @q\210\n\306=\205 \230)\204$ A\211\204 \307 \203. @\2021 \310!!)\207" [dir buffers major-mode default-directory file-name-as-directory buffer-list svn-status-mode switch-to-buffer create-svn-buffer] 4 (#$ . 18829)])
#@38 Return non-NIL if FILE is inside DIR
(defalias 'svn-in-dir-p #[(dir file) "G\nG V\205 \n\303 O\230)\207" [dir l file 0] 4 (#$ . 19185)])
#@71 Run `svn status'.
Argument DIR is the directory to run svn status in.
(defalias 'svn-status #[(dir) "\302!\210\303\304\305\"\306 !\307=\203 \310 \311\312#\210\202 )\313 \210\314\315\316!!\207" [dir proc switch-to-svn-buffer svn-run info nil process-status run accept-process-output 2 10000 svn-refresh message substitute-command-keys "Welcome to dsvn. Press \\[svn-status-help] for keyboard help summary."] 4 (#$ . 19332) "DDirectory: \n"])
#@82 Run `svn status'.
If optional argument CLEAR is non-NIL, clear the buffer first.
(defalias 'svn-refresh #[(&optional clear) "\305 \210\306 \203 \n |\210\202 \307\n \310\311$\210\311\312\313\311\")\207" [inhibit-read-only clear svn-files-start svn-files-stop svn-last-inserted-filename svn-check-running t put-text-property svn-updated nil svn-run status] 5 (#$ . 19783) "P"])
#@113 Run svn status -v on FILES. If not RECURSIVE, only applies to files and
directories explicitly listed in FILES.
(defalias 'svn-run-status-v #[(files recursive) "?\205 \304?\205 \305\306 \"\307\310\311 \"\n#*\207" [recursive files file-filter flag ("-N") mapcar #[(file) "\301\302O\303\232\203 \304\301O\207\207" [file -1 nil "/" 0] 3] svn-run-async status-v append] 5 (#$ . 20170)])
#@41 Run `svn status' on the selected files.
(defalias 'svn-refresh-file #[nil "\305 \210\306 \307\310\311 \f\312\307$\210\313\314\315\316 \"\"\210\317\315\320 \"\307\"\210*\321\322!\207" [inhibit-read-only actions svn-last-inserted-filename svn-files-start svn-files-stop svn-check-running svn-actions t nil put-text-property svn-updated mapc #[(pos) "\301\302\303#\207" [pos svn-setprop updated nil] 4] mapcar cadr svn-run-status-v car svn-next-file 1] 5 (#$ . 20570) nil])
#@80 Return file name relative the current directory, or raise an error if
outside.
(defalias 'svn-local-file-name #[(file) "\304!\203\n \305!\306 !\307!\2035 \nGG W\204' \310 O\n\230\204- \311\312!\2021 \313O)\2026 )\207" [file default-directory exp-default-dir ddl file-directory-p file-name-as-directory expand-file-name file-name-absolute-p 0 error "Outside working copy" nil] 3 (#$ . 21051)])
#@77 Refresh status for FILE. If RECURSIVE, do it recursively (for directories).
(defalias 'svn-refresh-item #[(file recursive) "\305 \210\306\307\310\n!\311 C\f\"*\207" [inhibit-read-only svn-last-inserted-filename file local-file recursive svn-check-running t nil svn-local-file-name svn-run-status-v] 3 (#$ . 21461)])
#@27 Run `svn status' on FILE.
(defalias 'svn-refresh-one #[(file) "\301\302\"\207" [file svn-refresh-item t] 3 (#$ . 21786) (list (expand-file-name (read-file-name "Svn status on file: " default-directory nil t (or (svn-getprop (point) 'file) (svn-getprop (point) 'dir)))))])
(defalias 'svn-cleanup-status #[nil "\212\303 b\210`\nW\2051 \304`\305\"\204 \304`\306\"\203 \307y\210\202 \310`\311\211#\210\312`\313\"\210\307y\210\202 *\207" [inhibit-read-only svn-files-start svn-files-stop t svn-getprop dir updated nil svn-update-status-flag 32 svn-update-status-msg ""] 4])
(defalias 'svn-status-filter #[(proc str) "\212\306!q\210\307db\210\nc\210 b\210\310\311!\205. \312\313!\312\314! \315\224\315\225|\210\316\f\"\210*\202 *\207" [proc inhibit-read-only str svn-output-marker filename status process-buffer t looking-at "\\([ ACDGIMRX?!~][ CM][ L][ +][ S][ KOTB]\\) \\(.*\\)\n" match-string 1 2 0 svn-insert-file] 3])
(defalias 'svn-status-sentinel #[(proc reason) "r\302!q\210\303 \210\304 \210)\305 \"\207" [proc reason process-buffer svn-cleanup-status svn-insert-dirs svn-default-sentinel] 3])
(defalias 'svn-status-v-filter #[(proc str) "\212\306!q\210\307db\210\nc\210 b\210\310\311!\205: \312\313!\312\314! \315\224\315\225|\210\2031 \f\235\2036 \316\f\"\210*\202 *\207" [proc inhibit-read-only str svn-output-marker filename status process-buffer t looking-at "\\([ ACDGIMRX?!~][ CM][ L][ +][ S][ KOTB]\\) \\([\\* ]\\) \\(........\\) \\(........\\) \\(............\\) \\(.*\\)\n" match-string 1 6 0 svn-insert-file svn-file-filter] 3])
(defalias 'svn-status-v-sentinel #[(proc reason) "r\302!q\210\303 \210)\304 \"\207" [proc reason process-buffer svn-cleanup-status svn-default-sentinel] 3])
#@40 Output filter function for `svn info'.
(defalias 'svn-info-filter #[(proc str) "\212\306!q\210\307\310db\210 c\210\fb\210 ?\205Q \311\312!\203+ \313\314\315!\"\210\315y\210\202 \311\316!\203? \313\314\315!\"\210\315y\210\202 \311\317!\203K \315y\210\202 \307\211\202 +\207" [proc nomore inhibit-read-only str svn-output-marker svn-url-label process-buffer t nil looking-at "URL: \\(.*\\)\n" svn-update-label match-string 1 "Revision: \\([0-9]+\\)\n" ".*\n" svn-revision-label] 5 (#$ . 23516)])
(defalias 'svn-info-sentinel #[(proc reason) "\302 \"\207" [proc reason svn-default-sentinel] 3])
#@71 Run `svn update'.
Argument DIR is the directory to run svn status in.
(defalias 'svn-update #[(dir) "\301!\210\302 \207" [dir switch-to-svn-buffer svn-update-current] 2 (#$ . 24126) "DDirectory: \n"])
#@123 Run `svn update' in the current buffer.
Update to REVISION, which defaults to HEAD.
With prefix arg, prompt for REVISION.
(defalias 'svn-update-current #[(&optional revision) "\303 \210\304\300!\210\305 \205 \306 D\307\310\n\311#)\207" [svn-updated-files revision args svn-check-running make-local-variable nil "-r" svn-run update "Updating"] 4 (#$ . 24335) (list (if current-prefix-arg (read-string "update to revision (HEAD): " nil nil "HEAD") nil))])
(byte-code "\301B\302\303!\210\304B\305\304!\204 \306\304\307\"\210\307\207" [current-load-list svn-update-flag-name (lambda (#1=#:defconst-tmp-var) (defconst svn-update-flag-name #1#)) ((65 . "Added") (68 . "Deleted") (85 . "Updated") (71 . "Merged") (67 . "Conflict")) svn-merging default-boundp set-default nil] 3)
#@77 Map a status character from the svn update command to the resulting status.
(defalias 'svn-remap-update-to-status #[(status-char) "\203 \302>\203\f \303\207 \207 \304>\203 \305\207 \306=\203 \303\207 \207" [svn-merging status-char (85 71) 77 (65 68 85) 32 71] 2 (#$ . 25121)])
(defalias 'svn-update-filter #[(proc str) "\212\306!q\210\307\310db\210 c\210\fb\210 ?\205\311 \311\312!\203\212 \313\314!\211 \315\234 \314\234 \313\316! \315\224\315\225|\210\317 \320\321\322!\322!#\323U\203U \236A\202} \323U\203| \320\324 \236A\"\211 G\325V\203v \315\325O\202x )\202} #\210 B ,\202 \311\326!\203\236 \327 \313\314!\"\210\314y\210\202 !\204\267 \311\330!\203\267 \327 \313\314!\"\210\314y\210\202 \311\331!\203\303 \314y\210\202 \307\211\202 +\207" [proc nomore inhibit-read-only str svn-output-marker status process-buffer t nil looking-at "\\([ ADUCG][ ADUCG][ B]\\) \\(.*\\)\n" match-string 1 0 2 svn-insert-file format "%c%c...." svn-remap-update-to-status 32 "P %s" 9 "At revision \\([0-9]+\\)\\.\n" svn-update-label "Updated to revision \\([0-9]+\\)\\.\n" ".*\n" file-status prop-status filename svn-update-flag-name s svn-updated-files svn-revision-label svn-merging] 8])
(defalias 'svn-update-sentinel #[(proc reason) "r\303!q\210\304 \210\305\306 \"\210)\307\n\"\207" [proc svn-updated-files reason process-buffer svn-insert-dirs mapc svn-revert-if-needed svn-default-sentinel] 3])
#@93 Revert buffer visiting FILENAME if any, because the file is believed to have
been modified.
(defalias 'svn-revert-if-needed #[(filename) "\304!\211\205\" \305 !?\205\" r q\210\n\306\307\310\217\210 \205! \311\312!*)\207" [filename buf buffer-read-only was-ro find-buffer-visiting buffer-modified-p nil (byte-code "\300\301\211\"\207" [revert-buffer t] 3) ((error)) toggle-read-only 1] 4 (#$ . 26564)])
(defalias 'svn-complete-url #[(url pred all) "\306\307\"\210\310\311\"\310\312\"\211G\313 r\314\315 C\"q\210eb\210\316\317!\203D \310\320!\211 G Y\203= \n\320 O\230\203= \fB\311y\210)\202 )\f\237\203T \321\322\f\"\202o \fG\311U\203f \f@\n\230\203f \323\202o \324\321\325\f\"#,\207" [url base-url match-file match-len files file string-match "\\`\\(.*/\\)\\([^/]*\\)\\'" match-string 1 2 nil svn-run-hidden ls looking-at ".+$" 0 mapcar #[(f) " P\207" [base-url f] 2] t try-completion #[(s) " P\302B\207" [base-url s nil] 2] all pred] 6])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list svn-switch-history default-boundp set-default nil] 3)
#@19 Run `svn switch'.
(defalias 'svn-switch #[(url) "\303 \210\304\300!\210\305\306 \n\"\210\307\310\nC\"\207" [svn-updated-files svn-url-label url svn-check-running make-local-variable nil svn-update-label svn-run switch] 3 (#$ . 27665) (list (completing-read "Switch to (URL): " 'svn-complete-url nil nil (svn-current-url) 'svn-switch-history))])
#@42 Filter function for 'svn switch' output.
(defalias 'svn-switch-filter #[(proc str) "\302 \"\207" [proc str svn-update-filter] 3 (#$ . 28017)])
(defalias 'svn-switch-sentinel #[(proc reason) "\302 \"\207" [proc reason svn-update-sentinel] 3])
#@18 Run `svn merge'.
(defalias 'svn-merge #[(from-url from-rev to-url to-rev) "\305 \210\306\300!\210\307\310\311\312\313 \n#\312\313 \f#D\"\207" [svn-updated-files from-url from-rev to-url to-rev svn-check-running make-local-variable nil svn-run merge format "%s@%s"] 7 (#$ . 28267) (list (completing-read "Merge from (URL): " 'svn-complete-url nil nil (svn-current-url) 'svn-switch-history) (read-string "Merge from revision (HEAD): " nil nil "HEAD") (completing-read "Merge to (URL): " 'svn-complete-url nil nil (car svn-switch-history) 'svn-switch-history) (read-string "Merge to revision (HEAD): " nil nil "HEAD"))])
#@41 Filter function for 'svn merge' output.
(defalias 'svn-merge-filter #[(proc str) "\303\304 \n\")\207" [svn-merging proc str t svn-update-filter] 3 (#$ . 28892)])
(defalias 'svn-merge-sentinel #[(proc reason) "\302 \"\207" [proc reason svn-update-sentinel] 3])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list svn-last-inserted-filename default-boundp set-default nil svn-last-inserted-marker] 3)
#@62 Compare two filenames, FN1 and FN2 and decide the sort order
(defalias 'svn-file-name< #[(fn1 fn2) "\304!\206 \305\304 !\206 \305\211G\nGW\203& \n\306 GO\230\203& \307\202? G\nGV\203< \n \306\nGO\230\203< \310\202? \231*\207" [fn1 fn2 dir2 dir1 file-name-directory "" 0 t nil] 5 (#$ . 29368)])
(put 'svn-file-name< 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'svn-insert-file #[(filename status &optional info) "\212\214S }\210\n\203 b\210\202+ \306 \" b\210\f\307\245y\210\310`\311\"\206) \310`\312\")\n\203e\n ! \"\313\"!\206= \314\313!!\206E \314 #\211 $G#GW\203c $#\315$GO\230\203c \316\202\203 $G#GV\203~ #$\315#GO\230\203~ \317\202\203 \"!\231,\203\371 o\204\363 \310`\311\"\206\226 \310`\312\" ! \"\313\"!\206\243 \314\313!!\206\253 \314 #\211 $G#GW\203\311 $#\315$GO\230\203\311 \316\202\351 $G#GV\203\344 #$\315#GO\230\203\344 \317\202\351 \"!\231,\204\363 \320y\210\202\207 \321y\210\202em\204e\310`\311\"\206\310`\312\" ! \"\313\"!\206\314\313!!\206 \314 #\211 $G#GW\203;$#\315$GO\230\203;\316\202[$G#GV\203V#$\315#GO\230\203V\317\202[\"!\231,\203e\321y\210\202\371 \317 %\310`\311\"\230\203~\310`\322\"%`\321y\210`|\210 `\317\223\210\323&\203\221\324\325&\"\202\222\326'%\203\235\327\202\236\330\261\210\331 \210\332 `\333\334\335\316\336%\257%\205\272\337\340D\"#\210+\211\207" [svn-files-start svn-files-stop svn-last-inserted-filename svn-last-inserted-marker line-count filename count-lines 2 svn-getprop file dir file-name-directory "" 0 t nil -1 1 mark " " format "%-9s " " " " * " " " newline add-text-properties append svn-file svn-updated svn-mark face svn-mark-face fn2 fn1 dir2 dir1 marked info status] 10])
(defalias 'svn-remove-line #[(pos) "\212b\210\301y\210`|)\207" [pos 1] 2])
(defalias 'svn-insert-dirs #[nil "\212\214 }\210eb\210\306\307m?\205f \310`\304\"\211 \203 \f\202_ ` \310`\311\" \312 !\2060 \313\211 \n\230\204^ \f\f\313\230\203E \314c\210\202K \315\f\316\261\210\317 \210\320`\321#\210\322`\323\324\325\fF#\210+)\326y\210\202 ,\207" [svn-files-start svn-files-stop current-dir inhibit-read-only dir start t nil svn-getprop file file-name-directory "" " Top-level directory:" " Directory " ":" newline remove-text-properties (svn-file nil) add-text-properties face bold svn-dir 1] 8 nil nil])
#@60 Move to the line containing file information for FILENAME.
(defalias 'svn-file-pos #[(filename) "\211\203 \n\303 \304\"\230\204 \305 \304\"\211\204 )\207" [svn-files-start pos filename get-text-property svn-file next-single-property-change] 5 (#$ . 31751)])
(defalias 'svn-update-file-status #[(filename status-char) "\303\212\304 !\210\305 \210\306\307!\210\nc*\207" [inhibit-read-only filename status-char t svn-goto-file beginning-of-line delete-char 1] 2])
(defalias 'set-svn-process-status #[(status) "@\305\n \306=\203 \307\310 \206 \311\"\202+ \312=\203 \313\202+ \314=\203* \315\202+ \313\"\210) \306=\2038 \316\211\207\317\211\207" [svn-running description svn-running-label status mode-line-process svn-update-label running format "%s..." "Running" finished "" failed "Failed" ": running" nil] 5])
#@31 Keymap for `svn-status-mode'.
(defvar svn-status-mode-map nil (#$ . 32582))
(defalias 'svn-status-set-default-mode-map #[nil "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\310#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\363#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\302\372\373#\207" [svn-status-mode-map make-sparse-keymap define-key "a" svn-add-file "c" svn-commit "f" svn-find-file [mouse-2] svn-mouse-find-file "" "g" svn-refresh "\365" svn-update-current " " svn-toggle-mark "m" svn-mark-forward "" svn-unmark-backward "u" svn-unmark-forward "\377" svn-unmark-all "o" svn-find-file-other-window "r" svn-remove-file "=" svn-diff-file "p" svn-previous-file "n" svn-next-file "s" svn-refresh-file "S" svn-refresh-one "x" svn-expunge "U" svn-revert "R" svn-resolve "M" svn-move "D" svn-insert-dirs "\363" svn-switch "\355" svn-merge "q" bury-buffer "?" svn-status-help "P" svn-propedit] 4])
(byte-code "\204 \301 \210\301\207" [svn-status-mode-map svn-status-set-default-mode-map] 1)
#@67 Major mode for Subversion status buffers.
\{svn-status-mode-map}
(defalias 'svn-status-mode #[nil "\305 \210\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\314\315\316\n!\210 \211\207" [major-mode mode-name svn-status-mode-map svn-status-mark-col goal-column kill-all-local-variables make-local-variable svn-files-start svn-files-stop svn-last-inserted-marker svn-last-inserted-filename svn-running svn-status-mode "Svn status" use-local-map] 2 (#$ . 33949) nil])
(defalias 'svn-goto-file #[(filename) "\302e\303\"\211\203 \304\305\" \230\204 \302\303\"\211\204 \205! b)\207" [pos filename next-single-property-change svn-file svn-getprop file] 4])
(defalias 'svn-getprop #[(pos prop) "\302\303\304\305 !P!\"\207" [pos prop get-text-property intern "svn-" symbol-name] 6])
(put 'svn-getprop 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'svn-setprop #[(pos prop value) "\212b\210\304 \210`\305y\210\306 `\307\310\311\n!P! $*\207" [pos start prop value beginning-of-line nil put-text-property intern "svn-" symbol-name] 7])
(put 'svn-setprop 'byte-optimizer 'byte-compile-inline-expand)
#@42 Get the file status for the file at POS.
(defalias 'svn-file-status #[(pos) " \\f\207" [pos svn-status-flags-col] 2 (#$ . 35084)])
(put 'svn-file-status 'byte-optimizer 'byte-compile-inline-expand)
#@46 Get the property status for the file at POS.
(defalias 'svn-prop-status #[(pos) " \\\302\\f\207" [pos svn-status-flags-col 1] 2 (#$ . 35289)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311%\207" [put svn-prop-status byte-optimizer byte-compile-inline-expand custom-declare-face svn-mark-face ((((type tty) (class color)) (:background "cyan" :foreground "black")) (((class color) (background light)) (:background "yellow2")) (((class color) (background dark)) (:background "darkblue")) (t (:inverse-video t))) "Face used to highlight marked files" :group dsvn] 6)
(defalias 'svn-highlight-line #[(mark) "\212\304 \210`\305y\210`\306\307D \203 \310\n #\202 \311\n #,\207" [start prop end mark beginning-of-line nil face svn-mark-face add-text-properties remove-text-properties] 4])
#@100 Update the mark on the status line at POS.
Set it if MARK is non-NIL, and clear it if MARK is NIL.
(defalias 'svn-set-mark #[(pos mark) "\212\304 \n\\b\210\305\306!\210\307 \203 \310\202 \311!\210\312 !\210\306y\210\313 `\314 $*\207" [inhibit-read-only pos svn-status-mark-col mark t delete-char 1 insert-and-inherit "*" " " svn-highlight-line put-text-property svn-mark] 5 (#$ . 36096)])
#@130 Return a list of lists (FILE POS) to act on.
Optional argument PRED is a predicate function that is called with POS as
argument.
(defalias 'svn-actions #[(&optional pred) "\305\306e\307\"\203. \310\311\"\203% \n\203 \n!\203% \310\307\"D B\306\307\"\211\204 \204e `\304\310\312\313\314 !P!\"*\211 \204J \315\316!\210\n\203Y \n\317 !\204Y \315\320!\210\f\212\321 \210`*DC\202h \322 !*\207" [pos files pred prop file nil next-single-property-change svn-file get-text-property svn-mark intern "svn-" symbol-name error "No file on this line" line-beginning-position "Invalid file" beginning-of-line reverse] 7 (#$ . 36495)])
#@124 Return a list of file names to act on.
Optional argument PRED is a predicate function that is called with POS as
argument.
(defalias 'svn-action-files #[(&optional pred) "\301\302\303!\"\207" [pred mapcar car svn-actions] 4 (#$ . 37138)])
#@28 Find the file under point.
(defalias 'svn-find-file #[(pos) "\303\304\305\306\307 !P!\"*\206! \310\304\305\306\307 !P!\"*\211\203, \311\n!\202/ \312\313!)\207" [pos prop filename file get-text-property intern "svn-" symbol-name dir find-file error "No file on this line"] 7 (#$ . 37384) "d"])
#@27 Find the file clicked on.
(defalias 'svn-mouse-find-file #[(ev) "\303\211:\203 A@\202 \304 `\305\306F)\307\n8\206- \nA@:\203* \nA@@\202- \nA@)!\207" [ev event position svn-find-file selected-window (0 . 0) 0 5] 6 (#$ . 37692) "e"])
#@28 Find the file under point.
(defalias 'svn-find-file-other-window #[nil "`\303\304 \305\306\307!P!\"*\206! `\310\304 \305\306\307!P!\"*\211\203, \311\n!\202/ \312\313!)\207" [prop pos filename file get-text-property intern "svn-" symbol-name dir find-file-other-window error "No file on this line"] 7 (#$ . 37936) nil])
#@44 Add the selected files to version control.
(defalias 'svn-add-file #[nil "\301\302!\303\304\305#)\207" [actions svn-action-files #[(pos) "\211 \\f)\303=\206 \304\305\306\307\310\311\312\n!P!\"*\"\207" [pos svn-status-flags-col prop 63 error "%s is already under version control" file get-text-property intern "svn-" symbol-name] 9] svn-run add "Adding files"] 4 (#$ . 38268) nil])
#@39 Output filter function for `svn add'.
(defalias 'svn-add-filter #[(proc str) "\212\306!q\210\307db\210\nc\210 b\210\310\311!\2050 \312\313!\314P\312\315! \316\224\316\225|\210\317\f\"\210*\202 *\207" [proc inhibit-read-only str svn-output-marker filename status process-buffer t looking-at "\\([AD] \\)..... \\(.*\\)\n" match-string 1 " " 2 0 svn-insert-file] 3 (#$ . 38664)])
(defalias 'svn-add-sentinel #[(proc reason) "r\303!q\210\304\305\306!\210)\307\n\"\207" [proc svn-running reason process-buffer nil set-svn-process-status finished svn-default-sentinel] 3])
#@62 Whether all marked files/directories can be deleted undoably
(defalias 'svn-can-undo-deletion-p #[(actions) "?\206 @\211\211A@)\211\211\f\\f)\305>*\205 \306A!\207" [actions fp x pos svn-status-flags-col (32 68) svn-can-undo-deletion-p] 3 (#$ . 39249)])
#@28 Remove the selected files.
(defalias 'svn-remove-file #[nil "\303 \304\305 !\204! \306\307\310 G G\311V\203 \312\202 \313#!\2056 \314\315\316\317 !\"\210\n\2055 \320\321\322\nB\323#)*\207" [inhibit-read-only actions svn-files svn-actions t svn-can-undo-deletion-p y-or-n-p format "Really remove %d %s? " 1 "files" "file" nil mapc #[(fp) "@\211A@)\n\211\f\\f)\306U\204 B\211\202% \307 !\210\310\n!*\207" [fp x pos file svn-status-flags-col svn-files 63 delete-file svn-remove-line] 3] reverse svn-run delete "--force" "Removing files"] 6 (#$ . 39517) nil])
(defalias 'svn-delete-filter #[(proc str) "\302 \"\207" [proc str svn-add-filter] 3])
#@28 Revert the selected files.
(defalias 'svn-revert #[nil "\302\303!\304\305\306GG\307V\203 \310\202 \311#!\205% \312\301!\210\313\314\315#)\207" [files svn-reverted-files svn-action-files #[(pos) "\211 \\f)\303>\206, \211 \\\304\\f)\305>\206, \306\307\310\311\312\313\314\n!P!\"*\"\207" [pos svn-status-flags-col prop (68 65 77 67 33) 1 (68 65 77 67 33) error "%s has no local changes" file get-text-property intern "svn-" symbol-name] 9] y-or-n-p format "Really revert %d %s? " 1 "files" "file" make-local-variable svn-run revert "Reverting files"] 6 (#$ . 40181) nil])
(defalias 'svn-revert-sentinel #[(proc reason) "\304 \"\210\305!\306U\203 r\307!q\210\310\311 \312\"\210*\313\314 \"\207" [proc reason inhibit-read-only svn-reverted-files svn-default-sentinel process-exit-status 0 process-buffer t svn-run-status-v nil mapc svn-revert-if-needed] 3])
#@38 Mark the selected files as resolved.
(defalias 'svn-resolve #[nil "\302\303!\304\301!\210\305\306\307#)\207" [files svn-resolved-files svn-action-files #[(pos) "\211 \\f)\303U\206, \211 \\\304\\f)\303U\206, \305\306\307\310\311\312\313\n!P!\"*\"\207" [pos svn-status-flags-col prop 67 1 error "%s has no conflicts" file get-text-property intern "svn-" symbol-name] 9] make-local-variable svn-run resolved "Marking resolved files"] 4 (#$ . 41061) nil])
(defalias 'svn-resolved-sentinel #[(proc reason) "\304 \"\210\305!\306U\205 r\307!q\210\310\311 \312\"*\207" [proc reason inhibit-read-only svn-resolved-files svn-default-sentinel process-exit-status 0 process-buffer t svn-run-status-v nil] 3])
#@32 Move/rename the selected file.
(defalias 'svn-move #[nil "\304 \211G\305U\204 \306\307!\210\310@!\203 \306\311!\210@\312 !\313\314\315\316\211\n\317&\320\321 D\322#,\207" [files src dir dst svn-action-files 1 error "Can only rename one file at a time" file-directory-p "Can only move files" file-name-directory completing-read "Move to: " svn-complete-url nil svn-switch-history svn-run move "Moving file"] 8 (#$ . 41781) nil])
(defalias 'svn-move-filter #[(proc str) "\212\306!q\210\307db\210\nc\210 b\210\310\311!\2056 \312\313!\312\314! \211 \315\230\203' \316\317\224\317\225|\210\320\f\"\210*\202 *\207" [proc inhibit-read-only str svn-output-marker filename status process-buffer t looking-at "\\([AD] \\) \\(.*\\)\n" match-string 1 2 "A " "A + " 0 svn-insert-file] 4])
#@43 Toggle the mark for the file under point.
(defalias 'svn-toggle-file-mark #[nil "`\302\303 \304\305\306!P!\"*\307\310 \n?\")\207" [prop pos mark get-text-property intern "svn-" symbol-name svn-set-mark line-beginning-position] 6 (#$ . 42591)])
#@76 Toggle the mark for the file under point, or files in the dir under point.
(defalias 'svn-toggle-mark #[nil "`\302\304 \305\306\307!P!\"*\203 \310 \207`\303\304 \305\306\307!P!\"*\205t `\303\304 \305\306\307!P!\"*\311\212\312y\210`\302\304 \305\306\307!P!\"*\211\205s \313 \n\"\205s \310 \210\312y\210`\302\304 \305\306\307!P!\"*\211\204Q \311+\207" [prop pos file dir get-text-property intern "svn-" symbol-name svn-toggle-file-mark nil 1 svn-in-dir-p] 7 (#$ . 42845) nil])
#@71 Set or clear the mark for the file under point and move to next line.
(defalias 'svn-change-mark-forward #[(mark) "`\304\306 \307\310\311!P!\"*\203+ \312\313 \n\"\210\314\211\211\203& \315\316!\202) \317\316!*\207`\305\306 \307\310\311!P!\"*\203\217 `\305\306 \307\310\311!P!\"*\314 \316y\210`\304\306 \307\310\311!P!\"*\211\203\211 \320\f\"\203\211 \312`\n\"\210\316y\210`\304\306 \307\310\311!P!\"*\211\204f \321!*\207\322\323!\207" [prop pos mark svn-next-file-pos file dir get-text-property intern "svn-" symbol-name svn-set-mark line-beginning-position nil svn-next-file 1 next-line svn-in-dir-p move-to-column error "No file on line" goal-column] 7 (#$ . 43346)])
#@62 Set the mark for the file under point and move to next line.
(defalias 'svn-mark-forward #[nil "\300\301!\207" [svn-change-mark-forward t] 2 (#$ . 44045) nil])
#@62 Set the mark for the file under point and move to next line.
(defalias 'svn-mark-backward #[nil "\300\301!\210\302\303 \304\"\207" [svn-previous-file 1 svn-set-mark line-beginning-position t] 3 (#$ . 44211) nil])
#@51 Unset the mark for the file on the previous line.
(defalias 'svn-unmark-forward #[nil "\300\301!\207" [svn-change-mark-forward nil] 2 (#$ . 44430) nil])
#@51 Unset the mark for the file on the previous line.
(defalias 'svn-unmark-backward #[nil "\300\301!\210\302\303 \304\"\207" [svn-previous-file 1 svn-set-mark line-beginning-position nil] 3 (#$ . 44589) nil])
#@51 Unset the mark for the file on the previous line.
(defalias 'svn-unmark-all #[nil "\301\302\303 \"\211\205 \304@\305\"\210A\211\204\n \305)\207" [pos-list mapcar cadr svn-actions svn-set-mark nil] 4 (#$ . 44801) nil])
#@118 Show diff for the file under point.
If the prefix argument ALL is non-NIL, show diff for all selected
files instead.
(defalias 'svn-diff-file #[(all) "\203 \304 \2021 `\305\306\n\307\310\311 !P!\"*\2060 `\312\306\n\307\310\311 !P!\"*\2060 \313\314!C\315\316 \317#?\205> \320\321!)\207" [all prop pos files svn-action-files file get-text-property intern "svn-" symbol-name dir error "No file on line" svn-run-with-output "diff" diff-mode message "No difference found"] 6 (#$ . 45031) "P"])
#@62 Move to the ARGth previous line containing file information.
(defalias 'svn-previous-file #[(arg) "\304`\305\"\211\204 \306\307!\210\310\305\"`\311\310\312\313\314 !P!\"*\230\2031 \304\305\"\211\2041 \306\307!\210\310\305\"\204E \304\305\"\211\204E \306\307!\210\n\\b\210 \315V\205T \316 S!)\207" [pos prop goal-column arg previous-single-property-change svn-file error "No previous file" get-text-property file intern "svn-" symbol-name 1 svn-previous-file] 8 (#$ . 45533) "p"])
(defalias 'svn-next-file-pos #[nil "\301`\302\"\211\205 \303\302\"\204 \301\302\"\202 )\207" [pos next-single-property-change svn-file get-text-property] 4])
#@58 Move to the ARGth next line containing file information.
(defalias 'svn-next-file #[(arg) "\304 \211\203 \\b\210\202 `\nW\203 \305\306!\210\202 \307\310!\210 \306V\205* \311 S!)\207" [pos goal-column svn-files-stop arg svn-next-file-pos next-line 1 error "No next file" svn-next-file] 3 (#$ . 46196) "p"])
#@38 Remove entried for unmodified files.
(defalias 'svn-expunge #[nil "\212\306\307\nb\210\310y\210` Y\203| `\311 \312\313\314\315\f!P!\"*\211 \203H \203B GGV\203> \316GO\230\204B \317`!\210 \202u `\211 \\f)`\211 \\\320\\f) \211 \321>\203r \322=\203r \317`!\210\202t \323*)\310y\210\202 +\324!\210\323\211\207" [last-dir inhibit-read-only svn-files-stop svn-files-start prop pos t "/" -1 dir get-text-property intern "svn-" symbol-name 0 svn-remove-line 1 (32 73 88) 32 nil move-to-column svn-status-flags-col prop-status file-status goal-column svn-last-inserted-filename] 7 (#$ . 46515) nil])
(defalias 'svn-format-help-column #[(table) "\301\302\"\207" [table mapcar #[(cmd-desc) "@\211A@)\304\305\306\307 !@!\n#*\207" [cmd-desc x desc cmd format "%-4s %s" key-description where-is-internal] 6]] 3])
(defalias 'svn-merge-columns-list #[(columns fmt) "\303\304\"\305\306\307 BD!\205 \310\311 \312#\313\303\314\"\n\"B)\207" [columns first-lines fmt mapcar car eval or quote mapconcat #[(str) "\302 \206 \303\"\207" [fmt str format ""] 3] " | " svn-merge-columns-list cdr] 5])
(defalias 'svn-merge-columns #[(columns width) "\302\303\304\305\306 \"\"\307#\207" [columns width mapconcat identity svn-merge-columns-list format "%%-%ds" "\n"] 7])
#@46 Display keyboard help for svn status buffer.
(defalias 'svn-status-help #[nil "\305\306!\307\310\311!\310\312!\310\313!E\314\"rq\210\315\211\316 \210 c\210\317b\210)\320\321!\210)\322!?\205D rq\210\323\317\324 \") \325\326\327\fZ!\")*\207" [buf help-text buffer-read-only inhibit-read-only nlines get-buffer-create "*svn-keyboard-help*" svn-merge-columns svn-format-help-column ((svn-commit "commit marked files") (svn-add-file "add marked files") (svn-remove-file "remove marked files") (svn-revert "revert marked files") (svn-update-current "update working copy") (svn-resolve "resolve conflicts") (svn-move "rename/move files") (svn-switch "switch working tree") (svn-merge "merge into WC") (svn-propedit "edit properties")) ((svn-mark-forward "mark and go down") (svn-unmark-backward "go up and unmark") (svn-unmark-forward "unmark and go down") (svn-toggle-mark "toggle mark") (svn-unmark-all "unmark all")) ((svn-find-file "visit file") (svn-find-file-other-window "visit file other win") (svn-diff-file "show file diff") (svn-refresh "refresh all files") (svn-refresh-file "refresh marked files") (svn-refresh-one "refresh named file") (svn-expunge "expunge unchanged")) 24 t erase-buffer 1 set-buffer-modified-p nil get-buffer-window count-lines buffer-size set-window-buffer split-window-vertically -1] 6 (#$ . 47803) nil])
#@38 Return a list of svn status buffers.
(defalias 'svn-buffer-list #[nil "\304\305 \203# @r\nq\210 )\306=\203 \n B)A\211\204 *\207" [all-buffers buffers buf major-mode nil buffer-list svn-status-mode] 3 (#$ . 49150)])
#@96 Update the status flag column for file at position POS.
Argument FLAG is the character to use.
(defalias 'svn-update-status-flag #[(pos flag &optional prop-flag) "\212 \\b\210\304\n!\210\305\306!\210 \205 \304 !\210\305\306!)\207" [pos svn-status-flags-col flag prop-flag insert-and-inherit delete-char 1] 2 (#$ . 49382)])
#@91 Update the message column for file at position POS.
Argument MSG is the character to use.
(defalias 'svn-update-status-msg #[(pos msg) "\212 \\b\210\303\304!\210\305\306\307\n\"!)\207" [pos svn-status-msg-col msg delete-char 9 insert-and-inherit format "%9s"] 4 (#$ . 49713)])
#@240 Call FUNCTION for each svn status buffer that contains FILE-NAME.
The current buffer will be the svn status buffer, and the arguments to
the function is the local form of the filename and the buffer position
where the file information is.
(defalias 'svn-foreach-svn-buffer #[(file-name function) "\306 \307\310\n!\205G r@q\210\310\f! GGY\203> \311GO\230\203> G\312O \f\313\f! \f\"\210**A\211\204 \312+\207" [svn-buffers inhibit-read-only file-name file-path default-directory dir svn-buffer-list t file-truename 0 nil svn-file-pos local-file-name file-pos function] 5 (#$ . 49998)])
#@46 Update svn status buffer when saving a file.
(defalias 'svn-after-save #[nil "\300\301 \302\"\210\303\207" [svn-foreach-svn-buffer buffer-file-name #[(local-file-name file-pos) "\203 \211\n\\f)\211\305U\203 \306\307\"\210\310\311\")\207\312\fC\313\"\207" [file-pos pos svn-status-flags-col old-status local-file-name 32 svn-update-status-flag 77 svn-update-status-msg "" svn-run-status-v nil] 4] nil] 3 (#$ . 50609)])
(add-hook 'after-save-hook 'svn-after-save)
#@65 Update svn status buffer when committing a file from `vc-mode'.
(defalias 'svn-after-commit #[nil "\300\301 \302\"\210\303\207" [svn-foreach-svn-buffer buffer-file-name #[(local-file-name file-pos) "\203 \302\303\"\210\304\305\"\207\306 \307\305#\207" [file-pos local-file-name svn-update-status-flag 32 svn-update-status-msg "Committed" svn-insert-file " "] 4] nil] 3 (#$ . 51085)])
(byte-code "\300\301\302\"\210\303\304\305\306\307$\210\310\304\307\"\210\303\311\312\306\307$\210\310\311\307\"\210\313\314!\207" [add-hook vc-checkin-hook svn-after-commit ad-add-advice vc-svn-register (svn-vc-svn-register nil t (advice lambda nil (svn-foreach-svn-buffer (buffer-file-name) (lambda (local-file-name file-pos) (svn-refresh-item local-file-name t))))) after nil ad-activate uniquify-buffer-file-name (svn-uniquify nil t (advice lambda nil (unless ad-return-value (with-current-buffer (ad-get-arg 0) (when (eq major-mode 'svn-status-mode) (setq ad-return-value (expand-file-name "*svn*"))))))) provide dsvn] 5)