procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mark vc-switch-backend as obsolete

Browse source 
* etc/NEWS: Mention the change.

* lisp/vc/vc.el (vc-switch-backend): Mark as obsolete (bug#50344).
(vc-transfer-file): Wrap the calls in 'with-suppressed-warnings'.
This commit is contained in:
Dmitry Gutov 2021-10-14 02:28:00 +03:00
parent 568e479c59
commit 0aa52e94f3
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
etc/NEWS
View file

@ -1937,6 +1937,10 @@ tags to be considered as well.
*** New user option 'vc-git-log-switches'. *** New user option 'vc-git-log-switches'.
String or list of strings specifying switches for Git log under VC. String or list of strings specifying switches for Git log under VC.
*** Command 'vc-switch-backend' is now obsolete.
If you are still using it with any regularity, please file a bug
report with some details.
** Gnus ** Gnus
+++ +++

13
lisp/vc/vc.el
View file

@ -2864,6 +2864,7 @@ permanent, only for the current session. This function only changes
VC's perspective on FILE, it does not register or unregister it. VC's perspective on FILE, it does not register or unregister it.
By default, this command cycles through the registered backends. By default, this command cycles through the registered backends.
To get a prompt, use a prefix argument." To get a prompt, use a prefix argument."
(declare (obsolete nil "28.1"))
(interactive (interactive
(list (list
(or buffer-file-name (or buffer-file-name
@ -2918,7 +2919,8 @@ backend to NEW-BACKEND, and unregister FILE from the current backend.
(if registered (if registered
(set-file-modes file (logior (file-modes file) 128)) (set-file-modes file (logior (file-modes file) 128))
;; `registered' might have switched under us. ;; `registered' might have switched under us.
(vc-switch-backend file old-backend) (with-suppressed-warnings ((obsolete vc-switch-backend))
(vc-switch-backend file old-backend))
(let* ((rev (vc-working-revision file)) (let* ((rev (vc-working-revision file))
(modified-file (and edited (make-temp-file file))) (modified-file (and edited (make-temp-file file)))
(unmodified-file (and modified-file (vc-version-backup-file file)))) (unmodified-file (and modified-file (vc-version-backup-file file))))
@ -2937,16 +2939,19 @@ backend to NEW-BACKEND, and unregister FILE from the current backend.
(vc-revert-file file)))) (vc-revert-file file))))
(vc-call-backend new-backend 'receive-file file rev)) (vc-call-backend new-backend 'receive-file file rev))
(when modified-file (when modified-file
(vc-switch-backend file new-backend) (with-suppressed-warnings ((obsolete vc-switch-backend))
(vc-switch-backend file new-backend))
(unless (eq (vc-checkout-model new-backend (list file)) 'implicit) (unless (eq (vc-checkout-model new-backend (list file)) 'implicit)
(vc-checkout file)) (vc-checkout file))
(rename-file modified-file file 'ok-if-already-exists) (rename-file modified-file file 'ok-if-already-exists)
(vc-file-setprop file 'vc-checkout-time nil))))) (vc-file-setprop file 'vc-checkout-time nil)))))
(when move (when move
(vc-switch-backend file old-backend) (with-suppressed-warnings ((obsolete vc-switch-backend))
(vc-switch-backend file old-backend))
(setq comment (vc-call-backend old-backend 'comment-history file)) (setq comment (vc-call-backend old-backend 'comment-history file))
(vc-call-backend old-backend 'unregister file)) (vc-call-backend old-backend 'unregister file))
(vc-switch-backend file new-backend) (with-suppressed-warnings ((obsolete vc-switch-backend))
(vc-switch-backend file new-backend))
(when (or move edited) (when (or move edited)
(vc-file-setprop file 'vc-state 'edited) (vc-file-setprop file 'vc-state 'edited)
(vc-mode-line file new-backend) (vc-mode-line file new-backend)