-
Notifications
You must be signed in to change notification settings - Fork 0
/
psvn.elc
1484 lines (1422 loc) · 214 KB
/
psvn.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
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
;ELC
;;; Compiled by www@b-app-239.hprod on Thu Mar 18 00:47:02 2010
;;; from file /hunch/www/emacs/psvn.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 "`psvn.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\217\207" [require easymenu nil (byte-code "\300\301!\207" [require diff-mode] 2) ((error))] 3)
#@30 The revision number of psvn.
(defconst svn-psvn-revision "$Id: psvn.el 40299 2009-10-29 19:38:54Z xsteve $" (#$ . 689))
#@95 *Add '-v' to svn status call.
This can be toggled with \[svn-status-toggle-svn-verbose-flag].
(custom-declare-variable 'svn-status-verbose 't '(#$ . -815) :type 'boolean :group 'psvn)
#@136 *Name of a saved log file.
This can be either absolute, or relative to the default directory
of the `svn-log-edit-buffer-name' buffer.
(custom-declare-variable 'svn-log-edit-file-name '"++svn-log++" '(#$ . -1006) :type 'file :group 'psvn)
(put 'svn-log-edit-file-name 'risky-local-variable t)
#@56 *Insert the filelist to commit in the *svn-log* buffer
(custom-declare-variable 'svn-log-edit-insert-files-to-commit 't '(#$ . -1305) :type 'boolean :group 'psvn)
#@67 *Show the diff being committed when you run `svn-status-commit.'.
(custom-declare-variable 'svn-log-edit-show-diff-for-commit 'nil '(#$ . -1474) :type 'boolean :group 'psvn)
#@112 *Use log-edit-mode as base for svn-log-edit-mode
This variable takes effect only when psvn.el is being loaded.
(custom-declare-variable 'svn-log-edit-use-log-edit-mode '(and (condition-case nil (require 'log-edit) (error nil)) t) '(#$ . -1655) :type 'boolean :group 'psvn)
#@73 *Value used for `paragraph-start' in `svn-log-edit-buffer-name' buffer.
(custom-declare-variable 'svn-log-edit-paragraph-start '"$\\|[ ]*$\\|##.*$\\|\\*.*:.*$\\|[ ]+(.+):.*$" '(#$ . -1934) :type 'regexp :group 'psvn)
#@76 *Value used for `paragraph-separate' in `svn-log-edit-buffer-name' buffer.
(custom-declare-variable 'svn-log-edit-paragraph-separate '"$\\|##.*$" '(#$ . -2159) :type 'regexp :group 'psvn)
#@117 *Hide unknown files in `svn-status-buffer-name' buffer.
This can be toggled with \[svn-status-toggle-hide-unknown].
(custom-declare-variable 'svn-status-hide-unknown 'nil '(#$ . -2354) :type 'boolean :group 'psvn)
#@123 *Hide unmodified files in `svn-status-buffer-name' buffer.
This can be toggled with \[svn-status-toggle-hide-unmodified].
(custom-declare-variable 'svn-status-hide-unmodified 'nil '(#$ . -2575) :type 'boolean :group 'psvn)
#@120 *Hide external files in `svn-status-buffer-name' buffer.
This can be toggled with \[svn-status-toggle-hide-externals].
(custom-declare-variable 'svn-status-hide-externals 'nil '(#$ . -2805) :type 'boolean :group 'psvn)
#@228 *Whether to sort the `svn-status-buffer-name' buffer.
Setting this variable to nil speeds up \[M-x svn-status], however the
listing may then become incorrect.
This can be toggled with \[svn-status-toggle-sort-status-buffer].
(custom-declare-variable 'svn-status-sort-status-buffer 't '(#$ . -3031) :type 'boolean :group 'psvn)
#@71 *Whether to delete temporary ediff files. If set to ask, ask the user
(custom-declare-variable 'svn-status-ediff-delete-temporary-files 'nil '(#$ . -3366) :type '(choice (const t) (const nil) (const ask)) :group 'psvn)
#@289 *The changelog style that is used for `svn-file-add-to-changelog'.
Possible values are:
'changelog: use `add-change-log-entry-other-window'
'svn-dev: use commit messages that are used by the svn developers
a function: This function is called to add a new entry to the changelog file.
(custom-declare-variable 'svn-status-changelog-style ''changelog '(#$ . -3592) :type '(set (const changelog) (const svn-dev)) :group 'psvn)
#@102 *List of operations after which all user marks will be removed.
Possible values are: commit, revert.
(custom-declare-variable 'svn-status-unmark-files-after-list ''(commit revert) '(#$ . -4027) :type '(set (const commit) (const revert)) :group 'psvn)
#@44 *Try to preserve the window configuration.
(custom-declare-variable 'svn-status-preserve-window-configuration 't '(#$ . -4284) :type 'boolean :group 'psvn)
#@49 *Auto revert buffers that have changed on disk.
(custom-declare-variable 'svn-status-auto-revert-buffers 't '(#$ . -4446) :type 'boolean :group 'psvn)
#@81 *Show a color dot in the modeline that describes the state of the current file.
(custom-declare-variable 'svn-status-fancy-file-state-in-modeline 't '(#$ . -4603) :type 'boolean :group 'psvn)
#@152 *List of operations that should use a negated meaning of the prefix argument.
The supported functions are `svn-status' and `svn-status-set-user-mark'.
(custom-declare-variable 'svn-status-negate-meaning-of-arg-commands ''nil '(#$ . -4802) :type '(set (function-item svn-status) (function-item svn-status-set-user-mark)) :group 'psvn)
#@91 *The name of the svn executable.
This can be either absolute or looked up on `exec-path'.
(custom-declare-variable 'svn-status-svn-executable '"svn" '(#$ . -5142) :type 'file :group 'psvn)
(put 'svn-status-svn-executable 'risky-local-variable t)
#@54 *The default directory that is suggested svn export.
(custom-declare-variable 'svn-status-default-export-directory '"~/" '(#$ . -5394) :type 'file :group 'psvn)
#@446 *A list of environment variables that should be set for that svn process.
Each element is either a string "VARIABLE=VALUE" which will be added to
the environment when svn is run, or just "VARIABLE" which causes that
variable to be entirely removed from the environment.
The default setting is '("LC_MESSAGES=C" "LC_ALL="). This ensures that the svn command
line client does not output localized strings. psvn.el relies on the english
messages.
(custom-declare-variable 'svn-status-svn-environment-var-list ''("LC_MESSAGES=C" "LC_ALL=") '(#$ . -5562) :type '(repeat string) :group 'psvn)
(put 'svn-status-svn-environment-var-list 'risky-local-variable t)
#@266 Function to display a Subversion related WWW page in a browser.
So far, this is used only for "trac" issue tracker integration.
By default, this is nil, which means use `browse-url-browser-function'.
Any non-nil value overrides that variable, with the same syntax.
(custom-declare-variable 'svn-browse-url-function 'nil '(#$ . 6224) :type `(choice (const :tag "Specified by `browse-url-browser-function'" nil) (function :value browse-url-default-browser :match ,(lambda (widget value) (or (symbolp value) (functionp value)))) (svn-alist :tag "Regexp/function association list" :key-type regexp :value-type function :value (("." . browse-url-default-browser)))) :link '(emacs-commentary-link "browse-url") :group 'psvn)
#@41 *Header content of the *svn-log* buffer
(custom-declare-variable 'svn-log-edit-header '"## Lines starting with '## ' will be removed from the log message.\n" '(#$ . -6949) :type 'string :group 'psvn)
#@402 An alist to specify which windows should be used for svn command outputs.
The following keys are supported: diff, log, info, blame, proplist, update.
The following values can be given:
nil ... show in `svn-process-buffer-name' buffer
t ... show in dedicated *svn-info* buffer
invisible ... don't show the buffer (eventually useful for update)
a string ... show in a buffer named string
(custom-declare-variable 'svn-status-window-alist ''((diff "*svn-diff*") (log "*svn-log*") (info t) (blame t) (proplist t) (update t)) '(#$ . 7156) :type '(svn-alist :key-type symbol :value-type (group (choice (const :tag "Show in *svn-process* buffer" nil) (const :tag "Show in dedicated *svn-info* buffer" t) (const :tag "Don't show the output" invisible) (string :tag "Show in a buffer named")))) :options '(diff log info blame proplist update) :group 'psvn)
#@486 *Whether the mark for out of date files is short or long.
If this variable is is t, and a file is out of date (i.e., there is a newer
version in the repository than the working copy), then the file will
be marked by "**"
If this variable is nil, and the file is out of date then the longer phrase
"(Update Available)" is used.
In either case the mark gets the face
`svn-status-update-available-face', and will only be visible if
`\[svn-status-update]' is run with a prefix argument
(custom-declare-variable 'svn-status-short-mod-flag-p 't '(#$ . -8026) :type '(choice (const :tag "Short \"**\"" t) (const :tag "Long \"(Update Available)\"" nil)) :group 'psvn)
#@169 The psvn.el debugging verbosity level.
The higher the number, the more debug messages are shown.
See `svn-status-message' for the meaning of values for that variable.
(defvar svn-status-debug-level 0 (#$ . 8696))
#@70 A list of locations for a quick access via `svn-status-via-bookmark'
(defvar svn-bookmark-list nil (#$ . 8916))
#@32 Name for the svn status buffer
(defvar svn-status-buffer-name "*svn-status*" (#$ . 9034))
#@33 Name for the svn process buffer
(defvar svn-process-buffer-name " *svn-process*" (#$ . 9130))
#@34 Name for the svn log-edit buffer
(defvar svn-log-edit-buffer-name "*svn-log-edit*" (#$ . 9230))
#@189 *Whether a header line should be used.
When t: Use the emacs header line
When 'inline: Insert the header line in the `svn-status-buffer-name' buffer
Otherwise: Don't display a header line
(custom-declare-variable 'svn-status-use-header-line '(if (boundp 'header-line-format) t 'inline) '(#$ . -9333) :type '(choice (const :tag "Show column titles as a header line" t) (const :tag "Insert column titles as text in the buffer" inline) (other :tag "No column titles" nil)) :group 'psvn)
#@112 *List of arguments to pass to svn log.
(used in `svn-status-show-svn-log'; override these by giving prefixes).
(custom-declare-variable 'svn-status-default-log-arguments ''("-v") '(#$ . -9824) :type '(repeat string) :group 'psvn)
(put 'svn-status-default-log-arguments 'risky-local-variable t)
#@347 *List of arguments to pass to svn commit.
If you don't like recursive commits, set this value to ("-N")
or mark the directory before committing it.
Do not put an empty string here, except as an argument of an option:
Subversion and the operating system may treat that as a file name
equivalent to ".", so you would commit more than you intended.
(custom-declare-variable 'svn-status-default-commit-arguments ''nil '(#$ . -10125) :type '(repeat string) :group 'psvn)
(put 'svn-status-default-commit-arguments 'risky-local-variable t)
#@488 *A list of arguments that is passed to the svn diff command.
When the built in diff command is used,
the following options are available: --ignore-eol-style, --ignore-space-change,
--ignore-all-space, --ignore-eol-style.
The following setting ignores eol style changes and all white space changes:
'("-x" "--ignore-eol-style --ignore-all-space")
If you'd like to suppress whitespace changes using the external diff command
use the following value:
'("--diff-cmd" "diff" "-x" "-wbBu")
(custom-declare-variable 'svn-status-default-diff-arguments ''("-x" "--ignore-eol-style") '(#$ . -10665) :type '(repeat string) :group 'psvn)
(put 'svn-status-default-diff-arguments 'risky-local-variable t)
#@122 *A list of arguments that is passed to the svn status command.
The following options are available: --ignore-externals
(custom-declare-variable 'svn-status-default-status-arguments ''nil '(#$ . -11366) :type '(repeat string) :group 'psvn)
(put 'svn-status-default-status-arguments 'risky-local-variable t)
#@122 *A list of arguments that is passed to the svn blame command.
See `svn-status-default-diff-arguments' for some examples.
(custom-declare-variable 'svn-status-default-blame-arguments ''("-x" "--ignore-eol-style") '(#$ . -11681) :type '(repeat string) :group 'psvn)
(put 'svn-status-default-blame-arguments 'risky-local-variable t)
#@109 Path for an eventual existing trac issue tracker.
This can be set with \[svn-status-set-trac-project-root].
(defvar svn-trac-project-root nil (#$ . 12018))
#@91 *A short name for the actual project.
This can be set with \[svn-status-set-module-name].
(defvar svn-status-module-name nil (#$ . -12180))
#@406 *A list of known branches for the actual project
This can be set with \[svn-status-set-branch-list].
The list contains full repository paths or shortcuts starting with #
# at the beginning is replaced by the repository url.
#1# has the special meaning that all paths below the given directory
will be considered for interactive selections.
A useful setting might be: '("#trunk" "#1#tags" "#1#branches")
(defvar svn-status-branch-list nil (#$ . -12327))
#@91 *Whether to automatically restore state from ++psvn.state file before running svn-status.
(defvar svn-status-load-state-before-svn-status t (#$ . -12788))
#@122 A list of link handlers in *svn-log* buffers.
These link handlers must be registered via `svn-log-register-link-handler'
(defvar svn-log-link-handlers nil (#$ . 12950))
#@43 Hook run when entering `svn-status-mode'.
(defvar svn-status-mode-hook nil (#$ . 13125))
#@45 Hook run when entering `svn-log-edit-mode'.
(defvar svn-log-edit-mode-hook nil (#$ . 13220))
#@41 Hook run after commiting files via svn.
(defvar svn-log-edit-done-hook nil (#$ . 13319))
#@129 Hook that can be used to preprocess the output from svn.
The function `svn-status-remove-control-M' can be useful for that hook
(defvar svn-post-process-svn-output-hook 'svn-fixup-tramp-output-maybe (#$ . 13415))
(byte-code "\301=\203 \302\303\304\"\210\301\207" [system-type windows-nt add-hook svn-post-process-svn-output-hook svn-status-remove-control-M] 3)
#@106 The coding system that is used for the svn command line client.
It is used in svn-run, if it is not nil.
(defvar svn-status-svn-process-coding-system (byte-code "\301\300!\205 \207" [locale-coding-system boundp] 2) (#$ . 13785))
#@232 The coding system that is used to save files that are loaded as
parameter or data files via the svn command line client.
It is used in the following functions: `svn-prop-edit-do-it', `svn-log-edit-done'.
You could set it to 'utf-8
(defvar svn-status-svn-file-coding-system 'undecided-unix (#$ . 14023))
#@36 *Use ido completion functionality.
(custom-declare-variable 'svn-status-use-ido-completion '(fboundp 'ido-completing-read) '(#$ . -14332) :type 'boolean :group 'psvn)
(byte-code "\302B\303\302!\204 \304\302 \203 \305\202 \306\"\210\302\207" [current-load-list svn-status-use-ido-completion svn-status-completing-read-function default-boundp set-default ido-completing-read completing-read] 3)
#@111 Track user/password queries.
This feature is implemented via a process filter.
It is an experimental feature.
(defvar svn-status-track-user-input nil (#$ . 14737))
#@73 Whether `svn-status-update-buffer' should call `svn-status-parse-info'.
(defvar svn-status-refresh-info nil (#$ . 14907))
(byte-code "\302\303\304\305\306\307%\210\302\310\304\311\306\303%\210\312\313!\210\301B\314\315\316!!\210 \203) \312\317!\210\202/ \312\317\304\320#\210\304\207" [current-load-list svn-xemacsp custom-declare-group psvn nil "Subversion interface for Emacs." :group tools psvn-faces "psvn faces." require cl (lambda (#1=#:defconst-tmp-var) (defconst svn-xemacsp #1#)) featurep xemacs overlay t] 6)
#@125 Specifies how the filenames look like in the listing.
If t, their full path name will be displayed, else only the filename.
(custom-declare-variable 'svn-status-display-full-path 'nil '(#$ . 15435) :type 'boolean :group 'psvn)
#@56 Prefix key for the psvn commands in the global keymap.
(custom-declare-variable 'svn-status-prefix-key '[(control x) (meta s)] '(#$ . 15668) :type '(choice (const [(control x) 118 83]) (const [(super s)]) (const [(hyper s)]) (const [(control x) 118]) (const [(control x) 86]) (sexp)) :group 'psvn :set #[(var value) "\302!\203 \303J!\210 L\210\304J\305\"\207" [var value boundp global-unset-key global-set-key svn-global-keymap] 3])
#@66 *The default directory that is suggested for `svn-admin-create'.
(custom-declare-variable 'svn-admin-default-create-directory '"~/" '(#$ . -16112) :type 'string :group 'psvn)
#@114 A function that receives a line-info and decides whether to hide that line.
See psvn.el for an example function.
(defvar svn-status-custom-hide-function nil (#$ . 16294))
(add-to-list 'auto-mode-alist '("\\.~?\\(HEAD\\|BASE\\|PREV\\)~?\\'" ignore t))
#@42 List of visited svn working directories.
(defvar svn-status-directory-history nil (#$ . 16551))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\2042 \303\306\307\310\311\312\313$\"\210\304\207" [current-load-list svn-process-cmd default-boundp set-default nil svn-status-info svn-status-filename-to-buffer-position-cache make-hash-table :test equal :weakness t] 7)
#@46 The parsed result from the svn info command.
(defvar svn-status-base-info nil (#$ . 16983))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\310\"\210\311B\302\311!\204< \303\311\312\"\210\313B\302\313!\204K \303\313\314\"\210\315B\302\315!\204Z \303\315\316\"\210\304\207" [current-load-list svn-status-initial-window-configuration default-boundp set-default nil svn-status-default-column 23 svn-status-default-revision-width 4 svn-status-default-author-width 9 svn-status-line-format " %c%c%c %4s %4s %-9s" svn-start-of-file-list-line-number 0] 3)
#@113 List of files to commit at `svn-log-edit-done'.
This is always set together with `svn-status-recursive-commit'.
(defvar svn-status-files-to-commit nil (#$ . 17620))
#@112 Non-nil if the next commit should be recursive.
This is always set together with `svn-status-files-to-commit'.
(defvar svn-status-recursive-commit nil (#$ . 17792))
#@100 Revision number whose log entry is being edited.
This is nil if the log entry is for a new commit.
(defvar svn-log-edit-update-log-entry nil (#$ . 17964))
(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\304\207" [current-load-list svn-status-pre-commit-window-configuration default-boundp set-default nil svn-status-pre-propedit-window-configuration svn-status-head-revision svn-status-root-return-info svn-status-property-edit-must-match-flag] 3)
#@54 The property name for the actual svn propset command
(defvar svn-status-propedit-property-name nil (#$ . 18583))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\306\"\210\310B\302\310!\204< \303\310\306\"\210\311B\302\311!\204K \303\311\304\"\210\312B\302\312!\204Z \303\312\304\"\210\313B\302\313!\204i \303\313\304\"\210\314B\302\314!\204x \303\314\304\"\210\304\207" [current-load-list svn-status-propedit-file-list default-boundp set-default nil svn-status-mode-line-process "" svn-status-mode-line-process-status svn-status-mode-line-process-edit-flag svn-status-edit-svn-command svn-status-update-previous-process-output svn-pre-run-asynch-recent-keys svn-pre-run-mode-line-process] 3)
#@63 The directory that is used to store temporary files for psvn.
(defvar svn-status-temp-dir (byte-code "\301\302\300!\203 \206 \303\304!\203 \305\304 !\206 \306!\207" [temporary-file-directory expand-file-name boundp fboundp temp-directory file-name-as-directory "/tmp/"] 3) (#$ . 19366))
(byte-code "\302B\303\302!\204 \304\302\305\306!\"\210\307\302\310\311#\210\312B\303\312!\204& \304\312\313\"\210\307\312\310\311#\210\314B\303\314!\204> \304\314 \315\nQ\"\210\307\314\310\311#\210\316B\303\316!\204S \304\316\313\"\210\317B\303\317!\204b \304\317\313\"\210\320B\303\320!\204q \304\320\313\"\210\321B\303\321!\204\200 \304\321\313\"\210\322B\303\322!\204\217 \304\322\313\"\210\323B\303\323!\204\236 \304\323\313\"\210\313\207" [current-load-list svn-status-temp-dir svn-temp-suffix default-boundp set-default make-temp-name "." put risky-local-variable t svn-status-temp-file-to-remove nil svn-status-temp-arg-file "svn.arg" svn-status-options svn-status-commit-rev-number svn-status-update-rev-number svn-status-operated-on-dot svn-status-last-commit-author svn-status-elided-list] 5)
#@89 The buffer name for the buffer that holds the output from the last executed svn command
(defvar svn-status-last-output-buffer-name nil (#$ . 20486))
(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\304\207" [current-load-list svn-status-pre-run-svn-buffer default-boundp set-default nil svn-status-update-list svn-status-last-diff-options svn-status-blame-file-name svn-status-blame-revision] 3)
#@49 The last repository url for various operations.
(defvar svn-admin-last-repository-dir nil (#$ . 21052))
#@73 Ring that holds the last executed svn commands (for debugging purposes)
(defvar svn-last-cmd-ring (make-ring 30) (#$ . 21162))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list svn-status-cached-version-string default-boundp set-default nil] 3)
#@43 The version number of the used svn client
(defvar svn-client-version nil (#$ . 21444))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204# \303\305\306\307\310\311\304$\"\210\312B\302\312!\2047 \303\312\306\307\310\311\304$\"\210\313B\302\313!\204K \303\313\306\307\314\311\304$\"\210\304\207" [current-load-list svn-status-get-line-information-for-file default-boundp set-default nil svn-status-base-dir-cache make-hash-table :test equal :weakness svn-status-usermark-storage svn-log-registered-link-handlers eql] 7)
#@48 The partner buffer for this svn related buffer
(defvar svn-status-partner-buffer nil (#$ . 21994))
(byte-code "\302\303!\210\304\305\306\307\310\311%\210\304\312\313\314\310\311%\210\304\315\316\317\310\311%\210\304\320\321\322\310\311%\210\304\323\324\325\310\311%\210\304\326\327\330\310\311%\210\304\331\332\333\310\311%\210\304\334\335\336\310\311%\210\203S \304\337\340\341\310\311%\210\202[ \304\337\342\341\310\311%\210\203j \304\343\344\345\310\311%\210\202r \304\343\346\345\310\311%\210\304\347\350\351\310\311%\210\352 B\353\352!\204\211 \354\352\355\"\210\302\207" [svn-xemacsp current-load-list make-variable-buffer-local svn-status-partner-buffer custom-declare-face svn-status-marked-face ((((type tty) (class color)) (:foreground "green" :weight light)) (((class color) (background light)) (:foreground "green3")) (((class color) (background dark)) (:foreground "palegreen2")) (t (:weight bold))) "Face to highlight the mark for user marked files in svn status buffers." :group psvn-faces svn-status-marked-popup-face ((((type tty) (class color)) (:foreground "green" :weight light)) (((class color) (background light)) (:foreground "green3")) (((class color) (background dark)) (:foreground "palegreen2")) (t (:weight bold))) "Face to highlight the actual file, if a popup menu is activated." svn-status-update-available-face ((((type tty) (class color)) (:foreground "magenta" :weight light)) (((class color) (background light)) (:foreground "magenta")) (((class color) (background dark)) (:foreground "yellow")) (t (:weight bold))) "Face used to highlight the 'out of date' mark.\n(i.e., the mark used when there is a newer version in the repository\nthan the working copy.)\n\nSee also `svn-status-short-mod-flag-p'." svn-status-directory-face ((((type tty) (class color)) (:foreground "lightblue" :weight light)) (((class color) (background light)) (:foreground "blue4")) (((class color) (background dark)) (:foreground "lightskyblue1")) (t (:weight bold))) "Face for directories in *svn-status* buffers.\nSee `svn-status--line-info->directory-p' for what counts as a directory." svn-status-filename-face ((((class color) (background light)) (:foreground "chocolate")) (((class color) (background dark)) (:foreground "beige"))) "Face for non-directories in *svn-status* buffers.\nSee `svn-status--line-info->directory-p' for what counts as a directory." svn-status-symlink-face ((((class color) (background light)) (:foreground "cornflower blue")) (((class color) (background dark)) (:foreground "cyan"))) "Face for symlinks in *svn-status* buffers.\n\nThis is the face given to the actual link (i.e., the versioned item),\nthe target of the link gets either `svn-status-filename-face' or\n`svn-status-directory-face'." svn-status-locked-face ((t (:weight bold :foreground "Red"))) "Face for the phrase \"[ LOCKED ]\" `svn-status-buffer-name' buffers." svn-status-switched-face ((((class color) (background light)) (:foreground "CadetBlue")) (((class color) (background dark)) (:foreground "Aquamarine")) (t (:bold t :italic t))) "Face for the phrase \"(switched)\" non-directories in svn status buffers." svn-status-blame-highlight-face ((((type tty) (class color)) (:foreground "green" :weight light)) (((class color) (background light)) (:foreground "green3")) (((class color) (background dark)) (:foreground "palegreen2")) (t (:weight bold))) "Default face for highlighting a line in svn status blame mode." ((t :inherit highlight)) svn-log-partner-highlight-face ((((type tty) (class color)) (:foreground "yellow" :weight light)) (((class color) (background light)) (:foreground "gold")) (((class color) (background dark)) (:foreground "gold")) (t (:weight bold))) "Default face for highlighting the partner in svn log mode." ((((class color) (background light)) (:background "light goldenrod" :weight bold)) (t (:weight bold))) svn-status-blame-rev-number-face ((((class color) (background light)) (:foreground "DarkGoldenrod")) (((class color) (background dark)) (:foreground "LightGoldenrod")) (t (:weight bold :slant italic))) "Face to highlight revision numbers in the svn-blame mode." svn-highlight default-boundp set-default t] 6)
#@102 Return string STR decorated with the specified FACE.
If `svn-highlight' is nil then just return STR.
(defalias 'svn-add-face #[(str face &optional keymap) "\203 \303\304 G\302\n\305BB $\210 \207" [svn-highlight str face add-text-properties 0 (mouse-face highlight)] 6 (#$ . 26168)])
#@65 If CONDITION then add FACE to TEXT.
Else return TEXT unchanged.
(defalias 'svn-status-maybe-add-face #[(condition text face) "\203 \303 \n\"\207 \207" [condition text face svn-add-face] 3 (#$ . 26459)])
#@62 If CONDITION then add FACE1 to TEXT, else add FACE2 to TEXT.
(defalias 'svn-status-choose-face-to-add #[(condition text face1 face2) "\203 \304 \n\"\207\304 \"\207" [condition text face1 face2 svn-add-face] 3 (#$ . 26670)])
#@76 If CONDITION then return STRING decorated with FACE.
Otherwise, return "".
(defalias 'svn-status-maybe-add-string #[(condition string face) "\203 \303 \n\"\207\304\207" [condition string face svn-add-face ""] 3 (#$ . 26903)])
(byte-code "\300\301\302\303!\203\f \303\202 \304\"\210\300\305\302\306!\203 \306\202 \307\"\210\300\310\302\311!\203* \311\202+ \312\"\210\300\313\302\314!\2039 \314\202: \315\"\210\302\316!\203J \300\317\316\"\210\202O \300\317\320\"\210\300\207" [defalias svn-point-at-eol fboundp point-at-eol line-end-position svn-point-at-bol point-at-bol line-beginning-position svn-read-directory-name read-directory-name read-file-name svn-puthash puthash cl-puthash line-number-at-pos svn-line-number-at-pos #[(&optional pos) "\206 `\303\212eb\210`\nb\210\304y\210\305 `\"T+\207" [pos start opoint nil 0 count-lines] 3 "Return (narrowed) buffer line number at position POS.\nIf POS is nil, use current buffer location."]] 4)
(defalias 'svn-substring-no-properties #[(string &optional from to) "\303\304!\203\f \304 \n#\207 \206 \305\nO\207" [string from to fboundp substring-no-properties 0] 4])
(byte-code "\301\302!\203 \303\304\302\"\210\202 \303\304\305\"\210\306\304\307\310#\210\301\311!\203' \303\312\311\"\210\202, \303\312\313\"\210\301\314!\203A \314\315!\203A \316\317\315\320#\210\202U \316\317\321\320\322\323\324\325\326\327\330\327& \210\303\323\331\"\210\332B\333\332!\204n \334\332\301\335!\203k \335\202l \336\"\210\337B\333\337!\204\207 \334\337\301\340!\203\204 \340\202\205 \341\"\210\301\207" [current-load-list fboundp match-string-no-properties defalias svn-match-string-no-properties #[(match) "\301\224\225\"\207" [match buffer-substring-no-properties] 3] put byte-optimizer byte-compile-inline-expand help-buffer svn-help-buffer #[nil "\300\301\302\303!!!\207" [buffer-name get-buffer-create help-buffer-name "SVN"] 4] widgetp alist define-widget svn-alist "An association list.\nUse this instead of `alist', for XEmacs 21.4 compatibility." list :convert-widget svn-alist-convert-widget :tag "Association List" :key-type sexp :value-type #[(widget) "\306\307\"\306\310\"\311\211 \n:\203. \n@\312\313\314\315\313\316\317\320 \257 \257\fB\nA\211\202 \f\237+ \321\322\323\205F \324\325\326\313\314BBBBBC\327\325\326\312\313\314\306\330\" \257FC\"#\210*\207" [widget value-type #:--cl-var-- option #:--cl-var-- option-widgets widget-get :value-type :options nil cons :format "%v" const "%t: %v\n" :tag "Key" widget-put :args append set :inline t editable-list :key-type] 14] svn-call-process-function default-boundp set-default process-file call-process svn-start-process-function start-file-process start-process] 12)
#@96 Global keymap for psvn.el.
To bind this to a different key, customize `svn-status-prefix-key'.
(defvar svn-global-keymap nil (#$ . 29608))
(byte-code "\301\300\302\303#\210\204m \304 \305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332\333#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210\305\342\343#\210\305\344\345#\210\301\207" [svn-global-keymap put risky-local-variable t make-sparse-keymap define-key "v" svn-status-version "s" svn-status-this-directory "b" svn-status-via-bookmark "h" svn-status-use-history "u" svn-status-update-cmd "=" svn-status-show-svn-diff "f=" svn-file-show-svn-diff "fe" svn-file-show-svn-ediff "fl" svn-status-show-svn-log "fb" svn-status-blame "fa" svn-file-add-to-changelog "fr" svn-file-revert "c" svn-status-commit "S" svn-status-switch-to-status-buffer "o" svn-status-pop-to-status-buffer " " svn-process-kill] 4)
#@98 Keymap used in `svn-status-diff-mode' for additional commands that are not defined in diff-mode.
(defvar svn-status-diff-mode-map nil (#$ . 30618))
(byte-code "\302\300\303\304#\210\204& \305 !\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\302\207" [svn-status-diff-mode-map diff-mode-shared-map put risky-local-variable t copy-keymap define-key [103] revert-buffer [115] svn-status-pop-to-status-buffer [99] svn-status-diff-pop-to-commit-buffer [119] svn-status-diff-save-current-defun-as-kill] 4)
#@72 Subkeymap used in `svn-global-keymap' for trac issue tracker commands.
(defvar svn-global-trac-map nil (#$ . 31151))
(byte-code "\302\300\303\304#\210\204= \305 \306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\306\321\322#\210\306\323\324#\210\306 \311#\210\325\301 \"\210\302\301\326\327#\207" [svn-global-trac-map svn-global-keymap put risky-local-variable t make-sparse-keymap define-key "w" svn-trac-browse-wiki "t" svn-trac-browse-timeline "m" svn-trac-browse-roadmap "s" svn-trac-browse-source "r" svn-trac-browse-report "i" svn-trac-browse-ticket "c" svn-trac-browse-changeset defalias function-documentation (documentation-property 'svn-global-keymap 'variable-documentation t)] 4)
#@59 Return the name of the ".svn" subdirectory or equivalent.
(defalias 'svn-wc-adm-dir-name #[nil "\301=\203 \302\303!\203 \304\207\305\207" [system-type windows-nt getenv "SVN_ASP_DOT_NET_HACK" "_svn" ".svn"] 2 (#$ . 31894)])
#@169 Get the name of the saved log edit file
If curdir, return `svn-log-edit-file-name'
Otherwise position svn-log-edit-file-name in the root directory of this working copy
(defalias 'svn-log-edit-file-name #[(&optional curdir) "\203 \207\302 P\207" [curdir svn-log-edit-file-name svn-status-base-dir] 2 (#$ . 32128)])
#@269 If LEVEL is lower than `svn-status-debug-level' print ARGS using `message'.
Guideline for numbers:
1 - error messages, 3 - non-serious error messages, 5 - messages for things
that take a long time, 7 - not very important messages on stuff, 9 - messages
inside loops.
(defalias 'svn-status-message #[(level &rest args) " X\205\n \303\304\n\"\207" [level svn-status-debug-level args apply message] 3 (#$ . 32453)])
#@63 Flatten any lists within ARGS, so that there are no sublists.
(defalias 'svn-status-flatten-list #[(list) "\304\211 :\203( @\211<\203 \305\n!\237 \244\202! \n B A\211\202 \237+\207" [list #1=#:--cl-var-- item #2=#:--cl-var-- nil svn-status-flatten-list] 3 (#$ . 32874)])
#@67 Return the window line at point for window W, or nil if W is nil.
(defalias 'svn-status-window-line-position #[(w) "\301\302\303\304 #\210\205 \305\306!`\"\207" [w svn-status-message 3 "About to count lines; selected window is %s" selected-window count-lines window-start] 4 (#$ . 33163)])
#@34 Run svn checkout REPOS-URL PATH.
(defalias 'svn-checkout #[(repos-url path) "\302\303\211\304\305\306 !&\207" [repos-url path svn-run t checkout "checkout" expand-file-name] 8 (#$ . 33462) (list (read-string "Checkout from repository Url: ") (svn-read-directory-name "Checkout to directory: "))])
(defalias 'svn-examine 'svn-status)
#@448 Examine the status of Subversion working copy in directory DIR.
If ARG is -, allow editing of the parameters. One could add -N to
run svn status non recursively to make it faster.
For every other non nil ARG pass the -u argument to `svn status', which
asks svn to connect to the repository and check to see if there are updates
there.
If there is no .svn directory, examine if there is CVS and run
`cvs-examine'. Otherwise ask if to run `dired'.
(defalias 'svn-status #[(dir &optional arg) "\304\305\306!\307 #\304\310\306!\"\311\n!\203\" \312 \313\"\314 \"\202C \311 !\2035 \315\316!\2035 \316\317\"\202C \320\304\321\307 #!\205C \322!*\207" [dir cvs-dir svn-dir arg format "%s%s" file-name-as-directory svn-wc-adm-dir-name "%sCVS" file-directory-p svn-status-possibly-negate-meaning-of-arg svn-status svn-status-1 fboundp cvs-examine nil y-or-n-p "%s is not Subversion controlled (missing %s directory). Run dired instead? " dired] 5 (#$ . 33804) (list (svn-read-directory-name "SVN status directory: " nil default-directory nil) current-prefix-arg)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list svn-status-display-new-status-buffer default-boundp set-default nil] 3)
#@53 Examine DIR. See `svn-status' for more information.
(defalias 'svn-status-1 #[(dir &optional arg) "\306!\204 \307\310\"\210\311! \203! \n@\230\204! \312\313!\210)\314\n\"\315\302\"\210\316 \f\230\2037 \317\202= \313\320 p \321\f! \321 ! \322=\211 !\203b \"\203^ \323\202~ \324\202~ \"\203t \203p \325\202~ \323\202~ \203} \326\202~ \324 #\212 q\210\327 \210 q\210 \205\226 \313$ q\210!\203\263 \313 %\330\313\211\331\332&#&)\202\276 \330\313\211\331\332&#&.\207" [dir svn-status-load-state-before-svn-status svn-status-directory-history default-directory svn-status-buffer-name svn-status-display-new-status-buffer file-directory-p error "%s is not a directory" file-name-as-directory svn-status-load-state t delete add-to-list buffer-name nil current-window-configuration get-buffer-create - "-v" "" "-uv" "-u" buffer-disable-undo svn-run status "status" svn-status-initial-window-configuration cur-buf status-buf svn-process-buffer-name proc-buf arg want-edit svn-status-verbose status-option svn-status-remote svn-status-edit-svn-command svn-status-default-status-arguments] 8 (#$ . 35027)])
#@46 Run `svn-status' for the `default-directory'
(defalias 'svn-status-this-directory #[(arg) "\302 \"\207" [default-directory arg svn-status] 3 (#$ . 36172) "P"])
#@81 Interactively select a different directory from `svn-status-directory-history'.
(defalias 'svn-status-use-history #[nil "\306=\211\203 \nA\202 \n\f\307 \" \310!\211 \205( rq\210\230) \311!\203H \203: \312 \202L \204B \313\314!\202L \315\316\"-\207" [major-mode in-status-buffer svn-status-directory-history hist svn-status-completing-read-function dir svn-status-mode "svn-status on directory: " get-buffer file-directory-p svn-status-switch-to-status-buffer once svn-status error "%s is not a directory" svn-status-buffer-name svn-status-buffer default-directory svn-buffer-available svn-status-refresh-info] 4 (#$ . 36339) nil])
(defalias 'svn-had-user-input-since-asynch-run #[nil "\301 \232?\207" [svn-pre-run-asynch-recent-keys recent-keys] 2])
#@96 Convert the given local part of a filename to a full file name to allow accessing remote files
(defalias 'svn-expand-filename-for-remote-access #[(file-name) "\302\303!\203 \303!\203 \303! P\207 \207" [default-directory file-name fboundp file-remote-p] 2 (#$ . 37119)])
#@92 Convert a full file name to a local file name that can be used for a local svn invocation.
(defalias 'svn-local-filename-for-remote-access #[(file-name) "\301\302!\203 \302!\203 \303\304!!\207\207" [file-name fboundp file-remote-p tramp-file-name-localname tramp-dissect-file-name] 3 (#$ . 37399)])
#@146 Construct the environment for the svn process.
It is a combination of `svn-status-svn-environment-var-list' and
the usual `process-environment'.
(defalias 'svn-process-environment #[nil "\306\307 \n\"\306\211 \306\211 \f :\203@ @\310\311\f\"\f\312O\211 \235\2049 B\2039 \f\fB\f A\211\202 \f\237.\207" [found svn-status-svn-environment-var-list process-environment #1=#:--cl-var-- elt has-value nil append string-match "=" 0 name #2=#:--cl-var--] 4 (#$ . 37710)])
#@619 Run svn with arguments ARGLIST.
If RUN-ASYNCHRON is t then run svn asynchronously.
If CLEAR-PROCESS-BUFFER is t then erase the contents of the
`svn-process-buffer-name' buffer before commencing.
CMDTYPE is a symbol such as 'mv, 'revert, or 'add, representing the
command to run.
ARGLIST is a list of arguments (which must include the command name,
for example: '("revert" "file1")
ARGLIST is flattened and any every nil value is discarded.
If the variable `svn-status-edit-svn-command' is non-nil then the user
can edit ARGLIST before running svn.
The hook svn-pre-run-hook allows to monitor/modify the ARGLIST.
(defalias 'svn-run #[(run-asynchron clear-process-buffer cmdtype &rest arglist) "\306!\307\310!\311=\203 \2035 \312@C\313\314\315\316@\"\317\320A\321#\"!\" \322=\203/ \323\322!\210\324\325\n#\210\326\327!\210 \330=\204C \330p\3313! 45 6\311 7@<\203[ @\2124q\210\3328!\204t \324\333p8#\210\334\335\336!!\210\3119\337 \210\340 \210:\203\211 ed|\210\202\214 db\210\n;\311<\315\341\n\"=\342 \210\212\343\344!\210)\345>\346 8E\"\210?\203\351 \347 @\350 \311 A B\351C\31046%7*D\203\326 \3527D\211#\210\3537\354\"\210E\205\3557\356\"\202\350 B\351F6\3114\311&\210)3G\326\357!\210\360=\342 \210\f\205\f\311\211,\207\361\362!\207" [arglist svn-status-edit-svn-command cmdtype mode-line-process svn-pre-run-mode-line-process svn-status-pre-run-svn-buffer svn-status-flatten-list process-status "svn" nil append split-string read-from-minibuffer format "svn %s flags: " mapconcat identity " " t svn-status-toggle-edit-cmd-flag message "svn-run %s: %S" run-hooks svn-pre-run-hook svn-status-mode-line-process get-buffer-create file-executable-p "psvn: workaround in %s needed: %s no longer exists" cd expand-file-name "~" buffer-disable-undo fundamental-mode " running %s" svn-status-update-mode-line sit-for 0.1 ring-insert current-time-string recent-keys svn-process-environment apply set-process-coding-system set-process-sentinel svn-process-sentinel set-process-filter svn-process-filter svn-post-process-svn-output-hook "" error "You can only run one svn process at once!" svn-process-buffer-name proc-buf svn-status-svn-executable svn-exe svn-proc default-directory buffer-read-only clear-process-buffer svn-process-cmd svn-status-last-commit-author svn-status-mode-line-process-status svn-last-cmd-ring run-asynchron svn-pre-run-asynch-recent-keys process-connection-type process-environment svn-start-process-function svn-status-svn-process-coding-system svn-status-track-user-input svn-call-process-function svn-status-last-output-buffer-name] 9 (#$ . 38202)])
#@97 Convert all path separators to UNIX style.
(This is a no-op unless `system-type' is windows-nt)
(defalias 'svn-process-sentinel-fixup-path-seperators #[nil "\301=\205 \212eb\210\302\303\304\305#\205 \306\307!\210\202\n )\207" [system-type windows-nt search-forward "\\" nil t replace-match "/"] 4 (#$ . 40844)])
#@42 Called after a svn process has finished.
(defalias 'svn-process-sentinel #[(process event) "p \203 r\nq\210 )\306\307\f!q\210\310\311 \210@\312\230\203\264\313\314!\210A\315=\203z \316 \210\317 \210\320 \210B\203O \307\f!q\210ed|\210\321c\210Bc\210eb\210\306BC\203^ \212\322C!\210)\306CD\205N\323E!\210\324 \203s \325\326!\202N\327F!\202NA\330=\203\243 \331\330\332\"\210\333G!\210\334 \210\335y\210\336\337!\204\232 \340y\210\341 \210\325\342!\202NA\343=\203\265 \331\343\332\"\210\325\344!\202NA\345=\203\307 \331\343\332\"\210\325\346!\202NA\347=\203\327 \350 \210\325\351!\202NA\352=\203\343 \353 \202NA\354=\203!\331\354\332\"\210\n\203r\nq\210H\355=\204\356 I\333\357G!!\210\360I!\210))r\357G!q\210\361 \210)\325\362!\202NA\363=\203]\316 \210\364 \210\363J\235\2038\365 \210\322\366 !\210\367 \210\313\370!\210\306\211KLM\204U\325\371!\202N\325\372M\"\202NA\373=\203\225\331\373\332\"\210\374 C\367 \210\375 \210N@\203\207\325\376N\211 OA@)\"\202N\325\377N\211 OA@)\"\202NA\201T =\203\255\322\201U !\210\325\201V !\202NA\201W =\203\301\375 \210\325\201X !\202NA\201Y =\203\325\375 \210\325\201Z !\202NA\201[ =\203\351\375 \210\325\201\\ !\202NA\201] =\203\f\201] J\235\203\376\365 \210\367 \210\375 \210\325\201^ !\202NA\201_ =\203 \375 \210\325\201` !\202NA\201a =\2038\322\201U !\210\325\201b !\202NA\201c =\203I\325\201d !\202NA\201e =\203a\331\201e \332\"\210\325\201f !\202NA\201g =\203s\201h P!\202NA\201i =\203\203\201j \202NA\201k =\203\246\364 \210Q\201l \235\203\241\322\201m !\202N\375 \202NA\201n =\205N\375 \202N@\201o \230\203\305\325\201p !\202N\201q \201r @\"\203G\201s \f\201t \201u #\204\321db\210\201v \201w \306\332#\203=\306\211 R S\336\201w !\203%R\204%\201x S\201y \201z \201{ \\\201| \"C\"SoR\201} y\210\202\364\201~ \201 \201\200 \201\201 S!\201\202 #!*\202N\325\201\203 @\"\202N\325\201\204 @\")\207" [act-buf svn-pre-run-mode-line-process svn-status-pre-run-svn-buffer mode-line-process process svn-status-mode-line-process-status nil process-buffer "" svn-status-update-mode-line "finished\n" run-hooks svn-post-process-svn-output-hook status svn-process-sentinel-fixup-path-seperators svn-parse-status-result svn-status-apply-elide-list "Output from svn command:\n" svn-status-update-with-command-list set-window-configuration svn-had-user-input-since-asynch-run message "svn status finished" switch-to-buffer log svn-status-show-process-output t pop-to-buffer svn-log-view-mode 2 looking-at "Changed paths:" 1 font-lock-fontify-buffer "svn log finished" info "svn info finished" ls "svn ls finished" diff svn-status-activate-diff-mode "svn diff finished" parse-info svn-status-parse-info-result blame svn-status-mode svn-line-number-at-pos get-buffer goto-line svn-status-activate-blame-mode "svn blame finished" commit svn-status-remove-temp-file-maybe svn-status-unset-all-usermarks svn-status-parse-commit-output svn-revert-some-buffers svn-log-edit-done-hook "No revision to commit." "svn: Committed revision %s." update svn-status-parse-update-output svn-status-update "svn: Updated to revision %s." "svn: At revision %s." event svn-process-cmd svn-status-update-previous-process-output svn-status-update-list svn-status-display-new-status-buffer svn-status-initial-window-configuration svn-status-buffer-name svn-status-last-output-buffer-name major-mode src-line-number svn-status-unmark-files-after-list svn-status-files-to-commit svn-status-recursive-commit svn-status-commit-rev-number svn-status-update-rev-number x default-directory svn-status-propedit-property-name beginning-of-buffer error-strings add svn-status-parse-ar-output "svn add finished" lock "svn lock finished" unlock "svn unlock finished" mkdir "svn mkdir finished" revert "svn revert finished" resolved "svn resolved finished" rm "svn rm finished" cleanup "svn cleanup finished" proplist "svn proplist finished" checkout svn-status proplist-parse svn-status-property-parse-property-names propset ("svn:keywords") svn-status-parse-property-output propdel "killed\n" "svn process killed" string-match "exited abnormally" accept-process-output 0 100 re-search-backward "^svn: " append buffer-substring-no-properties svn-point-at-bol 5 svn-point-at-eol -1 svn-process-handle-error mapconcat identity reverse "\n" "svn failed: %s" "svn process had unknown event: %s"] 6 (#$ . 41165)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list svn-process-handle-error-msg default-boundp set-default nil] 3)
#@222 A function that will be called with an error string received from the svn client.
When this function resets `svn-process-handle-error-msg' to nil, the default error handling
(just show the error message) is not executed.
(defvar svn-handle-error-function nil (#$ . 45746))
(defalias 'svn-process-handle-error #[(error-msg) "\303\n!\203\f \n!\210 \205 \304\305!)\207" [error-msg svn-process-handle-error-msg svn-handle-error-function functionp electric-helpify svn-process-help-with-error-msg] 2])
(defalias 'svn-process-help-with-error-msg #[nil "\303\304\"\211A@)\211\203 \212\305 \220\306\307\310\n#!\221)\202\" \311\312\")\207" [svn-process-handle-error-msg x help-msg assoc (("Cannot non-recursively commit a directory deletion" "Please unmark all files and position point at the directory you would like to remove.\nThen run commit again.")) svn-help-buffer princ format "svn failed: %s\n\n%s" message "svn failed:\n%s"] 7 nil nil])
#@89 Track the svn process output and ask user questions in the minibuffer when appropriate.
(defalias 'svn-process-filter #[(process str) "\300\213\207" [((byte-code "q\210db\210 c\210\212\305 b\210\306\307!\203# \310\311\312\313\314!\"!\315\n\316\"\210)\306\317!\2033 \320\321\322\217\315 !\210)\306\323!\205H \324 \210\320\325\326\217 \327\f\330\314O!))\207" [svn-process-buffer-name str passwd user-name answer svn-point-at-bol looking-at "Password for '\\(.*\\)': " read-passwd format "Enter svn password for %s: " match-string 1 svn-process-send-string-and-newline t "Username: " nil (byte-code "\301\302\303!)\207" [inhibit-quit nil read-string "Username for svn operation: "] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval #1=(ignore nil)] 2))) "(R)eject, accept (t)emporarily or accept (p)ermanently" svn-status-show-process-buffer (byte-code "\301\302\303!)\207" [inhibit-quit nil read-string "(R)eject, accept (t)emporarily or accept (p)ermanently? "] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval #1#] 2))) svn-process-send-string 0] 5))] 1 (#$ . 46700)])
#@115 Reverts all buffers visiting a file in TREE that aren't modified.
To be run after a commit, an update or a merge.
(defalias 'svn-revert-some-buffers #[(&optional tree) "\306 \206 \307 \310\211\203` \n@r q\210\311 \204X \312 \211\203W \306\313 !!` \211 \203V \230\203V \203V \203B \314 \210\315 !\203V \316p!\204V \317\320\211\"\210\fb\210*))\nA\211\204 +\310\207" [tree buffer #1=#:--cl-dolist-temp-- file point-pos root svn-status-base-dir buffer-list nil buffer-modified-p buffer-file-name file-name-directory svn-status-update-modeline file-exists-p verify-visited-file-modtime revert-buffer t svn-status-auto-revert-buffers svn-status-fancy-file-state-in-modeline] 4 (#$ . 47802) nil])
(defalias 'svn-parse-rev-num #[(str) "\203 ;\203 \302 \303\216\304\305\"*\203 \306!\207\307\207" [str save-match-data-internal match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^[0-9]+" string-to-number -1] 3])
#@999 Make a ui-status structure for a file in a svn working copy.
The initial values in the structure returned by this function
are good for a file or directory that the user hasn't seen before.
The ui-status structure keeps track of how the file or directory
should be displayed in svn-status mode. Updating the svn-status
buffer from the working copy preserves the ui-status if possible.
User commands modify this structure; each file or directory must
thus have its own copy.
Currently, the ui-status is a list (USER-MARK USER-ELIDE).
USER-MARK is non-nil iff the user has marked the file or directory,
typically with `svn-status-set-user-mark'. To read USER-MARK,
call `svn-status-line-info->has-usermark'.
USER-ELIDE is non-nil iff the user has elided the file or directory
from the svn-status buffer, typically with `svn-status-toggle-elide'.
To read USER-ELIDE, call `svn-status-line-info->user-elide'.
Call `svn-status-line-info->ui-status' to access the whole ui-status
structure.
(defalias 'svn-status-make-ui-status #[nil "\300\211D\207" [nil] 2 (#$ . 48794)])
(put 'svn-status-make-ui-status 'byte-optimizer 'byte-compile-inline-expand)
#@96 Calculate additionally necessary directories that were not shown in the output
of 'svn status'
(defalias 'svn-status-make-dummy-dirs #[(dir-list old-ui-information) "\306\211\n\306\211 \2030 \f@\307 !\203) \310\311\312#\307 !\313\302 \"\210\202 \fA\211\204\f ,\314\315\316\n\"\"\207" [base-dir candidate dir-list dir #1=#:--cl-dolist-temp-- svn-status-info nil file-name-directory replace-regexp-in-string "/+$" "" add-to-list append mapcar #[(dir) "\302\303 \"\"\207" [dir old-ui-information svn-status-make-line-info gethash] 5]] 5 (#$ . 49957)])
#@217 Create a new line-info from the given arguments
Anything left nil gets a sensible default.
nb: LOCKED-MARK refers to the kind of locks you get after an error,
LOCKED-REPO-MARK is the kind managed with `svn lock'
(defalias 'svn-status-make-line-info #[(&optional path ui file-mark prop-mark local-rev last-change-rev author update-mark locked-mark with-history-mark switched-mark locked-repo-mark psvn-extra-info) "\206 \306\211D \206\f \307\n\206 \307 \206 \310\f\206 \307\206 \307 \206& \310\n \f\257\207" [ui file-mark prop-mark path local-rev last-change-rev nil 32 "" author update-mark locked-mark with-history-mark switched-mark locked-repo-mark psvn-extra-info] 13 (#$ . 50527)])
#@306 A list of svn user names that include blanks.
To add support for the names "feng shui" and "mister blank", place the following in your .emacs:
(setq svn-user-names-including-blanks '("feng shui" "mister blank"))
(add-hook 'svn-pre-parse-status-hook 'svn-status-parse-fixup-user-names-including-blanks)
(defvar svn-user-names-including-blanks nil (#$ . 51243))
#@360 Helper function to allow user names that include blanks.
Add this function to the `svn-pre-parse-status-hook'. The variable
`svn-user-names-including-blanks' must be configured to hold all user names that contain
blanks. This function replaces the blanks with '-' to allow further processing with
the usual parsing functionality in `svn-parse-status-result'.
(defalias 'svn-status-parse-fixup-user-names-including-blanks #[nil "\2050 eb\210\303\304\305\306#\307Q\310 \311\216\212\312 d\313#\205/ \314\315\316\317\320\321!#\322\211\211\321%\210\202 ,\207" [svn-user-names-including-blanks search-string save-match-data-internal " \\(" mapconcat concat "\\|" "\\) " match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward t replace-match replace-regexp-in-string " " "-" match-string 1 nil] 6 (#$ . 51613)])
#@107 Parse the `svn-process-buffer-name' buffer.
The results are used to build the `svn-status-info' variable.
(defalias 'svn-parse-status-result #[nil "\306\212\307 \306\211\211\211\211\211\211\211\211\211\211\211\211 \n \203$ \f\203 \310\202- \311\202- \f\203, \310\202- \312\313\314\315\316\"\306 @ A B C D E F G H I J K L M N O P Q RSq\210\306T\317\320!\210eb\210`dW\203h\321 \322 U\204b\323\324!\203\207 \204b\325\326!\202b\323\327!\203\267 \326\306 U\211 V\224\205\262 U\203\252 \330UV\224V\225#\202\262 \331V\224V\225\"*\202b\323\332!\204b``B\\{\211Q\333\234PQ\326\234OQ\334\234NQ\335\234LQ\336\234KQ\337\234M\f\203\362 Q\312\234JO\340=\203\374 \306ON\340=\203\306NL\340=\203\306LK\340=\203\306KJ\340=\203$\306JM\340=\203.\306MBu\210\341\306w\210\323\342!\203W\343\325\326!!I\343\325\334!!H\325\335!G\325\336!F\202\230\323\344!\203r\343\325\326!!I\345H\346G\325\334!F\202\230\323\347!\203\224\325\326!F\345\211IHP\350=\203\216\351\202\217\346G\202\230\352\353!\210F\204\240\354F\355F!E \204\304E\203\304\356E!\211 WA\235\204\303WABA)\203F\230\203\357F@\"\211 X\203\376\360XI\"\210\361XH\"\210\362XG\"\210\363\335\364FX$\210\306\202\365\366F\"\210)\202-\367F\357FR\"POIHGJNLKM\306&TBTP\350=\203J\370\325\326!T@@#\210\363\335\371\325\326!T@$\210D\372I!G]\372H!G]DCGG]C\326y\210\202h \204t\373AR\"TD\211\\C\\Y\203\204\335\202\205\333\\\311\\Z\374\375D\211C$[T\237T\\\205\246\376T\377\"\211T.\207" [svn-status-head-revision svn-status-default-revision-width svn-status-default-author-width svn-status-verbose svn-status-remote skip-double-external-dir-entry-name nil svn-status-ui-information-hash-table 8 6 7 (".") make-hash-table :test equal run-hooks svn-pre-parse-status-hook svn-point-at-eol svn-point-at-bol looking-at "Status against revision:[ ]+\\([0-9]+\\)" match-string 1 "Performing status on external item at '\\(.*\\)'" substring-no-properties buffer-substring-no-properties "--- Changelist" 0 2 3 4 5 32 " " "\\([-?]\\|[0-9]+\\) +\\([-?]\\|[0-9]+\\) +\\([^ ]+\\) *\\(.+\\)$" svn-parse-rev-num "\\([-?]\\|[0-9]+\\) +\\([^ ]+\\)$" -1 "?" "\\(.*\\)" 88 "" error "Unknown status line format" "." file-name-directory directory-file-name gethash svn-status-line-info->set-localrev svn-status-line-info->set-lastchangerev svn-status-line-info->set-author svn-status-message "merging entry for %s to %s" message "psvn: %s not handled correct, please report this case." svn-status-make-line-info svn-puthash "found external: %s %S" number-to-string svn-status-make-dummy-dirs format " %%c%%c%%c %%%ds %%%ds %%-%ds" sort svn-status-sort-predicate externals-map dir-set svn-marks-length author-width revision-width dir path author last-change-rev local-rev svn-update-mark svn-switched-mark svn-with-history-mark svn-repo-locked-mark svn-wc-locked-mark svn-property-mark svn-file-mark svn-marks old-ui-information svn-process-buffer-name svn-status-info string num dirname info svn-status-short-mod-flag-p svn-status-default-column svn-status-line-format svn-status-sort-status-buffer] 22 (#$ . 52490)])
#@107 Return t if A should appear before B in the `svn-status-buffer-name' buffer.
A and B must be line-info's.
(defalias 'svn-status-sort-predicate #[(a b) "\302!\303P\302 !\303P\231\207" [a b svn-status-line-info->full-path "/"] 3 (#$ . 55666)])
#@69 Remove any (no longer required) temporary files created by psvn.el.
(defalias 'svn-status-remove-temp-file-maybe #[nil "\205 \302!\203 \303!\210\302 !\203 \303 !\210\304\211\207" [svn-status-temp-file-to-remove svn-status-temp-arg-file file-exists-p delete-file nil] 2 (#$ . 55915)])
#@47 Remove ^M at end of line in the whole buffer.
(defalias 'svn-status-remove-control-M #[nil "\302\303 \304\216\212eb\210\305\306d\307#\205 \310\311\302\211#\210\202 ,\207" [buffer-read-only save-match-data-internal nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "$" t replace-match ""] 4 (#$ . 56212) nil])
#@75 Helper function to handle tramp connections stopping with an exit output.
(defalias 'svn-fixup-tramp-exit #[nil "db\210\300 \301 =\203 \302y\210\303 \210\304\305!\205 `\301 |\207" [svn-point-at-bol svn-point-at-eol -1 beginning-of-line looking-at "exit"] 2 (#$ . 56601)])
#@46 Fixup leftover output when running via tramp
(defalias 'svn-fixup-tramp-output-maybe #[nil "\301\302!\205 \302!\205 \303 \207" [default-directory fboundp file-remote-p svn-fixup-tramp-exit] 2 (#$ . 56881)])
(byte-code "\300\301\302\217\207" [nil (byte-code "\300\301\302\303#\207" [easy-menu-add-item nil ("tools") ["SVN Status" svn-status t]] 4) ((error (message "psvn: could not install menu")))] 3)
#@43 Keymap used in `svn-status-mode' buffers.
(defvar svn-status-mode-map nil (#$ . 57292))
(put 'svn-status-mode-map 'risky-local-variable t)
#@56 Subkeymap used in `svn-status-mode' for mark commands.
(defvar svn-status-mode-mark-map nil (#$ . 57437))
(put 'svn-status-mode-mark-map 'risky-local-variable t)
#@60 Subkeymap used in `svn-status-mode' for property commands.
(defvar svn-status-mode-property-map nil (#$ . 57605))
(put 'svn-status-mode-property-map 'risky-local-variable t)
#@58 Subkeymap used in `svn-status-mode' for option commands.
(defvar svn-status-mode-options-map nil (#$ . 57785))
(put 'svn-status-mode-options-map 'risky-local-variable t)
#@70 Subkeymap used in `svn-status-mode' for trac issue tracker commands.
(defvar svn-status-mode-trac-map nil (#$ . 57961))
(put 'svn-status-mode-trac-map 'risky-local-variable t)
#@68 Subkeymap used in `svn-status-mode' for some seldom used commands.
(defvar svn-status-mode-extension-map nil (#$ . 58143))
(put 'svn-status-mode-extension-map 'risky-local-variable t)
#@61 Subkeymap used in `svn-status-mode' for branching commands.
(defvar svn-status-mode-branch-map nil (#$ . 58333))
(put 'svn-status-mode-extension-map 'risky-local-variable t)
#@58 Subkeymap used in `svn-status-mode' for search commands.
(defvar svn-status-mode-search-map nil (#$ . 58513))
(byte-code "\306\302\307\310#\210\204\307\311 \312!\210\313\314\315#\210\313\316\317#\210\313\320\321#\210\313\322\323#\210\313\324\325#\210\313\326\327#\210\313\330\331#\210\313\332\333#\210\313\334\335#\210\313\336\337#\210\313\340\341#\210\313\342\341#\210\313\343\344#\210\313\345\346#\210\313\347\350#\210\313\351\352#\210\313\353\354#\210\313\355\356#\210\313\357\360\235\203\211 \361\202\212 \357\362#\210\313\363\364#\210\313\365\366#\210\313\367\370#\210\313\371\372#\210\313\373\374#\210\313\375\376#\210\313\377\201B #\210\313\201C \201D #\210\313\201E \201F #\210\313\201G \201H #\210\313\201I \201J #\210\313\201K \201L #\210\313\201M \201N #\210\313\201O \201P #\210\313\201Q \201R #\210\313\201S \201T #\210\313\201U \201V #\210\313\201W \201X #\210\313\201Y \201Z #\210\313\201[ \201Z #\210\313\201\\ \201] #\210\313\201^ \201_ #\210\313\201` \201a #\210\313\201b \201c #\210\313\201d \201e #\210\313\201f \201g #\210\313\201h \201i #\210\313\201j \201k #\210\313\201l \201m #\210\313\201n \201o #\210\313\201p \201m #\210\313\201q \201o #\210\313\201r \201s #\210\313\201t \201u #\210 \204D\311 \313\201v #\210\313 \201w \356#\210\313 \375\201x #\210\313 \201G \201y #\210\313 \201z \201{ #\210\313 \201| \201} #\210\313 \201O \201~ #\210\313 \201v \201 #\210\313 \367\201\200 #\210\313 \201\201 \201\202 #\210\313 \322\201\203 #\210\313 \201^ \201\204 #\210\313 \353\201g #\210\n\204c\311 \313\n\340\201\205 #\210\313\n\322\201\206 #\210\313\201\207 \n#\210 \204\311 \313 \201^ \201\210 #\210\313 \322\201\211 #\210\313 \201\212 \201\213 #\210\313 \336\201\214 #\210\313 \201` \201\215 #\210\313 \371\201\216 #\210\313 \201\217 \201\220 #\210\313 \201\221 \201\220 #\210\313 \201\222 \201\223 #\210\313 \201U \201\224 #\210\313 \201\225 \201\226 #\210\313 \201\227 \201\230 #\210\313 \201\231 \201\232 #\210\313 \345\201\233 #\210\313 \351\201\234 #\210\313 \314\201\235 #\210\313\201| #\210\f\204/\311 \313\f\334\201\236 #\210\313\f\201\237 \201\240 #\210\313\f\336\201\241 #\210\313\201\237 \f#\210\204\220\311 \313\322\201\242 #\210\313\201^ \201\243 #\210\313\345\201\244 #\210\313\334\201\245 #\210\313\326\201\246 #\210\313\201\247 \201\250 #\210\313\201l \201\251 #\210\313\201Q \201\252 #\210\313\201b \201\253 #\210\313\201\254 #\210@\204\351\311 @\313@\365\201\255 #\210\313@\201\247 \201\256 #\210\313@\351\201\257 #\210\313@\201\\ \201\260 #\210\313@\322\201\261 #\210\313@\201` \201\262 #\210\313@\201Q \201\263 #\210\313\201\264 @#\210A\204\311 A\313A\201\212 \201\265 #\210\313\201\266 A#\210\306\207" [svn-status-mode-map svn-status-mode-mark-map svn-status-mode-search-map svn-status-mode-property-map svn-status-mode-extension-map svn-status-mode-options-map put risky-local-variable t make-sparse-keymap suppress-keymap define-key "" svn-status-find-file-or-examine-directory [mouse-2] svn-status-mouse-find-file-or-examine-directory "^" svn-status-examine-parent "s" svn-status-show-process-buffer "h" svn-status-pop-to-partner-buffer "f" svn-status-find-files "o" svn-status-find-file-other-window "" svn-status-find-file-other-window-noselect "v" svn-status-view-file-other-window "e" svn-status-toggle-edit-cmd-flag "g" svn-status-update [134217843] "q" svn-status-bury-buffer "x" svn-status-redraw-status-buffer "H" svn-status-use-history "m" svn-status-set-user-mark "u" svn-status-unset-user-mark "\377" svn-status-unset-all-usermarks "" ([(delete)] [delete]) [(backspace)] svn-status-unset-user-mark-backwards "$" svn-status-toggle-elide "w" svn-status-copy-current-line-info "." svn-status-goto-root-or-return "I" svn-status-parse-info "V" svn-status-svnversion "?" svn-status-toggle-hide-unknown "_" svn-status-mode-trac-map svn-status-mode-branch-map svn-status-toggle-hide-unmodified "z" svn-status-toggle-hide-externals "a" svn-status-add-file "A" svn-status-add-file-recursively "+" svn-status-make-directory "R" svn-status-mv "C" svn-status-cp "D" svn-status-rm "c" svn-status-commit [134217827] svn-status-cleanup "k" svn-status-lock "K" svn-status-unlock "U" svn-status-update-cmd [134217845] "r" svn-status-revert "l" svn-status-show-svn-log "i" svn-status-info "b" svn-status-blame "=" svn-status-show-svn-diff [67108925] svn-status-show-svn-diff-for-marked-files "~" svn-status-get-specific-revision "E" svn-status-ediff-with-revision "n" svn-status-next-line "p" svn-status-previous-line [down] [up] "\n" svn-status-dired-jump [down-mouse-3] svn-status-popup-menu "*" "!" svn-status-mark-unknown svn-status-mark-added "M" svn-status-mark-modified "P" svn-status-mark-modified-properties svn-status-mark-deleted svn-status-mark-changed svn-status-mark-by-file-ext "%" svn-status-mark-filename-regexp svn-status-store-usermarks svn-status-load-usermarks svn-status-grep-files svn-status-search-files "S" svn-status-property-list svn-status-property-set "d" svn-status-property-delete svn-status-property-edit-one-entry svn-status-property-ignore-file svn-status-property-ignore-file-extension [(control 105)] svn-status-property-edit-svn-ignore " " "Xe" svn-status-property-edit-svn-externals svn-status-property-set-keyword-list "Ki" svn-status-property-set-keyword-id "Kd" svn-status-property-set-keyword-date "y" svn-status-property-set-eol-style svn-status-property-set-executable svn-status-property-set-mime-type svn-status-select-line svn-status-resolved "X" svn-status-resolve-conflicts svn-status-export svn-status-save-state svn-status-load-state svn-status-toggle-sort-status-buffer svn-status-toggle-svn-verbose-flag svn-status-toggle-display-full-path "t" svn-status-set-trac-project-root svn-status-set-module-name svn-status-set-changelog-style svn-status-set-branch-list "O" svn-trac-browse-wiki svn-trac-browse-timeline svn-trac-browse-roadmap svn-trac-browse-report svn-trac-browse-source svn-trac-browse-ticket svn-trac-browse-changeset "T" svn-branch-diff "B"] 4)
#@24 'svn-status-mode' menu
(defvar svn-status-mode-menu nil (#$ . 64579))
(easy-menu-do-define 'svn-status-mode-menu svn-status-mode-map "'svn-status-mode' menu" '("SVN" ["svn status" svn-status-update t] ["svn update" svn-status-update-cmd t] ["svn commit" svn-status-commit t] ["svn log" svn-status-show-svn-log t] ["svn info" svn-status-info t] ["svn blame" svn-status-blame t] ("Diff" ["svn diff current file" svn-status-show-svn-diff t] ["svn diff marked files" svn-status-show-svn-diff-for-marked-files t] ["svn ediff current file" svn-status-ediff-with-revision t] ["svn resolve conflicts" svn-status-resolve-conflicts]) ("Search" ["Grep marked files" svn-status-grep-files t] ["Search marked files" svn-status-search-files t]) ["svn cat ..." svn-status-get-specific-revision t] ["svn add" svn-status-add-file t] ["svn add recursively" svn-status-add-file-recursively t] ["svn mkdir..." svn-status-make-directory t] ["svn mv..." svn-status-mv t] ["svn cp..." svn-status-cp t] ["svn rm..." svn-status-rm t] ["svn export..." svn-status-export t] ["Up Directory" svn-status-examine-parent t] ["Elide Directory" svn-status-toggle-elide t] ["svn revert" svn-status-revert t] ["svn resolved" svn-status-resolved t] ["svn cleanup" svn-status-cleanup t] ["svn lock" svn-status-lock t] ["svn unlock" svn-status-unlock t] ["Show Process Buffer" svn-status-show-process-buffer t] ("Branch" ["diff" svn-branch-diff t] ["Set Branch list" svn-status-set-branch-list t]) ("Property" ["svn proplist" svn-status-property-list t] ["Set Multiple Properties..." svn-status-property-set t] ["Edit One Property..." svn-status-property-edit-one-entry t] ["svn propdel..." svn-status-property-delete t] "---" ["svn:ignore File..." svn-status-property-ignore-file t] ["svn:ignore File Extension..." svn-status-property-ignore-file-extension t] ["Edit svn:ignore Property" svn-status-property-edit-svn-ignore t] "---" ["Edit svn:externals Property" svn-status-property-edit-svn-externals t] "---" ["Edit svn:keywords List" svn-status-property-set-keyword-list t] ["Add/Remove Id to/from svn:keywords" svn-status-property-set-keyword-id t] ["Add/Remove Date to/from svn:keywords" svn-status-property-set-keyword-date t] "---" ["Select svn:eol-style" svn-status-property-set-eol-style t] ["Set svn:executable" svn-status-property-set-executable t] ["Set svn:mime-type" svn-status-property-set-mime-type t]) ("Options" ["Save Options" svn-status-save-state t] ["Load Options" svn-status-load-state t] ["Set Trac project root" svn-status-set-trac-project-root t] ["Set Short module name" svn-status-set-module-name t] ["Set Changelog style" svn-status-set-changelog-style t] ["Set Branch list" svn-status-set-branch-list t] ["Sort the *svn-status* buffer" svn-status-toggle-sort-status-buffer :style toggle :selected svn-status-sort-status-buffer] ["Use -v for svn status calls" svn-status-toggle-svn-verbose-flag :style toggle :selected svn-status-verbose] ["Display full path names" svn-status-toggle-display-full-path :style toggle :selected svn-status-display-full-path]) ("Trac" ["Browse wiki" svn-trac-browse-wiki t] ["Browse timeline" svn-trac-browse-timeline t] ["Browse roadmap" svn-trac-browse-roadmap t] ["Browse source" svn-trac-browse-source t] ["Browse report" svn-trac-browse-report t] ["Browse ticket" svn-trac-browse-ticket t] ["Browse changeset" svn-trac-browse-changeset t] ["Set Trac project root" svn-status-set-trac-project-root t]) "---" ["Edit Next SVN Cmd Line" svn-status-toggle-edit-cmd-flag t] ["Work Directory History..." svn-status-use-history t] ("Mark / Unmark" ["Mark" svn-status-set-user-mark t] ["Unmark" svn-status-unset-user-mark t] ["Unmark all" svn-status-unset-all-usermarks t] "---" ["Mark/Unmark unknown" svn-status-mark-unknown t] ["Mark/Unmark modified" svn-status-mark-modified t] ["Mark/Unmark modified properties" svn-status-mark-modified-properties t] ["Mark/Unmark added" svn-status-mark-added t] ["Mark/Unmark deleted" svn-status-mark-deleted t] ["Mark/Unmark modified/added/deleted" svn-status-mark-changed t] ["Mark/Unmark filename by extension" svn-status-mark-by-file-ext t] ["Mark/Unmark filename by regexp" svn-status-mark-filename-regexp t] ["Store Usermarks" svn-status-store-usermarks t] ["Load Usermarks" svn-status-load-usermarks t]) ["Hide Unknown" svn-status-toggle-hide-unknown :style toggle :selected svn-status-hide-unknown] ["Hide Unmodified" svn-status-toggle-hide-unmodified :style toggle :selected svn-status-hide-unmodified] ["Hide Externals" svn-status-toggle-hide-externals :style toggle :selected svn-status-hide-externals] ["Show Client versions" svn-status-version t] ["Prepare bug report" svn-prepare-bug-report t]))
#@52 A list of menu entries for `svn-status-popup-menu'
(defvar svn-status-file-popup-menu-list '(["open" svn-status-find-file-other-window t] ["svn diff" svn-status-show-svn-diff t] ["svn commit" svn-status-commit t] ["svn log" svn-status-show-svn-log t] ["svn blame" svn-status-blame t] ["mark" svn-status-set-user-mark t] ["unmark" svn-status-unset-user-mark t] ["svn add" svn-status-add-file t] ["svn add recursively" svn-status-add-file-recursively t] ["svn mv..." svn-status-mv t] ["svn rm..." svn-status-rm t] ["svn lock" svn-status-lock t] ["svn unlock" svn-status-unlock t] ["svn info" svn-status-info t]) (#$ . 69252))
#@36 Display a file specific popup menu
(defalias 'svn-status-popup-menu #[(event) "\305!\210\306 \307 ! \2053 \310\304\311\312#\210\313\304!\204 \314\304\312\"\210\315\304\312\211\316\nC \"$\210\317\320\321 \322 \f$*\207" [event line-info name svn-status-file-popup-menu-list svn-status-actual-popup-menu mouse-set-point svn-status-get-line-information svn-status-line-info->filename put variable-documentation nil default-boundp set-default easy-menu-do-define append svn-status-face-set-temporary-during-popup svn-status-marked-popup-face svn-point-at-bol svn-point-at-eol] 7 (#$ . 69882) "e"])
#@94 Put FACE on BEGIN and END in the buffer during Popup MENU.
PREFIX is passed to `popup-menu'.
(defalias 'svn-status-face-set-temporary-during-popup #[(face begin end menu &optional prefix) "\306\307\216\310 \n\"\311\303 #\210\212\312\313!\210)\314\f\"*\207" [o begin end face menu prefix nil ((delete-overlay o)) make-overlay overlay-put sit-for 0 popup-menu] 4 (#$ . 70485)])
#@445 Major mode used by psvn.el to display the output of "svn status".
The Output has the following format:
FPH BASE CMTD Author em File
F = Filemark
P = Property mark
H = History mark
BASE = local base revision
CMTD = last committed revision
Author = author of change
em = "**" or "(Update Available)" [see `svn-status-short-mod-flag-p']
if file can be updated
File = path/filename
The following keys are defined:
\{svn-status-mode-map}
(defalias 'svn-status-mode #[nil "\306 \210\307!\210\310 !\210\311\312\313\314\315!\210\316 \317\320!)\207" [svn-status-mode-map svn-status-mode-menu major-mode mode-name mode-line-process view-read-only kill-all-local-variables use-local-map easy-menu-add svn-status-mode "svn-status" svn-status-mode-line-process run-hooks svn-status-mode-hook nil toggle-read-only 1] 2 (#$ . 70872) nil])
(defalias 'svn-status-update-mode-line #[nil " P\303 \207" [svn-status-mode-line-process-edit-flag svn-status-mode-line-process-status svn-status-mode-line-process force-mode-line-update] 2])
#@313 Bury the buffers used by psvn.el
Currently this is:
`svn-status-buffer-name'
`svn-process-buffer-name'
`svn-log-edit-buffer-name'
*svn-property-edit*
*svn-log*
*svn-info*
When called with a prefix argument, ARG, switch back to the window configuration that was
in use before `svn-status' was called.
(defalias 'svn-status-bury-buffer #[(arg) "\203\f \2055 \306 !\207\n\307\310\311 \257\211 \203+ \312\f@!\203$ \313\f@!\210\fA\211\204 \314 \230\2054 \313 )\207" [arg svn-status-initial-window-configuration svn-log-edit-buffer-name svn-process-buffer-name bl svn-status-buffer-name set-window-configuration "*svn-property-edit*" "*svn-log*" "*svn-info*" get-buffer bury-buffer buffer-name] 6 (#$ . 71912) "P"])
#@100 Save all buffers visiting a file in TREE.
If TREE is not given, try `svn-status-base-dir' as TREE.
(defalias 'svn-status-save-some-buffers #[(&optional tree) "\306\307 \206 \204 \310\311!\210\312 \313\211\203Z @r\nq\210\314 \203R \315 \211 \203Q \307\316\f!!\211 \203P \230\203P \317\320\321 \322Q!\204M \313\211\203P \323 \210))) A\211\204 * *\207" [tree ok buffer #1=#:--cl-dolist-temp-- file root t svn-status-base-dir error "Not in a svn project tree" buffer-list nil buffer-modified-p buffer-file-name file-name-directory y-or-n-p "Save buffer " buffer-name "? " save-buffer] 5 (#$ . 72647) nil])
#@95 Open selected file(s) for editing.
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-find-files #[nil "\301\302\303 \"\304\305\")\207" [fnames mapcar svn-status-line-info->full-path svn-status-marked-files mapc find-file] 3 (#$ . 73270) nil])
#@48 Open the file in the other window for editing.
(defalias 'svn-status-find-file-other-window #[nil "\300 \210\301\302\303 !!\207" [svn-status-ensure-cursor-on-file find-file-other-window svn-status-line-info->filename svn-status-get-line-information] 3 (#$ . 73552) nil])
#@69 Open the file in the other window for editing, but don't select it.
(defalias 'svn-status-find-file-other-window-noselect #[nil "\300 \210\301\302\303\304 !!!\207" [svn-status-ensure-cursor-on-file display-buffer find-file-noselect svn-status-line-info->filename svn-status-get-line-information] 4 (#$ . 73829) nil])
#@48 Open the file in the other window for viewing.
(defalias 'svn-status-view-file-other-window #[nil "\300 \210\301\302\303 !!\207" [svn-status-ensure-cursor-on-file view-file-other-window svn-status-line-info->filename svn-status-get-line-information] 3 (#$ . 74152) nil])
#@92 If point is on a directory, run `svn-status' on that directory.
Otherwise run `find-file'.
(defalias 'svn-status-find-file-or-examine-directory #[nil "\301 \210\302 \303!\203 \304\305!!\202 \306\307!!)\207" [line-info svn-status-ensure-cursor-on-file svn-status-get-line-information svn-status-line-info->directory-p svn-status svn-status-line-info->full-path find-file svn-status-line-info->filename] 3 (#$ . 74429) nil])
#@58 Run `svn-status' on the parent of the current directory.
(defalias 'svn-status-examine-parent #[nil "\300\301\302!!\207" [svn-status expand-file-name "../"] 3 (#$ . 74864) nil])
#@131 Move point to where EVENT occurred, and do `svn-status-find-file-or-examine-directory'
EVENT could be "mouse clicked" or similar.
(defalias 'svn-status-mouse-find-file-or-examine-directory #[(event) "\301!\210\302 \207" [event mouse-set-point svn-status-find-file-or-examine-directory] 2 (#$ . 75049) "e"])
#@115 Return the ui-status structure of LINE-INFO.
See `svn-status-make-ui-status' for information about the ui-status.
(defalias 'svn-status-line-info->ui-status #[(line-info) "@\207" [line-info] 1 (#$ . 75364)])
(defalias 'svn-status-line-info->has-usermark #[(line-info) "@@\207" [line-info] 1])
(defalias 'svn-status-line-info->user-elide #[(line-info) "@A@\207" [line-info] 1])
(defalias 'svn-status-line-info->filemark #[(line-info) "A@\207" [line-info] 1])
(defalias 'svn-status-line-info->propmark #[(line-info) "\3018\207" [line-info 2] 2])
(defalias 'svn-status-line-info->filename #[(line-info) "\3018\207" [line-info 3] 2])
(defalias 'svn-status-line-info->filename-nondirectory #[(line-info) "\301\302!!\207" [line-info file-name-nondirectory svn-status-line-info->filename] 3])
(defalias 'svn-status-line-info->localrev #[(line-info) "\3018\302Y\205 \3018\207" [line-info 4 0] 2])
#@59 Return the last revision in which LINE-INFO was modified.
(defalias 'svn-status-line-info->lastchangerev #[(line-info) "\3028\211\205 \303Y\205 )\207" [line-info l 5 0] 3 (#$ . 76269)])
#@80 Return the last author that changed the item that is represented in LINE-INFO.
(defalias 'svn-status-line-info->author #[(line-info) "\3018\207" [line-info 6] 2 (#$ . 76467)])
#@142 Return whether LINE-INFO is out of date.
In other words, whether there is a newer version available in the
repository than the working copy.
(defalias 'svn-status-line-info->update-available #[(line-info) "\3018\207" [line-info 7] 2 (#$ . 76651)])
#@231 Return whether LINE-INFO represents a locked file.
This is column three of the `svn status' output.
The result will be nil or "L".
(A file becomes locked when an operation is interrupted; run \[svn-status-cleanup]'
to unlock it.)
(defalias 'svn-status-line-info->locked #[(line-info) "\3018\207" [line-info 8] 2 (#$ . 76907)])
#@146 Mark from column four of output from `svn status'.
This will be nil unless the file is scheduled for addition with
history, when it will be "+".
(defalias 'svn-status-line-info->historymark #[(line-info) "\3018\207" [line-info 9] 2 (#$ . 77242)])
#@151 Return whether LINE-INFO is switched relative to its parent.
This is column five of the output from `svn status'.
The result will be "S", "X" or nil.
(defalias 'svn-status-line-info->switched #[(line-info) "\3018\207" [line-info 10] 2 (#$ . 77497)])
#@159 Return whether LINE-INFO contains some locking information.
This is column six of the output from `svn status'.
The result will be "K", "O", "T", "B" or nil.
(defalias 'svn-status-line-info->repo-locked #[(line-info) "\3018\207" [line-info 11] 2 (#$ . 77755)])
#@155 Return a list of extra information for psvn associated with LINE-INFO.
This list holds currently only one element:
* The action after a commit or update.
(defalias 'svn-status-line-info->psvn-extra-info #[(line-info) "\3018\207" [line-info 12] 2 (#$ . 78024)])
#@43 Return whether the line is visible or not
(defalias 'svn-status-line-info->is-visiblep #[(line-info) "\301!\206 \302!\206 \303!\206 \304!\206 \305!?\206( \306!\206( \307!\207" [line-info svn-status-line-info->hide-because-unknown svn-status-line-info->hide-because-unmodified svn-status-line-info->hide-because-externals svn-status-line-info->hide-because-custom-hide-function svn-status-line-info->hide-because-user-elide svn-status-line-info->update-available svn-status-line-info->psvn-extra-info] 2 (#$ . 78292)])
(defalias 'svn-status-line-info->hide-because-unknown #[(line-info) "\205 \302 !\303=\207" [svn-status-hide-unknown line-info svn-status-line-info->filemark 63] 2])
(defalias 'svn-status-line-info->hide-because-externals #[(line-info) "\205 \302 !\303=\207" [svn-status-hide-externals line-info svn-status-line-info->filemark 88] 2])
(defalias 'svn-status-line-info->hide-because-custom-hide-function #[(line-info) "\205 \302 C\"\207" [svn-status-custom-hide-function line-info apply] 3])
(defalias 'svn-status-line-info->hide-because-unmodified #[(line-info) "\205) \302 !\303=\204 \302 !\304=\205) \305 !\303=\206) \305 !\304=\206) \305 !\306=\207" [svn-status-hide-unmodified line-info svn-status-line-info->filemark 95 32 svn-status-line-info->propmark nil] 2])
(defalias 'svn-status-line-info->hide-because-user-elide #[(line-info) "\301!\302=\207" [line-info svn-status-line-info->user-elide t] 2])
(defalias 'svn-status-line-info->show-user-elide-continuation #[(line-info) "\301!\302=\207" [line-info svn-status-line-info->user-elide directory] 2])
(defalias 'svn-status-line-info->set-filemark #[(line-info value) "A \240\207" [line-info value] 2])
(defalias 'svn-status-line-info->set-propmark #[(line-info value) "AA \240\207" [line-info value] 2])
(defalias 'svn-status-line-info->set-localrev #[(line-info value) "\302\233 \240\207" [line-info value 4] 2])
(defalias 'svn-status-line-info->set-author #[(line-info value) "\302\233 \240\207" [line-info value 6] 2])
(defalias 'svn-status-line-info->set-lastchangerev #[(line-info value) "\302\233 \240\207" [line-info value 5] 2])
(defalias 'svn-status-line-info->set-repo-locked #[(line-info value) "\302\233 \240\207" [line-info value 11] 2])
(defalias 'svn-status-line-info->set-psvn-extra-info #[(line-info value) "\302\233 \240\207" [line-info value 12] 2])
#@158 Copy the current file name at point, using `svn-status-copy-filename-as-kill'.
If no file is at point, copy everything starting from ':' to the end of line.
(defalias 'svn-status-copy-current-line-info #[(arg) "\303 \203 \304!\207\212\305 b\210\306\307!\205V \310\311\312\211\224\2052 \203, \313 \n\224\n\225#\2022 \314\n\224\n\225\"*!\210\315\316\311\312\211\224\205T \203N \313 \n\224\n\225#\202T \314\n\224\n\225\"*\")\207" [arg string num svn-status-get-line-information svn-status-copy-filename-as-kill svn-point-at-bol looking-at ".+?: *\\(.+\\)$" kill-new 1 nil substring-no-properties buffer-substring-no-properties message "Copied: %s"] 7 (#$ . 80671) "P"])
#@109 Copy the actual file name to the kill-ring.
When called with the prefix argument 0, use the full path name.
(defalias 'svn-status-copy-filename-as-kill #[(arg) "\302=\203 \303\304 !\202 \305\304 !\306 !\210\307\310 \")\207" [arg str 0 svn-status-line-info->full-path svn-status-get-line-information svn-status-line-info->filename kill-new message "Copied %s"] 3 (#$ . 81353) "P"])
#@41 Return a list of subdirectories for DIR
(defalias 'svn-status-get-child-directories #[(&optional dir) "\306\206 \307\310 !!\311P\312\211\f\312 \211 \203C @\313!\203: \314!\315\n! \230\203: \316\301\317\314!!\320#\210A\211\204 * +\207" [dir sub-dir-list test-dir this-dir svn-status-info line-info expand-file-name svn-status-line-info->filename svn-status-get-line-information "/" nil svn-status-line-info->directory-p svn-status-line-info->full-path file-name-directory add-to-list file-relative-name t #1=#:--cl-dolist-temp--] 6 (#$ . 81744) nil])
#@153 Toggle eliding of the current file or directory.
When called with a prefix argument, toggle the hiding of all subdirectories for the current directory.
(defalias 'svn-status-toggle-elide #[(arg) "\2035 \306\307 !\310\307 !\203 \311\312!\210\313 \312\211\203/ @\314\n!\210\311\312!\210 A\211\204 *\314 !)\207\f\312\306\307 !\312\211\315\312 \235\203_ \316 \"\202e \317\320 \"\210 \321\230\203o \322 G \203\353 \306 @!\211 G\211 Y\203\342 \323 O \230\203\342 \321\230\204\261 U\203\305 \324 @!\203\305 \325\326 \"\210\310 @!?\211\205\304 \327 \235\203\331 \204\331 \316 \"\330 @!A\240\210 A\211 \204y .\331 \207" [arg cur-line dir-name #1=#:--cl-dolist-temp-- svn-status-info elide-mark svn-status-line-info->filename svn-status-get-line-information svn-status-line-info->user-elide svn-status-toggle-elide nil svn-status-get-child-directories svn-status-goto-file-name t delete add-to-list svn-status-elided-list "." "" 0 svn-status-line-info->directory-p message "Elided directory %s and all its files." directory svn-status-line-info->ui-status svn-status-update-buffer new-elide-mark len-fname len-test test fname st-info] 8 (#$ . 82319) "P"])
#@64 Elide files/directories according to `svn-status-elided-list'.
(defalias 'svn-status-apply-elide-list #[nil "\306\211\211\211\211\211 \203} \203} \307@!\211G\306\n\203k \n@\211\310\230\2038 \311\fG Y\203d \312 O\f\230\203d \313\310\230\204b U\203d \314@!\203d \315\nA\211\204- \316@!A \240\210A\211\204 .\317 \207" [svn-status-info elide-mark elided-list len-test test len-fname nil svn-status-line-info->filename "." "" 0 t svn-status-line-info->directory-p directory svn-status-line-info->ui-status svn-status-update-buffer fname st-info svn-status-elided-list] 8 (#$ . 83547) nil])
(defalias 'svn-status-update-with-command-list #[(cmd-list) "\212q\210\306\211\211\307\310 !`i \311\312\"\211\203\265 \204( \306\204N \203N \211 @@)\307@!\230\211\204* A\202* \204\207 \313\314\315\211 @@)#\210\204\207 \203\207 \211 @@)\307@!\230\211\204c A\202c \203\237 \211 @A)@\316\f@\"\210\202\254 \313\314\317\211 @@)#\210A\211\204 \203\310 \nb\210\320 !\210 \321 \\b\202\317 \322e!\\b.\207" [svn-status-buffer-name column fname-pos fname action found nil svn-status-line-info->filename svn-status-get-line-information sort #[(item1 item2) "@ @\231\207" [item1 item2] 2] svn-status-message 3 "psvn: continue to search for %s" svn-status-annotate-status-buffer-entry "psvn: did not find %s" svn-status-goto-file-name svn-point-at-bol next-overlay-change st-info cmd-list svn-status-info x svn-status-default-column] 7])
(defalias 'svn-status-annotate-status-buffer-entry #[(action line-info) "\306\307\310 !!\210\n\311\235\203 \203 \312 \"\210\313 \"\210\f\203% \314 \f\"\210\315 \nC\"\210\n\316\232\203C \317\320 !\321\235\203\314 \322 \306\"\210\202\314 \n\323\232\203N \324\202\314 \n\325\232\203Y \326\202\314 \n\327\232\203d \330\202\314 \n\331\232\203o \332\202\314 \n\333\232\203z \334\202\314 \n\335\232\203\212 \336\337 \340\"\210\202\314 \n\341\232\203\225 \342\202\314 \n\343\232\203\243 \344 \"\210\202\314 \n\345\232\203\266 \337 \346\"\210\312 \347\"\210\202\314 \n\350\232\203\304 \337 \351\"\210\202\314 \352\353\n\310 !#\210\203\340 \n\354\235\204\340 \337 \355\"\210\344 \355\"\210\306 4\356 \357 |\210\360 !\210\361u\210\203\367 c\210\362\363!*\207" [tag-string line-info action svn-status-commit-rev-number svn-status-last-commit-author svn-status-file-modified-after-save-flag nil svn-status-goto-file-name svn-status-line-info->filename (committed added) svn-status-line-info->set-localrev svn-status-line-info->set-lastchangerev svn-status-line-info->set-author svn-status-line-info->set-psvn-extra-info committed " <committed>" svn-status-line-info->repo-locked (75) svn-status-line-info->set-repo-locked added " <added>" deleted " <deleted>" replaced " <replaced>" updated " <updated>" updated-props " <updated-props>" conflicted " <conflicted>" svn-status-line-info->set-filemark 67 merged " <merged>" propset svn-status-line-info->set-propmark added-wc 65 0 deleted-wc 68 error "Unknown action '%s for %s" (conflicted merged) 32 svn-point-at-bol svn-point-at-eol svn-insert-line-in-status-buffer -1 delete-char 1 buffer-read-only] 5])
#@106 Parse the output of svn commit.
Return a list that is suitable for `svn-status-update-with-command-list'
(defalias 'svn-status-parse-commit-output #[nil "\212q\210\306\211\211\211 eb\210\306\211`dW\203\311 \307 \310 U\203& \311\202\223 \312\313!\2031 \314\202\223 \312\315!\203< \316\202\223 \312\317!\203G \320\202\223 \312\321!\203R \322\202\223 \312\323!\203] \311\202\223 \312\324!\203\221 \325\326\306 \211 \224\205\211 \203\201 \327 \224 \225#\202\211 \330 \224 \225\"*!\311\202\223 \331\n\204\303 \332u\210!\203\245 \333\334\306\311#\210\330`\307 \"\"\204\273 \335\336# P!!@\" \fD B\306\326y\210\202 -\207" [svn-process-buffer-name result skip file-name action svn-status-commit-rev-number nil svn-point-at-eol svn-point-at-bol t looking-at "Sending" committed "Adding" added "Deleting" deleted "Replacing" replaced "Transmitting file data" "Committed revision \\([0-9]+\\)" string-to-number 1 substring-no-properties buffer-substring-no-properties unknown 15 search-forward "/" svn-status-info-for-path expand-file-name string num svn-status-operated-on-dot svn-status-last-commit-author default-directory] 6 (#$ . 86740)])
#@110 Parse the output of svn add|remove.
Return a list that is suitable for `svn-status-update-with-command-list'
(defalias 'svn-status-parse-ar-output #[nil "\212q\210\305\211\211\211 eb\210`dW\203U \306 \307 U\203\" \310\202: \311\312!\203- \313\202: \311\314!\2038 \315\202: \316\n\204O \317u\210\320`\306 \"\211\fD B\305\321y\210\202 -\207" [svn-process-buffer-name result skip name action nil svn-point-at-eol svn-point-at-bol t looking-at "A" added-wc "D" deleted-wc unknown 10 buffer-substring-no-properties 1] 5 (#$ . 87913)])
#@106 Parse the output of svn update.
Return a list that is suitable for `svn-status-update-with-command-list'
(defalias 'svn-status-parse-update-output #[nil "\212q\210\306\211\306\211\211 eb\210`dW\203\367 \307 \310 U\203$ \311\202\334 \312\313!\203Z \311\314\315\306 \211 !\224\205Q \203I \316 !\224!\225#\202Q \317!\224!\225\"*!D\311\202\334 \312\320!\203\220 \306\314\315\306 \211 !\224\205\207 \203 \316 !\224!\225#\202\207 \317!\224!\225\"*!D\311\202\334 \312\321!\203\233 \322\202\334 \312\323!\203\246 \324\202\334 \312\325!\203\261 \311\202\334 \312\326!\203\274 \327\202\334 \312\330!\203\307 \331\202\334 \312\332!\203\322 \333\202\334 \334\317``\335\\\"\336Q \204\361 \337u\210\317`\307 \"\211D\nB\306\315y\210\202 \n-\207" [svn-process-buffer-name svn-status-update-rev-number result skip name action nil svn-point-at-eol svn-point-at-bol t looking-at "Updated to revision \\([0-9]+\\)" string-to-number 1 substring-no-properties buffer-substring-no-properties "At revision \\([0-9]+\\)" "U" updated "A" added "D" "C" conflicted "G" merged " U" updated-props "parse-update: '" 2 "'" 3 string num] 7 (#$ . 88463)])
#@107 Parse the output of svn propset.
Return a list that is suitable for `svn-status-update-with-command-list'
(defalias 'svn-status-parse-property-output #[nil "\212q\210\304\305\306ed\"\307\"\304\211\2033 @\310\311\n\"\210\312\313\n\"\203, \314\315\n\"\316D B A\211\204 * *\207" [svn-process-buffer-name result line #1=#:--cl-dolist-temp-- nil split-string buffer-substring-no-properties "\n" message "%s" string-match "property '\\(.+\\)' set on '\\(.+\\)'" match-string 2 propset] 5 (#$ . 89631)])
#@247 Return non-nil if LINE-INFO refers to a symlink, nil otherwise.
The value is the name of the file to which it is linked. (See
`file-symlink-p'.)
On win32 systems this won't work, even though symlinks are supported
by subversion on such systems.
(defalias 'svn-status-line-info->symlink-p #[(line-info) "\301\302!!\207" [line-info file-symlink-p svn-status-line-info->filename] 3 (#$ . 90144)])
#@138 Return t if LINE-INFO refers to a directory, nil otherwise.
Symbolic links to directories count as directories (see `file-directory-p').
(defalias 'svn-status-line-info->directory-p #[(line-info) "\301\302!!\207" [line-info file-directory-p svn-status-line-info->filename] 3 (#$ . 90547)])
#@60 Return the full path of the file represented by LINE-INFO.
(defalias 'svn-status-line-info->full-path #[(line-info) "\301\302!!\207" [line-info expand-file-name svn-status-line-info->filename] 3 (#$ . 90844)])
#@35 Return number of "/"'s in STRING.
(defalias 'svn-status-count-/ #[(string) "\303\211\304\305\nT#\211\203 T\202 *\207" [last n string 0 string-match "/"] 4 (#$ . 91061)])
#@63 Format LINE-INFO and insert the result in the current buffer.
(defalias 'svn-insert-line-in-status-buffer #[(line-info) "\306!\203\n \307\202 \310\311!\203 \312 \203 \313\202 \314\315\"\202) \203( \316\202) \317\n\2045 \2045 \f\203b \312\320\321\322\"! \323GX\203[ \324H\325U\203[ \326H\327U\203[ \323\322O\202\\ )\330\"\202l \331\332\333!!\323_\334\"\335!\211 @\203\211 \312\336!\337\"\340\341\342!@\330\343$Q\202\223 \341\342!\336!\330\343$)P\344!\203\237 \345\202\240 \317 A B C D\346\333!`E#\210\347\306!D\350F\351!\352!\206\304 \334\353!\206\313 \334\354!\206\322 \317\355!\206\331 \317\356!& \205\344 CB ?\205\355 C\357\360!\361\362#\357\363!\363!\211 G\364=\203\365\202)G\366=\203\367\202)G\370=\203 \371\202)G\372=\203(\373\202)\374)\362#\357\375!\376=\377\201H #A\260 \201I #\201J \261,\207" [line-info svn-status-short-mod-flag-p svn-status-display-full-path svn-status-hide-unmodified svn-status-hide-externals dir-name svn-status-line-info->has-usermark "*" " " svn-status-line-info->update-available svn-add-face "** " " (Update Available)" svn-status-update-available-face " " "" file-name-as-directory svn-status-line-info->directory-containing-line-info nil 2 0 46 1 47 svn-status-directory-face make-string svn-status-count-/ svn-status-line-info->filename 32 svn-status-line-info->symlink-p svn-status-line-info->filename-nondirectory svn-status-symlink-face " -> " svn-status-choose-face-to-add svn-status-line-info->directory-p svn-status-filename-face svn-status-line-info->show-user-elide-continuation " ..." svn-puthash svn-status-maybe-add-face format svn-status-line-info->filemark svn-status-line-info->propmark svn-status-line-info->historymark svn-status-line-info->localrev svn-status-line-info->lastchangerev svn-status-line-info->author svn-status-maybe-add-string svn-status-line-info->locked " [ LOCKED ]" svn-status-locked-face svn-status-line-info->repo-locked 75 " [ REPO-LOCK-HERE ]" 79 " [ REPO-LOCK-OTHER ]" 84 " [ REPO-LOCK-STOLEN ]" 66 " [ REPO-LOCK-BROKEN ]" " [ REPO-LOCK-UNKNOWN ]" svn-status-line-info->switched 83 " (switched)" target elide-hint filename update-available usermark svn-status-filename-to-buffer-position-cache svn-status-line-format flag svn-status-switched-face svn-status-marked-face "\n"] 14 (#$ . 91246)])
#@114 Redraw the `svn-status-buffer-name' buffer.
Additionally clear the psvn-extra-info field in all line-info lists.
(defalias 'svn-status-redraw-status-buffer #[nil "\303\211\203 \n@\304 \303\"\210\nA\211\204 *\305 \207" [svn-status-info line-info #1=#:--cl-dolist-temp-- nil svn-status-line-info->set-psvn-extra-info svn-status-update-buffer] 4 (#$ . 93583) nil])
#@118 Update the `svn-status-buffer-name' buffer, using `svn-status-info'.
This function does not access the repository.
(defalias 'svn-status-update-buffer #[nil "\306 \230\204\n q\210\307 \210 \203 \310=\203 \311\312\313!\210\n\311\211\211\314\211\211\211\211\211\313\315\316 !`\317\320p!!\311i > ? @ A B C D E F G H I Jed|\210\321c\210J\203`H\322J@!\204m @\203y \323J@!\210\311@\202\350 \324J@!\203\212 \323J@!\210\202\350 K\203\242 \325KJ@C\"\203\242 CTC\202\350 \326J@!\203\262 ATA\202\350 \327J@!\203\302 ETE\202\350 \330J@!\203\322 FTF\202\350 \331J@!\203\342 DTD\202\350 \323J@!\210\322J@!\203\365 BTB\332H`\"G\333G\334J@#\210\333G\335\313#\210JA\211J\204] eb\210\336\337LM\203)\336\340M\"\202*\341#c\210N\2039\336\342N\"c\210O\203E\336\343O\"c\210P\203X\344\345 \321Qc\210\346\347 \321Qc\210Q\203d\336\350E\"c\210R\203p\336\351F\"c\210S\203|\336\352D\"c\210C\314V\203\212\336\353C\"c\210A\314V\203\230\336\354A\"c\210\336\355B\"c\210\336T\356\357\360\361\362\363&U\203\263\364\202\264\341\365QV\313=\203\306\366\fPW\202\323V\367=\203\323\370\f\321\261\210\371e`\"TX?\203\370>b\210\372?!\210 \373 \\b\210\205\377\374!\202\377\375e!Y\\b.\207" [svn-status-buffer-name svn-status-refresh-info svn-status-info column header-line-string window-line-pos buffer-name svn-status-mode once nil svn-status-parse-info t 0 svn-status-line-info->filename svn-status-get-line-information svn-status-window-line-position get-buffer-window "\n" svn-status-line-info->has-usermark svn-insert-line-in-status-buffer svn-status-line-info->update-available apply svn-status-line-info->hide-because-user-elide svn-status-line-info->hide-because-unknown svn-status-line-info->hide-because-unmodified svn-status-line-info->hide-because-externals make-overlay overlay-put svn-info evaporate format "svn status for directory %s%s\n" " (status against revision: %s)" "" "Project name: %s\n" "Branches: %s\n" "Repository Root: " svn-status-base-info->repository-root "Repository Url: " svn-status-base-info->url "%d Unknown file(s) are hidden - press `?' to toggle hiding\n" "%d Unmodified file(s) are hidden - press `_' to toggle hiding\n" "%d Externals file(s) are hidden - press `z' to toggle hiding\n" "%d file(s) are hidden via the svn-status-custom-hide-function\n" "%d file(s) elided\n" "%d file(s) marked\n" 70 80 72 "BASE" "CMTD" "Author" "em " "File" " " inline "\n " count-lines svn-status-goto-file-name svn-point-at-bol recenter next-overlay-change fname-pos fname first-line user-elide-count marked-count custom-hide-count externals-count unknown-count unmodified-count overlay start-pos buffer-read-only st-info svn-status-custom-hide-function default-directory svn-status-head-revision svn-status-module-name svn-status-branch-list svn-status-base-info svn-status-hide-unknown svn-status-hide-unmodified svn-status-hide-externals svn-status-line-format svn-status-short-mod-flag-p svn-status-use-header-line header-line-format svn-start-of-file-list-line-number svn-status-default-column] 17 (#$ . 93959) nil])
#@338 Parse the svn info output for the base directory.
Show the repository url after this call in the `svn-status-buffer-name' buffer.
When called with the prefix argument 0, reset the information to nil.
This hides the repository information again.
When ARG is t, don't update the svn status buffer. This is useful for
non-interactive use.
(defalias 'svn-status-parse-info #[(arg) "\303=\203 \304\202# \305\306\n!\203 \307\n!\210\310\304\311\312\313\314%\210\315 \210)\311=?\205, \316 \207" [arg svn-status-base-info svn-process-buffer-name 0 nil "*svn-info-output*" get-buffer kill-buffer svn-run t parse-info "info" "." svn-status-parse-info-result svn-status-update-buffer] 6 (#$ . 97073) "P"])
#@93 Parse the result from the svn info command.
Put the found values in `svn-status-base-info'.
(defalias 'svn-status-parse-info-result #[nil "\306\211\211\212 q\210eb\210\307 \310\311!\210\312`\313 \"\310\314\306\307#\203' \312`\313 \"\310\315\306\307#\2035 \312`\313 \"*\302\nD\301 D\300DE\211+\207" [last-changed-author repository-root url svn-process-buffer-name case-fold-search svn-status-base-info nil t search-forward "url: " buffer-substring-no-properties svn-point-at-eol "repository root: " "last changed author: "] 4 (#$ . 97780)])
#@51 Extract the url part from `svn-status-base-info'.
(defalias 'svn-status-base-info->url #[nil "\203 \302\303\"\211A@)\207\304\207" [svn-status-base-info x assoc url ""] 4 (#$ . 98334)])
#@63 Extract the repository-root part from `svn-status-base-info'.
(defalias 'svn-status-base-info->repository-root #[nil "\203 \302\303\"\211A@)\207\304\207" [svn-status-base-info x assoc repository-root ""] 4 (#$ . 98529)])
#@96 When only a part of the svn repository is checked out, return the file path for this checkout.
(defalias 'svn-status-checkout-prefix-path #[nil "\306\307!\210\310 \311 \312\313 \312 \fG\312O\314 \"\211\315\230\203$ \316\n\317\nGGZOt\2036 \320\321\n\"\210\n-\207" [wc-checkout-prefix base-dir p url root default-directory svn-status-parse-info t svn-status-base-info->repository-root svn-status-base-info->url nil svn-status-base-dir file-relative-name "./" "" 0 message "svn-status-checkout-prefix-path: '%s'"] 6 (#$ . 98760) nil])
#@18 Run svn ls PATH.
(defalias 'svn-status-ls #[(path &optional synchron) "\303?\304\305\306 %\210\205 \307r\nq\210\310ed\")!\207" [synchron path svn-process-buffer-name svn-run t ls "ls" split-string buffer-substring-no-properties] 6 (#$ . 99309) "sPath for svn ls: "])
#@129 Show, which branches exist for the actual working copy.
Note: this command assumes the proposed standard svn repository layout.
(defalias 'svn-status-ls-branches #[nil "\300\301!\210\302\303 \304P!\207" [svn-status-parse-info t svn-status-ls svn-status-base-info->repository-root "/branches"] 3 (#$ . 99586) nil])
#@125 Show, which tags exist for the actual working copy.
Note: this command assumes the proposed standard svn repository layout.
(defalias 'svn-status-ls-tags #[nil "\300\301!\210\302\303 \304P!\207" [svn-status-parse-info t svn-status-ls svn-status-base-info->repository-root "/tags"] 3 (#$ . 99907) nil])
#@302 Allow the user to edit the parameters for the next svn command.
This command toggles between
* editing the next command parameters (EditCmd)
* editing all all command parameters (EditCmd#)
* don't edit the command parameters ()
The string in parentheses is shown in the status line to show the state.
(defalias 'svn-status-toggle-edit-cmd-flag #[(&optional reset) "\204\n \303=\203 \304\202\" \304=\203 \305\202\" \305=\203\" \303 \305=\203- \306\202: \303=\2038 \307\202: \310\311 \207" [reset svn-status-edit-svn-command svn-status-mode-line-process-edit-flag sticky nil t " EditCmd" " EditCmd#" "" svn-status-update-mode-line] 2 (#$ . 100216) nil])
#@59 Bounce point between the root (".") and the current line.
(defalias 'svn-status-goto-root-or-return #[nil "\301\302 !\303\230\203 \205 \304\301!!\207\302 \304\303!\207" [svn-status-root-return-info svn-status-line-info->filename svn-status-get-line-information "." svn-status-goto-file-name] 3 (#$ . 100887) nil])
#@122 Go to the next line that holds a file information.
When called with a prefix argument advance the given number of lines.
(defalias 'svn-status-next-line #[(nr-of-lines) "y\210m\204\f \302 \203 \302 \205 \303 \\b\207" [nr-of-lines svn-status-default-column svn-status-get-line-information svn-point-at-bol] 2 (#$ . 101213) "p"])
#@126 Go to the previous line that holds a file information.
When called with a prefix argument go back the given number of lines.
(defalias 'svn-status-previous-line #[(nr-of-lines) "[y\210o\204 \302 \203 \302 \205 \303 \\b\207" [nr-of-lines svn-status-default-column svn-status-get-line-information svn-point-at-bol] 2 (#$ . 101552) "p"])
#@55 Jump to a dired buffer, containing the file at point.
(defalias 'svn-status-dired-jump #[nil "\303 \211\203 \304!\202 \305\306\203 \307\310\"\202 !!\311\312!\203, \312 \210\202/ \313 \210)\314\n!*\207" [line-info default-directory file-full-path svn-status-get-line-information svn-status-line-info->full-path file-name-as-directory expand-file-name svn-status-line-info->directory-containing-line-info t fboundp dired-jump-back dired-jump dired-goto-file] 6 (#$ . 101898) nil])
#@87 Negate arg, if this-command is a member of svn-status-possibly-negate-meaning-of-arg.
(defalias 'svn-status-possibly-negate-meaning-of-arg #[(arg &optional command) "\204 \n\235\203 ?\207 \207" [command this-command svn-status-negate-meaning-of-arg-commands arg] 2 (#$ . 102395)])
#@79 Run 'svn status -v'.
When called with a prefix argument run 'svn status -vu'.
(defalias 'svn-status-update #[(&optional arg) "t\204 \212q\210ed{)\304\n \"\207" [svn-process-buffer-name svn-status-update-previous-process-output default-directory arg svn-status] 3 (#$ . 102689) "P"])
#@119 Find out about the file under point.
The result may be parsed with the various `svn-status-line-info->...' functions.
(defalias 'svn-status-get-line-information #[nil "\305=\203) \306\307`!\306\211\203% @ \206 \310\n\301\" A\211\204 * )\207\f\203A \311\f\312=\203= \313\314 \315 \"\202? \314 !\207\311\316!\207" [major-mode svn-info overlay #1=#:--cl-dolist-temp-- svn-status-get-line-information-for-file svn-status-mode nil overlays-at overlay-get svn-status-make-line-info relative file-relative-name buffer-file-name svn-status-base-dir "."] 4 (#$ . 102982)])
#@153 Get either the selected files or the file under point.
USE-MARKED-FILES decides which we do.
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-get-file-list #[(use-marked-files) "\203 \301 \207\302 C\207" [use-marked-files svn-status-marked-files svn-status-get-line-information] 1 (#$ . 103563)])
(defalias 'svn-status-get-file-list-names #[(use-marked-files) "\301\302\303!\"\207" [use-marked-files mapcar svn-status-line-info->filename svn-status-get-file-list] 4])
#@288 Find out about the file under point.
The result may be parsed with the various `svn-status-line-info->...' functions.
When called from a *svn-status* buffer, do the same as `svn-status-get-line-information'.
When called from a file buffer provide a structure that contains the filename.
(defalias 'svn-status-get-file-information #[nil "\301=\203 \302 \207\303\304p!!\207" [major-mode svn-status-mode svn-status-get-line-information svn-status-make-line-info buffer-file-name] 3 (#$ . 104073)])
#@74 Return information about the file under point.
(Only used for debugging)
(defalias 'svn-status-select-line #[nil "\301 \211\203 \302\303\304!\305!\306!%\202 \302\307!)\207" [info svn-status-get-line-information message "%S hide-because-unknown: %S hide-because-unmodified: %S hide-because-externals: %S" svn-status-line-info->hide-because-unknown svn-status-line-info->hide-because-unmodified svn-status-line-info->hide-because-externals "No file on this line"] 8 (#$ . 104576) nil])
#@49 Raise an error unless point is on a valid file.
(defalias 'svn-status-ensure-cursor-on-file #[nil "\300 ?\205 \301\302!\207" [svn-status-get-line-information error "No file on the current line"] 2 (#$ . 105073)])
#@199 Find the (full path of) directory containing the file under point.
If ALLOW-SELF and the file is a directory, return that directory,
otherwise return the directory containing the file under point.
(defalias 'svn-status-directory-containing-point #[(allow-self) "\302 \206 \303 \304\305\306 \"!!)\207" [line-info allow-self svn-status-get-line-information svn-status-make-line-info file-name-as-directory expand-file-name svn-status-line-info->directory-containing-line-info] 5 (#$ . 105294)])
#@181 Find the directory containing for LINE-INFO.
If ALLOW-SELF is t and LINE-INFO refers to a directory then return the
directory itself, in all other cases find the parent directory
(defalias 'svn-status-line-info->directory-containing-line-info #[(line-info allow-self) "\203 \302 !\203 \303 !\207\304\303 !!\206 \305\207" [allow-self line-info svn-status-line-info->directory-p svn-status-line-info->filename file-name-directory "."] 3 (#$ . 105798)])
#@324 Set a user mark on the current file or directory.
If the cursor is on a file this file is marked and the cursor advances to the next line.
If the cursor is on a directory all files in this directory are marked.
If this function is called with a prefix argument, only the current line is
marked, even if it is a directory.
(defalias 'svn-status-set-user-mark #[(arg) "\302\303\"\304 \211\203 \305\306\"\210\307\310!\202 \311\312!)\207" [arg info svn-status-possibly-negate-meaning-of-arg svn-status-set-user-mark svn-status-get-line-information svn-status-apply-usermark t svn-status-next-line 1 message "No file on this line - cannot set a mark"] 4 (#$ . 106261) "P"])
#@332 Remove a user mark on the current file or directory.
If the cursor is on a file, this file is unmarked and the cursor advances to the next line.
If the cursor is on a directory, all files in this directory are unmarked.
If this function is called with a prefix argument, only the current line is
unmarked, even if is a directory.
(defalias 'svn-status-unset-user-mark #[(arg) "\302\303\"\304 \211\203 \305\306\"\210\307\310!\202 \311\312!)\207" [arg info svn-status-possibly-negate-meaning-of-arg svn-status-set-user-mark svn-status-get-line-information svn-status-apply-usermark nil svn-status-next-line 1 message "No file on this line - cannot unset a mark"] 4 (#$ . 106944) "P"])
#@68 Remove a user mark from the previous file.
Then move to that line.
(defalias 'svn-status-unset-user-mark-backwards #[nil "\212\301\302!\210\303 )\211\203 \301\302!\210\304\305\306\"\202 \307\310!)\207" [info svn-status-next-line -1 svn-status-get-line-information svn-status-apply-usermark nil t message "No file on previous line - cannot unset a mark"] 4 (#$ . 107640) nil])
#@58 Do the work for the various marking/unmarking functions.
(defalias 'svn-status-apply-usermark #[(set-mark only-this-line) "\306\307 \310 ! \311\f!\205 \312\313\314\f!!P \315\211 \316 ! \" \203\264 \317 @!\2046 \203> \"T\"\315 \310 @! \f \230\204W \203\255 \320 \"\203\255 \317 @!\203\255 #\203j \f \230\203\255 \321 @!@$=\204\255 \321 @!$\240\210\nT\212\315 %\322\"!\210\323 \324 |\210\325 @!\210\326\327!\210*\330\331$\203\250 \332\202\251 \333 #\210 A\211\204* \334 !\210\n\327V\205\315 \330\335$\203\312 \332\202\313 \333\n#. \207" [svn-status-info st-info mark-count line-info file-name sub-file-regexp 0 svn-status-get-line-information svn-status-line-info->filename file-directory-p "^" regexp-quote file-name-as-directory nil t svn-status-line-info->is-visiblep string-match svn-status-line-info->ui-status goto-line svn-point-at-bol svn-point-at-eol svn-insert-line-in-status-buffer delete-char 1 message "%s %s" "Marked" "Unmarked" svn-status-goto-file-name "%s %d files" newcursorpos-fname i-fname first-line svn-start-of-file-list-line-number current-line only-this-line set-mark buffer-read-only] 5 (#$ . 108025)])
#@183 Mark or unmark files, whether a given function returns t.
The function is called with the line information. Therefore the
svn-status-line-info->* functions can be used in the check.
(defalias 'svn-status-apply-usermark-checked #[(check-function set-mark) "\305\211\203< \306 \n@C\"\2035 \307\n@!\f=\204. T\310\311\f\203' \312\202( \313\314\n@!#\210\315\n@!\f\240\210\nA\211\204 \316 \210 \317V\205R \310\320\f\203O \312\202P \313 #*\207" [svn-status-info mark-count st-info check-function set-mark 0 apply svn-status-line-info->has-usermark message "%s %s" "Marked" "Unmarked" svn-status-line-info->filename svn-status-line-info->ui-status svn-status-update-buffer 1 "%s %d files"] 6 (#$ . 109194)])
#@170 Mark all unknown files.
These are the files marked with '?' in the `svn-status-buffer-name' buffer.
If the function is called with a prefix arg, unmark all these files.
(defalias 'svn-status-mark-unknown #[(arg) "\301\302?\"\207" [arg svn-status-apply-usermark-checked (lambda (info) (eq (svn-status-line-info->filemark info) 63))] 3 (#$ . 109908) "P"])
#@168 Mark all added files.
These are the files marked with 'A' in the `svn-status-buffer-name' buffer.
If the function is called with a prefix ARG, unmark all these files.
(defalias 'svn-status-mark-added #[(arg) "\301\302?\"\207" [arg svn-status-apply-usermark-checked (lambda (info) (eq (svn-status-line-info->filemark info) 65))] 3 (#$ . 110270) "P"])
#@206 Mark all modified files.
These are the files marked with 'M' in the `svn-status-buffer-name' buffer.
Changed properties are considered.
If the function is called with a prefix ARG, unmark all these files.
(defalias 'svn-status-mark-modified #[(arg) "\301\302?\"\207" [arg svn-status-apply-usermark-checked (lambda (info) (or (eq (svn-status-line-info->filemark info) 77) (eq (svn-status-line-info->filemark info) svn-status-file-modified-after-save-flag) (eq (svn-status-line-info->propmark info) 77)))] 3 (#$ . 110628) "P"])
#@129 Mark all files and directories with modified properties.
If the function is called with a prefix ARG, unmark all these entries.
(defalias 'svn-status-mark-modified-properties #[(arg) "\301\302?\"\207" [arg svn-status-apply-usermark-checked (lambda (info) (or (eq (svn-status-line-info->propmark info) 77)))] 3 (#$ . 111162) "P"])
#@185 Mark all files scheduled for deletion.
These are the files marked with 'D' in the `svn-status-buffer-name' buffer.
If the function is called with a prefix ARG, unmark all these files.
(defalias 'svn-status-mark-deleted #[(arg) "\301\302?\"\207" [arg svn-status-apply-usermark-checked (lambda (info) (eq (svn-status-line-info->filemark info) 68))] 3 (#$ . 111500) "P"])
#@301 Mark all files that could be committed.
This means we mark
* all modified files
* all files scheduled for addition
* all files scheduled for deletion
* all files with modified properties
The last two categories include all copied and moved files.
If called with a prefix ARG, unmark all such files.
(defalias 'svn-status-mark-changed #[(arg) "\301!\210\302!\210\303!\210\304!\207" [arg svn-status-mark-added svn-status-mark-modified svn-status-mark-deleted svn-status-mark-modified-properties] 2 (#$ . 111877) "P"])
(defalias 'svn-status-unset-all-usermarks #[nil "\300\301\302\"\207" [svn-status-apply-usermark-checked (lambda (info) t) nil] 3 nil nil])
#@147 Store the current usermarks in `svn-status-usermark-storage'.
When called with a prefix argument it is possible to store different sets of marks.
(defalias 'svn-status-store-usermarks #[(arg) "\303\304!\305 \n#\210\306\307G\")\207" [file-list arg svn-status-usermark-storage svn-status-get-file-list-names t svn-puthash message "psvn stored %d user marks"] 4 (#$ . 112544) "P"])
#@160 Load previously stored user marks from `svn-status-usermark-storage'.
When called with a prefix argument it is possible to store/load different sets of marks.
(defalias 'svn-status-load-usermarks #[(arg) "\303 \"\304\305\306\")\207" [arg svn-status-usermark-storage file-list gethash svn-status-apply-usermark-checked (lambda (info) (member (svn-status-line-info->filename info) file-list)) t] 3 (#$ . 112933) "P"])
#@66 History list of regular expressions used in svn status commands.
(defvar svn-status-regexp-history nil (#$ . 113357))
(defalias 'svn-status-read-regexp #[(prompt) "\301\302\211\211\303%\207" [prompt read-from-minibuffer nil svn-status-regexp-history] 6])
#@102 Mark all files matching REGEXP.
If the function is called with a prefix arg, unmark all these files.
(defalias 'svn-status-mark-filename-regexp #[(regexp &optional unmark) "\301\302?\"\207" [unmark svn-status-apply-usermark-checked (lambda (info) (string-match regexp (svn-status-line-info->filename-nondirectory info)))] 3 (#$ . 113620) (list (svn-status-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files (regexp): ")) (if current-prefix-arg t nil))])
#@124 Mark all files matching the given file extension EXT.
If the function is called with a prefix arg, unmark all these files.
(defalias 'svn-status-mark-by-file-ext #[(ext &optional unmark) "\301\302?\"\207" [unmark svn-status-apply-usermark-checked (lambda (info) (let ((case-fold-search nil)) (string-match (concat "\\." ext "$") (svn-status-line-info->filename-nondirectory info))))] 3 (#$ . 114099) (list (read-string (concat (if current-prefix-arg "Unmark" "Mark") " files with extensions: ")) (if current-prefix-arg t nil))])
(defalias 'svn-status-toggle-hide-unknown #[nil "?\301 \207" [svn-status-hide-unknown svn-status-update-buffer] 1 nil nil])
(defalias 'svn-status-toggle-hide-unmodified #[nil "?\301 \207" [svn-status-hide-unmodified svn-status-update-buffer] 1 nil nil])
(defalias 'svn-status-toggle-hide-externals #[nil "?\301 \207" [svn-status-hide-externals svn-status-update-buffer] 1 nil nil])
#@76 Find the buffer position for a file.
If the file is not found, return nil.
(defalias 'svn-status-get-file-name-buffer-position #[(name) "\306 \"\211\203 \307\n!b\210`)\310 \2045 `dW\2035 \311`!b\210\312\313 !\230\203 `\\\314\211\203 eb\210 \204Z `\fW\203Z \311`!b\210\312\313 !\230\2038 `\\\314\211\203< \205_ \f*\207" [name svn-status-filename-to-buffer-position-cache cached-pos found start-pos svn-status-default-column gethash previous-overlay-change nil next-overlay-change svn-status-line-info->filename svn-status-get-line-information t] 4 (#$ . 115023)])
#@50 Move the cursor the the line that displays NAME.
(defalias 'svn-status-goto-file-name #[(name) "\302!\211\203 b\202 \303\304\305#)\207" [name pos svn-status-get-file-name-buffer-position svn-status-message 7 "Note: svn-status-goto-file-name: %s not found"] 5 (#$ . 115608)])
(defalias 'svn-status-find-info-for-file-name #[(name) "\304 \203 \305 @!\230\203 @\304 A\211\204 \n*\207" [svn-status-info st-info info name nil svn-status-line-info->filename] 4])
#@107 Return all files marked by `svn-status-set-user-mark',
or (if no files were marked) the file under point.
(defalias 'svn-status-marked-files #[nil "\305=\2031 \306\n\203# \307\n@!\203 \310 \n@C\"\nA\211\204 \206/ \311 \205/ \311 C*\207\f\203J \312\f\313=\203E \314\315 \316 \"\202G \315 !C\207\312\317!C\207" [major-mode svn-status-info st-info file-list svn-status-get-line-information-for-file svn-status-mode nil svn-status-line-info->has-usermark append svn-status-get-line-information svn-status-make-line-info relative file-relative-name buffer-file-name svn-status-base-dir "."] 5 (#$ . 116089)])
(defalias 'svn-status-marked-file-names #[nil "\300\301\302 \"\207" [mapcar svn-status-line-info->filename svn-status-marked-files] 3])
#@180 Return non-nil iff a file has been marked by `svn-status-set-user-mark'.
Unlike `svn-status-marked-files', this does not select the file under point
if no files have been marked.
(defalias 'svn-status-some-files-marked-p #[nil "\305\306\305 :\203\" @\307\n!\211?\211\203\" A\211\202 \f,\207" [svn-status-info #1=#:--cl-var-- line-info #2=#:--cl-flag-- #3=#:--cl-var-- nil t svn-status-line-info->has-usermark] 3 (#$ . 116845)])
#@77 Return non-nil iff only dirs has been marked by `svn-status-set-user-mark'.
(defalias 'svn-status-only-dirs-or-nothing-marked-p #[nil "\305\306\305 :\203) @\307\n!?\205 \310\n!\211?\211\203) A\211\202 \f,\207" [svn-status-info #1=#:--cl-var-- line-info #2=#:--cl-flag-- #3=#:--cl-var-- nil t svn-status-line-info->directory-p svn-status-line-info->has-usermark] 3 (#$ . 117291)])
(defalias 'svn-status-ui-information-hash-table #[nil "\303\304\305\"\211\203 \306\307\n@!\310\n@! #\210\nA\211\204 *\207" [svn-status-info svn-status-ui-information st-info make-hash-table :test equal svn-puthash svn-status-line-info->filename svn-status-line-info->ui-status] 5])
#@36 Create an svn client argument file
(defalias 'svn-status-create-arg-file #[(file-name prefix file-info-list postfix) "\306!\211\307\310\311!!\312\216r q\210 c\210\f\211 \203+ \313@!c\210\314c\210A\211\204 c*r q\210~\210\315ed\n\316\317%\210,\207" [file-name #1=#:temp-buffer #2=#:temp-file prefix file-info-list st-info svn-expand-filename-for-remote-access get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) svn-status-line-info->filename "\n" write-region nil 0 postfix] 8 (#$ . 117979)])
(defalias 'svn-status-show-process-buffer-internal #[(&optional scroll-to-top) "p \204 \305 \n\230\203 \306 \210\307 !\210\310 \210\f\203 eb\210\307!)\207" [cur-buff svn-status-preserve-window-configuration svn-status-buffer-name svn-process-buffer-name scroll-to-top buffer-name delete-other-windows pop-to-buffer svn-process-mode] 2])
#@98 Display the result of a svn command.
Consider svn-status-window-alist to choose the buffer name.
(defalias 'svn-status-show-process-output #[(cmd &optional scroll-to-top) "\306 \"\211A@)\307\211 \307=\203 \2023 \f\310=\203$ \311\2023 \f\312=\2030 \307\2023 \f\205\204 \f\203\200 \204L \313 \230\203L \314 \210\315!\210\316\317!!\210 \307 ed|\210\320!\210\203p eb\210)\f\310=\203z \321 \210\322\323!\202\204 \324!*\207" [cmd svn-status-window-alist x process-default-directory window-mode svn-process-buffer-name assoc nil t "*svn-info*" invisible buffer-name delete-other-windows pop-to-buffer switch-to-buffer get-buffer-create insert-buffer-substring svn-info-mode other-window 1 svn-status-show-process-buffer-internal svn-status-last-output-buffer-name svn-status-preserve-window-configuration svn-status-buffer-name default-directory buffer-read-only scroll-to-top] 4 (#$ . 118915)])
(defalias 'svn-status-svn-log-switches #[(arg) "\302=\203 \303\207\304=\204 \305=\203 \306\207\203 \307\207 \207" [arg svn-status-default-log-arguments 0 nil -1 - ("-q") ("-v")] 2])
#@472 Run `svn log' on selected files.
The output is put into the *svn-log* buffer
The optional prefix argument ARG determines which switches are passed to `svn log':
no prefix --- use whatever is in the list `svn-status-default-log-arguments'
prefix argument of -1: --- use the -q switch (quiet)
prefix argument of 0 --- use no arguments
other prefix arguments: --- use the -v switch (verbose)
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-show-svn-log #[(arg) "\304!\305\306 \307\310 \307$\210\311\305\211\312\313\314 \n&*\207" [arg svn-status-get-line-information-for-file switches svn-status-temp-arg-file svn-status-svn-log-switches t svn-status-create-arg-file "" svn-status-marked-files svn-run log "log" "--targets"] 8 (#$ . 120034) "P"])
#@139 Show the version numbers for psvn.el and the svn command line client.
The version number of the client is cached in `svn-client-version'.
(defalias 'svn-status-version #[nil "\306 \307t\204 \n\204O \310\307\311\312\313$\210t\203 \314\315\311\"\210r q\210eb\210\316\317\307\311#\2055 \320\321\322\323\324!\325\"\"\307 eb\210\326\327\"c\210)\330ed\")\211\202[ \nt?\205[ \331 !\210*\207" [version-string window-conf svn-status-cached-version-string svn-status-last-output-buffer-name svn-client-version buffer-read-only current-window-configuration nil svn-run t version "--version" svn-status-show-process-output info re-search-forward "svn, version \\([0-9.]+\\) " mapcar string-to-number split-string match-string 1 "\\." format "psvn.el revision: %s\n\n" buffer-substring-no-properties set-window-configuration svn-psvn-revision] 5 (#$ . 120844) nil])
#@98 Run `svn info' on all selected files.
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-info #[nil "\301\302\303 \302$\210\304\305\211\306\307\310&\207" [svn-status-temp-arg-file svn-status-create-arg-file "" svn-status-marked-files svn-run t info "info" "--targets"] 7 (#$ . 121715) nil])
#@157 Run svn info on the given PATH.
Return some interesting parts of the resulting output.
At the moment a list containing the last changed author is returned.
(defalias 'svn-status-info-for-path #[(path) "\303\304\305\304\306\307\310\n%\210r q\210eb\210\311\312\304\306#\203! \313`\314 \")\315\316\317\n$\210*C\207" [last-changed-author svn-process-buffer-name path "*svn-info-output*" nil svn-run t info "info" search-forward "last changed author: " buffer-substring-no-properties svn-point-at-eol svn-status-message 7 "last-changed-author for '%s': %s"] 6 (#$ . 122046)])
#@198 Run `svn blame' on the current file.
When called with a prefix argument, ask the user for the REVISION to use.
When called from a file buffer, go to the current line in the resulting blame output.
(defalias 'svn-status-blame #[(revision &optional file-name) "\203 \306\307\310\" \204 \310 \203 \202 \311\312 !\313\314\211\315\316\317 \f&\207" [current-prefix-arg revision svn-status-blame-revision file-name svn-status-blame-file-name svn-status-default-blame-arguments svn-status-read-revision-string "Blame for version: " "BASE" svn-status-line-info->filename svn-status-get-file-information svn-run t blame "blame" "-r"] 9 (#$ . 122629) "P"])
#@119 Run svn blame again, using the revision before the change at point.
When point is at revision 3472, run it with 3471.
(defalias 'svn-blame-blame-again #[(arg) "\303 \304\305!S! \203 \306\307\310!\"\311\n\")\207" [rev current-prefix-arg svn-status-blame-file-name svn-blame-rev-at-point number-to-string string-to-number svn-status-read-revision-string format "Svn blame for rev#? " svn-status-blame] 3 (#$ . 123295) "P"])
#@359 Run `svn diff' on the current file.
If the current file is a directory, compare it recursively.
If there is a newer revision in the repository, the diff is done against HEAD,
otherwise compare the working copy with BASE.
If ARG then prompt for revision to diff against (unless arg is '-)
When called with a negative prefix argument, do a non recursive diff.
(defalias 'svn-status-show-svn-diff #[(arg) "\247\203 \303W\206 \304=\304=\204 \203 \305\202 \306\307 \210\310\311 C\n? #*\207" [arg revision non-recursive 0 - :ask :auto svn-status-ensure-cursor-on-file svn-status-show-svn-diff-internal svn-status-get-line-information] 4 (#$ . 123731) "P"])
#@211 Run `svn diff' on the current file.
If there is a newer revision in the repository, the diff is done against HEAD,
otherwise compare the working copy with BASE.
If ARG then prompt for revision to diff against.
(defalias 'svn-file-show-svn-diff #[(arg) "\302\303!C\304 \203 \305\202 \306#\207" [buffer-file-name arg svn-status-show-svn-diff-internal svn-status-make-line-info nil :ask :auto] 4 (#$ . 124401) "P"])
#@367 Run `svn diff' on all selected files.
If some files have been marked, compare those non-recursively;
this is because marking a directory with \[svn-status-set-user-mark]
normally marks all of its files as well.
If no files have been marked, compare recursively the file at point.
If ARG then prompt for revision to diff against, else compare working copy with BASE.
(defalias 'svn-status-show-svn-diff-for-marked-files #[(arg) "\301\302 \303 ?\203 \304\202 \305#\207" [arg svn-status-show-svn-diff-internal svn-status-marked-files svn-status-some-files-marked-p :ask "BASE"] 4 (#$ . 124824) "P"])
#@110 Show the changeset for a given log entry.
When called with a prefix argument, ask the user for the revision.
(defalias 'svn-status-diff-show-changeset #[(rev &optional user-confirmation rev-against) "\203 \202 \203 \202 \306\307\n!S!\211\310\nQ \203' \311\312\f\"\313\314\315\316\317\320\fP&\210\321 +\207" [rev-against rev upper-rev lower-rev rev-arg user-confirmation number-to-string string-to-number ":" read-string "Revision for changeset: " svn-run nil t diff "diff" "-r" svn-status-activate-diff-mode svn-status-default-diff-arguments] 9 (#$ . 125431)])
(defalias 'svn-status-show-svn-diff-internal #[(line-infos recursive revision) "\306=\203 \307\310\311\" \nE\312\313 \313 \211 \203\207 @\314\313\315\316 \317\320=\203@ \321!\203< \322\202A \323\202A \n?\205G \324\325!& \210\313\n\204~ \326! r q\210 \203x \f\206i eb\210\327\330\313\312#\203x \331\224d|\210d\211b\210* A\211 \204 ,\332 \207" [revision line-infos recursive svn-status-last-diff-options beginning clear-buf :ask svn-status-read-revision-string "Diff with files for version: " "PREV" t nil svn-run diff "diff" "-r" :auto svn-status-line-info->update-available "HEAD" "BASE" "--non-recursive" svn-status-line-info->filename svn-status-line-info->directory-p re-search-forward "^Index: " 0 svn-status-activate-diff-mode line-info #1=#:--cl-dolist-temp-- svn-status-default-diff-arguments directory-p svn-process-buffer-name] 12])
#@109 Copy the function name for the change at point to the kill-ring.
That function uses `add-log-current-defun'
(defalias 'svn-status-diff-save-current-defun-as-kill #[nil "\301 \211\203 \302!\210\303\304\"\202 \303\305!)\207" [func-name add-log-current-defun kill-new message "Copied %S" "No current defun detected."] 4 (#$ . 126888) nil])
#@88 Temporary switch to the `svn-status-buffer-name' buffer and start a commit from there.
(defalias 'svn-status-diff-pop-to-commit-buffer #[nil "\303 \304 \210\305 \210\306!\210\307\n!)\207" [window-conf svn-status-pre-commit-window-configuration svn-log-edit-buffer-name current-window-configuration svn-status-switch-to-status-buffer svn-status-commit set-window-configuration pop-to-buffer] 2 (#$ . 127236) nil])
#@65 Show the `svn-process-buffer-name' buffer, using the diff-mode.
(defalias 'svn-status-activate-diff-mode #[nil "\304\305\306\"\210\212\nq\210 \307 \210\306\211*\207" [default-directory working-directory svn-status-last-output-buffer-name buffer-read-only svn-status-show-process-output diff t svn-status-diff-mode] 3 (#$ . 127659)])
(byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list svn-status-diff-mode-abbrev-table svn-status-diff-mode-hook variable-documentation put "Hook run when entering svn-diff mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp svn-status-diff-mode-map definition-name svn-status-diff-mode default-boundp set-default make-sparse-keymap svn-status-diff-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5)
#@195 Major mode to display svn diffs. Derives from `diff-mode'.
Commands:
\{svn-status-diff-mode-map}
This mode runs the hook `svn-status-diff-mode-hook', as the final step
during initialization.
(defalias 'svn-status-diff-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210\315 !\316\211 \317 \210\306\320!\210\321,\322\323!\2036 \323\324!\207\325\324!\207" [delay-mode-hooks major-mode mode-name svn-status-diff-mode-map svn-status-diff-mode-syntax-table svn-status-diff-mode-abbrev-table make-local-variable t kill-all-local-variables svn-status-diff-mode "svn-diff" use-local-map set-syntax-table copy-keymap nil diff-mode revert-buffer-function svn-status-diff-update fboundp run-mode-hooks svn-status-diff-mode-hook run-hooks local-abbrev-table diff-mode-shared-map] 3 (#$ . 128793) nil])
#@67 Rerun the last svn diff command and update the *svn-diff* buffer.
(defalias 'svn-status-diff-update #[(arg noconfirm) "\300 \210\301\213\207" [svn-status-save-some-buffers ((byte-code "\301\302\"\207" [svn-status-last-diff-options apply svn-status-show-svn-diff-internal] 3))] 1 (#$ . 129619) nil])
#@58 Show the content of the `svn-process-buffer-name' buffer
(defalias 'svn-status-show-process-buffer #[nil "\300\301!\207" [svn-status-show-process-output nil] 2 (#$ . 129925) nil])
#@65 Pop to the `svn-status-partner-buffer' if that variable is set.
(defalias 'svn-status-pop-to-partner-buffer #[nil "\205 p\302!\210 \211)\207" [svn-status-partner-buffer cur-buf pop-to-buffer] 2 (#$ . 130111) nil])
#@84 Call `pop-to-buffer' and register the current buffer as partner buffer for BUFFER.
(defalias 'svn-status-pop-to-new-partner-buffer #[(buffer) "p\303 !\210\211)\207" [cur-buf buffer svn-status-partner-buffer pop-to-buffer] 2 (#$ . 130336)])
#@229 Run `svn add' on all selected files.
When a directory is added, add files recursively.
See `svn-status-marked-files' for what counts as selected.
When this function is called with a prefix argument, use the actual file instead.
(defalias 'svn-status-add-file-recursively #[(arg) "\302\303\304?!\"\210\305 \306\307?!\306$\210\310\311\211\312\313\314 &\207" [arg svn-status-temp-arg-file message "adding: %S" svn-status-get-file-list-names svn-status-create-arg-file "" svn-status-get-file-list svn-run t add "add" "--targets"] 7 (#$ . 130586) "P"])
#@293 Run `svn add' on all selected files.
When a directory is added, don't add the files of the directory
(svn add --non-recursive <file-list> is called).
See `svn-status-marked-files' for what counts as selected.
When this function is called with a prefix argument, use the actual file instead.
(defalias 'svn-status-add-file #[(arg) "\302\303\304?!\"\210\305 \306\307?!\306$\210\310\311\211\312\313\314\315 &\207" [arg svn-status-temp-arg-file message "adding: %S" svn-status-get-file-list-names svn-status-create-arg-file "" svn-status-get-file-list svn-run t add "add" "--non-recursive" "--targets"] 8 (#$ . 131144) "P"])
#@98 Run `svn lock' on all selected files.
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-lock #[(arg) "\301\302\303\304!\"\210\305\306\307\304!\306$\210\310\304\211\311\312\313&\207" [svn-status-temp-arg-file message "locking: %S" svn-status-get-file-list-names t svn-status-create-arg-file "" svn-status-get-file-list svn-run lock "lock" "--targets"] 7 (#$ . 131775) "P"])
#@100 Run `svn unlock' on all selected files.
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-unlock #[(arg) "\301\302\303\304!\"\210\305\306\307\304!\306$\210\310\304\211\311\312\313&\207" [svn-status-temp-arg-file message "unlocking: %S" svn-status-get-file-list-names t svn-status-create-arg-file "" svn-status-get-file-list svn-run unlock "unlock" "--targets"] 7 (#$ . 132189) "P"])
#@22 Run `svn mkdir DIR'.
(defalias 'svn-status-make-directory #[(dir) "\301\302\"\204 \303!\304\305\211\306\307\310&\207" [dir string-match "^[^:/]+://" file-relative-name svn-run t mkdir "mkdir" "--"] 7 (#$ . 132612) (list (read-file-name "Make directory: " (svn-status-directory-containing-point t)))])
#@677 Prompt for a destination, and `svn mv' selected files there.
See `svn-status-marked-files' for what counts as `selected'.
If one file was selected then the destination DEST should be a
filename to rename the selected file to, or a directory to move the
file into; if multiple files were selected then DEST should be a
directory to move the selected files into.
The default DEST is the directory containing point.
BUG: If we've marked some directory containging a file as well as the
file itself, then we should just mv the directory, but this implementation
doesn't check for that.
SOLUTION: for each dir, umark all its contents (but not the dir
itself) before running mv.
(defalias 'svn-status-mv #[nil "\300\301\302\303\301$\207" [svn-status-mv-cp "mv" "Rename" "Move"] 5 (#$ . 132926) nil])
#@21 See `svn-status-mv'
(defalias 'svn-status-cp #[nil "\300\301\302\211\301$\207" [svn-status-mv-cp "cp" "Copy"] 5 (#$ . 133729) nil])
#@520 Run svn COMMAND on marked files, prompting for destination
This function acts on `svn-status-marked-files': at the prompt the
user can enter a new file name, or an existing directory: this is used as the argument for svn COMMAND.
COMMAND --- string saying what to do: "mv" or "cp"
SINGLEPROMPT --- string at start of prompt when one file marked
MANYPROMPT --- string at start of prompt when multiple files marked
FALLBACK --- If any marked file is unversioned, use this instead of 'svn COMMAND'
(defalias 'svn-status-mv-cp #[(command singleprompt manyprompt fallback) "\306 \211G\307 \310U\203# \311\312\313 \314@!#\315\316!\317@!#\202; \320\312\321\f #\315\316!\307\316$\322\n!\204; \323\324\n\"\210\n\325\230\203E \323\326!\210\327\330\n\"\204P \331\n!\307 \211 0\203E0@\314!\332!\333!\307 1 2 3 43\334=\204} 2\334=\203\237 \335\312\3364\"!\203\226 \33754\n\316$\210\3161\202\340\3414\"\210\2023\342=\203\325 \335\312\343464\n%!\203\314 \3446\307\3457!\307\346\3474\n&\210\3161\202\340\3414\"\210\2023\350=\203\345 \340\3514\"\210\2023\352=\203\372 \33754\n#\210\3161\202\335\312\3534\"!\203\33754\n#\210\3161\202\340\3414\"\2101\203;\340\35454\n$\210\3554!\203;r\3554!q\210\356\n\307\316#\210),0A\2110\204Y *\357 +\207" [marked-files num-of-files dest singleprompt manyprompt original svn-status-marked-files nil 1 read-file-name format "%s %s to: " svn-status-line-info->filename svn-status-directory-containing-point t svn-status-line-info->full-path svn-read-directory-name "%s %d files to directory: " file-directory-p error "%s is not a directory" "" "No destination entered" string-match "^[^:/]+://" file-relative-name svn-status-line-info->filemark svn-status-line-info->propmark 77 yes-or-no-p "%s has local modifications; use `--force' to really move it? " svn-status-run-mv-cp message "Not acting on %s" 63 "%s is unversioned. Use `%s -i -- %s %s'? " call-process get-buffer-create "-i" "--" 65 "Not acting on %s (commit it first)" 32 "The status of %s looks scary. Risk moving it anyway? " "psvn: did '%s' from %s to %s" get-file-buffer set-visited-file-name svn-status-update #1=#:--cl-dolist-temp-- moved original-propmarks original-filemarks original-name command fallback svn-process-buffer-name] 11 (#$ . 133868)])
#@108 Actually run svn mv or svn cp.
This is just to prevent duplication in `svn-status-prompt-and-act-on-files'
(defalias 'svn-status-run-mv-cp #[(command original destination &optional force) "\203 \304\305\306\307 ! \310\311\n &\207\304\305\306\307 ! \311\n &\207" [force command original destination svn-run nil t intern "--force" "--"] 9 (#$ . 136204)])
#@100 Run `svn revert' on all selected files.
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-revert #[nil "\303 \211G\304 \305U\203 \306\307\310@!\"\202 \306\311 \"!\2056 \312\313\314 \"\210\315\n\316\303 \316$\210\317\320\211\321\322\323\n&*\207" [marked-files num-of-files svn-status-temp-arg-file svn-status-marked-files yes-or-no-p 1 format "Revert %s? " svn-status-line-info->filename "Revert %d files? " message "reverting: %S" svn-status-marked-file-names svn-status-create-arg-file "" svn-run t revert "revert" "--targets"] 8 (#$ . 136568) nil])
#@39 Run `svn revert' on the current file.
(defalias 'svn-file-revert #[nil "\301\302\303\"!\205 \304\305\211\306\307%\207" [buffer-file-name y-or-n-p format "Revert %s? " svn-run t revert "revert"] 6 (#$ . 137162) nil])
#@246 Run `svn rm' on all selected files.
See `svn-status-marked-files' for what counts as selected.
When called with a prefix argument add the command line switch --force.
Forcing the deletion can also be used to delete files not under svn control.
(defalias 'svn-status-rm #[(force) "\306 \211G\307 \310U\203 \311\312\n\203 \313\202 \314\315@!#\202- \311\316\n\203* \313\202+ \314 #!\205\217 \317\320\321 \"\210\322 \314\306 \314$\210\n\203\206 \212\323\324\211\325\326\327\330 &\210\306 \331 \211 \203\201 @\332\f!\333=\203z \334\315\f!!\210\331 \335 \336 T|\210\337\f!\"\210)A\211\204X +\331\202\217 \323\324\211\325\326\330 &*\207" [marked-files num-of-files force svn-status-temp-arg-file to-delete #1=#:--cl-dolist-temp-- svn-status-marked-files yes-or-no-p 1 format "%sRemove %s? " "Force " "" svn-status-line-info->filename "%sRemove %d files? " message "removing: %S" svn-status-marked-file-names svn-status-create-arg-file svn-run t rm "rm" "--force" "--targets" nil svn-status-line-info->filemark 63 svn-status-goto-file-name svn-point-at-bol svn-point-at-eol delete buffer-read-only svn-status-info] 9 (#$ . 137388) "P"])
#@174 Run svn update.
When called with a prefix argument, ask the user for the revision to update to.
When called with a negative prefix argument, only update the selected files.
(defalias 'svn-status-update-cmd #[(arg) "\247\203 \306W\206 \307=\310\205* \311 \203 \312\313!\202$ \312\314 \" \205) \315\" \2042 \316 \210@\317X\203K \211 A@)\320W\203K \321C\202O \322\323D \203m \324\325\326 \"\210\327\330\211\331\332\f\205e \333\fD\n\326 &\202\206 \324\325 \"\210\327\330\211\331\332\f\205~ \333\fD\n\334\335 !!&+\207" [arg selective-update update-extra-arg default-directory rev svn-client-version 0 - nil svn-status-read-revision-string format "Selected entries: Run svn update -r " "Directory: %s: Run svn update -r " "HEAD" svn-status-version 1 5 "--non-interactive" "--accept" "postpone" message "Running svn-update for %s" svn-status-marked-file-names svn-run t update "update" "-r" svn-local-filename-for-remote-access expand-file-name x] 11 (#$ . 138539) "P"])
#@264 Commit selected files.
If some files have been marked, commit those non-recursively;
this is because marking a directory with \[svn-status-set-user-mark]
normally marks all of its files as well.
If no files have been marked, commit recursively the file at point.
(defalias 'svn-status-commit #[nil "\305 \210\306 \211\307 ?\310 \210\311 \210 \203 \303 \210\f\205 \312\313!)\207" [selected-files svn-status-files-to-commit svn-status-recursive-commit svn-log-edit-insert-files-to-commit svn-log-edit-show-diff-for-commit svn-status-save-some-buffers svn-status-marked-files svn-status-only-dirs-or-nothing-marked-p svn-log-edit-show-files-to-commit svn-status-pop-to-commit-buffer svn-log-edit-svn-diff nil] 3 (#$ . 139527) nil])
#@114 Pop to the svn commit buffer.
If a saved log message exists in `svn-log-edit-file-name' insert it in the buffer.
(defalias 'svn-status-pop-to-commit-buffer #[nil "\306 \307 !\310 !\f \311 \312 !\210\313 \n\204/ \203/ \314!\203/ \315!\210\316 ,\207" [svn-status-pre-commit-window-configuration svn-log-edit-buffer-name use-existing-buffer commit-buffer default-directory dir current-window-configuration get-buffer get-buffer-create nil pop-to-buffer svn-log-edit-file-name file-readable-p insert-file-contents svn-log-edit-mode log-edit-file-name] 2 (#$ . 140268) nil])
#@48 Switch to the `svn-status-buffer-name' buffer.
(defalias 'svn-status-switch-to-status-buffer #[nil "\301!\207" [svn-status-buffer-name switch-to-buffer] 2 (#$ . 140858) nil])
#@45 Pop to the `svn-status-buffer-name' buffer.
(defalias 'svn-status-pop-to-status-buffer #[nil "\301!\207" [svn-status-buffer-name pop-to-buffer] 2 (#$ . 141040) nil])
#@107 Allows a quick selection of a bookmark in `svn-bookmark-list'.
Run `svn-status' on the selected bookmark.
(defalias 'svn-status-via-bookmark #[(bookmark) "\204 \303\304!\210\305 \"A\306\n!\203 \307\n!\202 \303\310\n\")\207" [bookmark svn-bookmark-list directory error "No bookmark specified" assoc file-directory-p svn-status "%s is not a directory"] 3 (#$ . 141214) (list (let ((completion-ignore-case t)) (funcall svn-status-completing-read-function "SVN status bookmark: " svn-bookmark-list)))])
#@159 Run `svn export' for the current working copy.
Ask the user for the destination path.
`svn-status-default-export-directory' is suggested as export directory.
(defalias 'svn-status-export #[nil "\305 \306\"\237A@\307\310\311 \" \nP\" \312\313\211\314\315\316 !\316\f!&\210\317\320 \f#+\207" [default-directory src dir1-name svn-status-default-export-directory dest split-string "/" read-file-name format "Export %s to " svn-run t export "export" expand-file-name message "svn-status-export %s %s"] 8 (#$ . 141726) nil])
#@183 Run `svn cleanup' on all selected files.
See `svn-status-marked-files' for what counts as selected.
When this function is called with a prefix argument, use the actual file instead.
(defalias 'svn-status-cleanup #[(arg) "\302?!\211\203 \303\304 \"\210\305\306\211\307\310\311C \"$\202 \303\312!)\207" [arg file-names svn-status-get-file-list-names message "svn-status-cleanup %S" svn-run t cleanup append "cleanup" "No valid file selected - No status cleanup possible"] 8 (#$ . 142256) "P"])
#@102 Run `svn resolved' on all selected files.
See `svn-status-marked-files' for what counts as selected.
(defalias 'svn-status-resolved #[nil "\303 \211G\304 \305U\203 \306\307\310@!\"\202 \306\311 \"!\2056 \312\313\314 \"\210\315\n\316\303 \316$\210\317\320\211\321\322\323\n&*\207" [marked-files num-of-files svn-status-temp-arg-file svn-status-marked-files yes-or-no-p 1 format "Resolve %s? " svn-status-line-info->filename "Resolve %d files? " message "resolving: %S" svn-status-marked-file-names svn-status-create-arg-file "" svn-run t resolved "resolved" "--targets"] 8 (#$ . 142759) nil])
#@66 Run svnversion on the directory that contains the file at point.
(defalias 'svn-status-svnversion #[nil "\303 \210\304\305 !\306\305 !\307\310\n!\204! \311\n!\206 \312\311 !\313\314 P!\315\316\n#\210+\207" [version full-path simple-path svn-status-ensure-cursor-on-file svn-status-line-info->filename svn-status-get-line-information svn-status-line-info->full-path nil file-directory-p file-name-directory "." shell-command-to-string "svnversion -n " message "svnversion for '%s': %s"] 4 (#$ . 143363) nil])
#@151 Flag shown whenever a file is modified and saved in Emacs.
The flag is shown in the `svn-status-buffer-name' buffer.
Recommended values are ?m or ?M.
(defvar svn-status-file-modified-after-save-flag 109 (#$ . 143887))
#@74 Set a modified indication, when a file is saved from a svn working copy.
(defalias 'svn-status-after-save-hook #[nil "\242\211\205\n \306 !\307\310 ! \206 \311G\nG \312 \313!\203t \203t \f Y\203t \n\314 O \230\203t \310 \312O\312 \211 \203s \315@!\230\203j \316@!\317=\204j \320@\"\210\321\213\210A\211\204G *.\312\207" [svn-status-directory-history svn-dir file-dir svn-dir-len file-dir-len file-name expand-file-name file-name-directory buffer-file-name "" nil get-buffer 0 svn-status-line-info->filename svn-status-line-info->filemark 63 svn-status-line-info->set-filemark ((byte-code "q\210\212\305\306 !\n\203# \nb\210\307 \310 |\210\311\f@!\210\312\313!\210\202- \314\315\316 $\210\317 \210+\305\207" [svn-status-buffer-name i-fname pos buffer-read-only st-info nil svn-status-get-file-name-buffer-position svn-point-at-bol svn-point-at-eol svn-insert-line-in-status-buffer delete-char 1 svn-status-message 3 "psvn: file %s not found, updating %s buffer content..." svn-status-update-buffer] 5)) svn-status-buffer-name svn-status-info i-fname st-info svn-status-file-modified-after-save-flag] 4 (#$ . 144111)])
(byte-code "\301\302\303\"\210\304B\305\304!\204 \306\304\307\"\210\310B\305\310!\204# \306\310\311\"\210\311\207" [current-load-list add-hook after-save-hook svn-status-after-save-hook svn-status-state-mark-modeline default-boundp set-default t svn-status-state-mark-tooltip nil] 3)
(defalias 'svn-status-state-mark-modeline-dot #[(color) "\301\302\303\304\305\306\307\310\311\312\313\"\314BBBBB%\207" [color propertize " " help-echo svn-status-state-mark-tooltip display image :type xpm :data format "/* XPM */\nstatic char * data[] = {\n\"18 13 3 1\",\n\" c None\",\n\"+ c #000000\",\n\". c %s\",\n\" \",\n\" +++++ \",\n\" +.....+ \",\n\" +.......+ \",\n\" +.........+ \",\n\" +.........+ \",\n\" +.........+ \",\n\" +.........+ \",\n\" +.........+ \",\n\" +.......+ \",\n\" +.....+ \",\n\" +++++ \",\n\" \"};" (:ascent center)] 12])
(defalias 'svn-status-install-state-mark-modeline #[(color) "\302\303!D B\304\305!\207" [color mode-line-format svn-status-state-mark-modeline svn-status-state-mark-modeline-dot force-mode-line-update t] 3])
(defalias 'svn-status-uninstall-state-mark-modeline #[nil "\301\302\"\303\304!\207" [mode-line-format remove-if #[(mode) "\242\301=\207" [mode svn-status-state-mark-modeline] 2] force-mode-line-update t] 3])
(defalias 'svn-status-update-state-mark-tooltip #[(tooltip) "\211\207" [tooltip svn-status-state-mark-tooltip] 2])
(defalias 'svn-status-update-state-mark #[(color) "\301 \210\302!\207" [color svn-status-uninstall-state-mark-modeline svn-status-install-state-mark-modeline] 2])
#@19 Is vc-svn active?
(defalias 'svn-status-in-vc-mode\? #[nil "\302\303!\203\f \303!\304=\207\305\301!\205 \205 \306\307\310 !\"\207" [buffer-file-name vc-mode fboundp vc-backend SVN boundp string-match "^ SVN" svn-substring-no-properties] 4 (#$ . 146933)])
(byte-code "\301\302\303\304#\210\203. \305\306\307\310\311$\210\312\306\311\"\210\305\313\314\310\311$\210\312\313\311\"\210\305\315\316\317\311$\210\312\315\320\"\210\311\207" [svn-status-fancy-file-state-in-modeline put svn-status-in-vc-mode\? byte-optimizer byte-compile-inline-expand ad-add-advice vc-find-file-hook (svn-status-vc-svn-find-file-hook nil t (advice lambda nil "vc-find-file-hook advice for synchronizing psvn with vc-svn interface" (when (svn-status-in-vc-mode\?) (svn-status-update-modeline)))) after nil ad-activate vc-after-save (svn-status-vc-svn-after-save nil t (advice lambda nil "vc-after-save advice for synchronizing psvn when saving buffer" (when (svn-status-in-vc-mode\?) (svn-status-update-modeline)))) ediff-refresh-mode-lines (svn-modeline-ediff-fixup nil t (advice lambda nil "Fixup svn file status in the modeline when using ediff" (ediff-with-current-buffer ediff-buffer-A (svn-status-uninstall-state-mark-modeline)) (ediff-with-current-buffer ediff-buffer-B (svn-status-uninstall-state-mark-modeline)) ad-do-it (ediff-with-current-buffer ediff-buffer-A (svn-status-update-modeline)) (ediff-with-current-buffer ediff-buffer-B (svn-status-update-modeline)))) around t] 5)
#@41 Update modeline state dot mark properly
(defalias 'svn-status-update-modeline #[nil "\205C \303\304!\203 \304!\305=\202\" \306\301!\205C \205C \307\310\311 !\"\205C \312\313!\314\n\315\"\2035 \316\202A \314\n\317\"\203@ \320\202A \321)!\207" [buffer-file-name vc-mode stat fboundp vc-backend SVN boundp string-match "^ SVN" svn-substring-no-properties svn-status-update-state-mark vc-svn-state memql 'edited "tomato" 'up-to-date "GreenYellow" "red"] 4 (#$ . 148408)])
#@50 Interpret vc-svn-state symbol to mode line color
(defalias 'svn-status-interprete-state-mode-color #[(stat) "\301\302\"\203 \303\207\301\304\"\203 \305\207\306\207" [stat memql 'edited "tomato" 'up-to-date "GreenYellow" "red"] 3 (#$ . 148888)])
(put 'svn-status-interprete-state-mode-color 'byte-optimizer 'byte-compile-inline-expand)
#@222 Retrieve older revisions.
The older revisions are stored in backup files named F.~REVISION~.
When the function is called without a prefix argument: get all marked files.
With a prefix argument: get only the actual file.
(defalias 'svn-status-get-specific-revision #[(arg) "\301\302?!\303\304#\207" [arg svn-status-get-specific-revision-internal svn-status-get-file-list :ask t] 4 (#$ . 149234) "P"])
#@595 Retrieve older revisions of files.
LINE-INFOS is a list of line-info structures (see
`svn-status-get-line-information').
REVISION is one of:
- a string: whatever the -r option allows.
- `:ask': asks the user to specify the revision, which then becomes
saved in `minibuffer-history' rather than in `command-history'.
- `:auto': Use "HEAD" if an update is known to exist, "BASE" otherwise.
After the call, `svn-status-get-revision-file-info' will be an alist
((WORKING-FILE-NAME . RETRIEVED-REVISION-FILE-NAME) ...). These file
names are relative to the directory where `svn-status' was run.
(defalias 'svn-status-get-specific-revision-internal #[(line-infos revision handle-relative-svn-status-dir) "\306=\203 \307\310\311\" G\211\312U\2037 @\313\314\315=\203- \316 !\203) \317\202. \320\202. \321 !#\210)\202G \313\322\315=\203C \323\202D \n#\210)\324 \324\211 \203;@\315=\203i \316 !\203e \317\202j \320\202j \321 ! 6\3256!\326\327R 7\330 8\203\212 \3319\330 \"\202\213 \332\3336!Q 96\3336!7PB\fB\334\335\33669$\210\334\335\3377\3407!$\210\212\3407!\203\305 \341\342!!\230\204.\313\3436\34497P!$\210\345\346! :\347\216r:q\210\320\230\203\364 \350\351 \352\3256!\353R!\210\202\n\354\324\355\356\357\3609\3256!P&\210\361;!\210\362 + <\3637!\210\324=\364 \210<c\210eb\210\324\211 > ?\365 \210+\2023\3637!\210-A\211\204R *\f\237)\207" [revision line-infos count line-info svn-status-get-specific-revision-file-info #1=#:--cl-dolist-temp-- :ask svn-status-read-revision-string "Get files for version: " "PREV" 1 message "Getting revision %s of %s" :auto svn-status-line-info->update-available "HEAD" "BASE" svn-status-line-info->filename "Getting revision %s of %d files" "HEAD or BASE" nil file-name-nondirectory ".~" "~" svn-status-base-dir file-relative-name "" file-name-directory svn-status-message 3 "svn-status-get-specific-revision-internal: file: %s, default-directory: %s" "svn-status-get-specific-revision-internal: file-name-with-revision: %s %S" file-exists-p number-to-string string-to-number "Getting revision %s of %s, target: %s" expand-file-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents svn-wc-adm-dir-name "/text-base/" ".svn-base" svn-run t cat "cat" "-r" insert-buffer-substring buffer-string find-file erase-buffer save-buffer file-name file-name-with-revision handle-relative-svn-status-dir default-directory #2# svn-process-buffer-name content buffer-read-only require-final-newline write-file-functions] 12 (#$ . 149643)])
#@232 Run ediff on the current file with a different revision.
If there is a newer revision in the repository, the diff is done against HEAD,