diff options
| -rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index b298831cb1b..4dba0fea2ae 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -2190,6 +2190,8 @@ VC's perspective on FILE, it does not register or unregister it." | |||
| 2190 | (list | 2190 | (list |
| 2191 | buffer-file-name | 2191 | buffer-file-name |
| 2192 | (intern (upcase (read-string "Switch to backend: "))))) | 2192 | (intern (upcase (read-string "Switch to backend: "))))) |
| 2193 | (unless (vc-call-backend backend 'registered file) | ||
| 2194 | (error "%s is not registered in %s" file backend)) | ||
| 2193 | (vc-file-clearprops file) | 2195 | (vc-file-clearprops file) |
| 2194 | (vc-file-setprop file 'vc-backend backend) | 2196 | (vc-file-setprop file 'vc-backend backend) |
| 2195 | (vc-resynch-buffer file t t)) | 2197 | (vc-resynch-buffer file t t)) |