Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4a97caca
Commit
4a97caca
authored
May 04, 2003
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(vc-mcvs-mode-line-string): Fix thinko.
(vc-mcvs-rename-file): New function.
parent
56eebc29
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
1 deletion
+7
-1
lisp/vc-mcvs.el
lisp/vc-mcvs.el
+7
-1
No files found.
lisp/vc-mcvs.el
View file @
4a97caca
...
...
@@ -46,6 +46,7 @@
;; - C-x v l
;; - C-x v i
;; - C-x v g
;; - M-x vc-rename-file RET
;;; Bugs:
...
...
@@ -224,7 +225,9 @@ of a repository; then VC only stays local for hosts that match it."
(
defalias
'vc-mcvs-checkout-model
'vc-cvs-checkout-model
)
(
defun
vc-mcvs-mode-line-string
(
file
)
(
vc-mcvs-cvs
mode-line-string
file
))
(
defun
vc-mcvs-mode-line-string
(
file
)
(
let
((
s
(
vc-mcvs-cvs
mode-line-string
file
)))
(
if
s
(
concat
"M"
s
))))
;;;
;;; State-changing functions
...
...
@@ -387,6 +390,9 @@ This is only possible if Meta-CVS is responsible for FILE's directory.")
(
concat
"-r"
rev
))
switches
)))
(
defun
vc-mcvs-rename-file
(
old
new
)
(
vc-mcvs-command
nil
0
new
"move"
(
file-relative-name
old
)))
(
defun
vc-mcvs-revert
(
file
&optional
contents-done
)
"Revert FILE to the version it was based on."
(
vc-default-revert
file
contents-done
)
...
...
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