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
e6258b33
Commit
e6258b33
authored
Jul 29, 1993
by
Paul Eggert
Browse files
(vc-mode-line): Set vc-mode to nil if FILE no longer is version-controlled.
parent
a0213a97
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
lisp/vc-hooks.el
lisp/vc-hooks.el
+5
-5
No files found.
lisp/vc-hooks.el
View file @
e6258b33
...
...
@@ -142,11 +142,11 @@ The value is set in the current buffer, which should be the buffer
visiting FILE."
(
interactive
(
list
buffer-file-name
nil
))
(
let
((
vc-type
(
vc-backend-deduce
file
)))
(
if
vc-
typ
e
(
setq
vc-
mod
e
(
concat
" "
(
or
label
(
symbol-name
vc-type
))
(
if
(
and
vc-rcs-status
(
eq
vc-type
'RCS
))
(
vc-rcs-status
file
)))))
(
setq
vc-
mod
e
(
and
vc-
typ
e
(
concat
" "
(
or
label
(
symbol-name
vc-type
))
(
if
(
and
vc-rcs-status
(
eq
vc-type
'RCS
))
(
vc-rcs-status
file
)))))
;; force update of mode line
(
set-buffer-modified-p
(
buffer-modified-p
))
vc-type
))
...
...
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