Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b2ee56c9
Commit
b2ee56c9
authored
Apr 11, 2008
by
Stefan Monnier
Browse files
(vc-svn-after-dir-status): Complete last change.
parent
492d9fd6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
9 deletions
+9
-9
lisp/vc-svn.el
lisp/vc-svn.el
+9
-9
No files found.
lisp/vc-svn.el
View file @
b2ee56c9
...
...
@@ -160,14 +160,14 @@ If you want to force an empty list of arguments, use t."
(
defun
vc-svn-after-dir-status
(
callback
)
(
let
((
state-map
'
((
?A
.
added
)
(
?C
.
conflict
)
(
?D
.
removed
)
(
?I
.
ignored
)
(
?M
.
edited
)
(
?R
.
removed
)
(
??
.
unregistered
)
;; This is what vc-svn-parse-status does.
(
?~
.
edited
)))
(
?C
.
conflict
)
(
?D
.
removed
)
(
?I
.
ignored
)
(
?M
.
edited
)
(
?R
.
removed
)
(
??
.
unregistered
)
;; This is what vc-svn-parse-status does.
(
?~
.
edited
)))
result
)
(
goto-char
(
point-min
))
(
while
(
re-search-forward
"^\\(.\\)..... \\(.*\\)$"
nil
t
)
...
...
@@ -175,7 +175,7 @@ If you want to force an empty list of arguments, use t."
(
filename
(
match-string
2
)))
(
when
state
(
setq
result
(
cons
(
list
filename
state
)
result
)))))
(
funcall
callback
result
buffer
)))
(
funcall
callback
result
)))
(
defun
vc-svn-dir-status
(
dir
callback
)
"Run 'svn status' for DIR and update BUFFER via CALLBACK.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment