aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/net
diff options
context:
space:
mode:
authorMichael Albinus2025-08-09 14:21:23 +0200
committerMichael Albinus2025-08-09 14:21:23 +0200
commit1fc4bb1fead205e425f69fa803a71f4e446d48a8 (patch)
tree1260132fdf27f7de2ed77daa0e79cc1ae31a00b8 /lisp/net
parent5c8234e3e755141ede16adbd76ad74f5b673bfd3 (diff)
downloademacs-1fc4bb1fead205e425f69fa803a71f4e446d48a8.tar.gz
emacs-1fc4bb1fead205e425f69fa803a71f4e446d48a8.zip
Rename variables *-in-progress-p to *-in-progress
* doc/lispref/backups.texi (Reverting): Fix variable names revert-buffer-in-progress and auto-revert-buffer-in-progress. * etc/NEWS: Fix variable names revert-buffer-in-progress and auto-revert-buffer-in-progress. Presentational fixes and improvements. * lisp/autorevert.el (auto-revert-buffer-in-progress): Rename. (auto-revert-handler, auto-revert-buffer): Use renamed variables. * lisp/dired-x.el (dired-omit-expunge): Use `auto-revert-buffer-in-progress'. * lisp/files.el (revert-buffer-in-progress): Rename. (revert-buffer-in-progress-p): Declare obsolete. (after-find-file, revert-buffer): * lisp/saveplace.el (save-place-find-file-hook) (save-place-dired-hook): * lisp/vc/vc-git.el (vc-git-command, vc-git--out-ok): * lisp/vc/vc.el (vc-diff-internal): Use `revert-buffer-in-progress'. * lisp/net/tramp-sh.el (tramp-sh-handle-vc-registered): Suppress warning.
Diffstat (limited to 'lisp/net')
-rw-r--r--lisp/net/tramp-sh.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 576f09b764b..51633f686eb 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -3669,6 +3669,8 @@ are \"file-exists-p\", \"file-readable-p\", \"file-directory-p\" and
3669(defun tramp-sh-handle-vc-registered (file) 3669(defun tramp-sh-handle-vc-registered (file)
3670 "Like `vc-registered' for Tramp files." 3670 "Like `vc-registered' for Tramp files."
3671 (when vc-handled-backends 3671 (when vc-handled-backends
3672 ;; Starting with Emacs 31, use `revert-buffer-in-progress'.
3673 (with-suppressed-warnings ((obsolete revert-buffer-in-progress-p))
3672 (let ((inhibit-message (or revert-buffer-in-progress-p inhibit-message)) 3674 (let ((inhibit-message (or revert-buffer-in-progress-p inhibit-message))
3673 (temp-message (unless revert-buffer-in-progress-p ""))) 3675 (temp-message (unless revert-buffer-in-progress-p "")))
3674 (with-temp-message temp-message 3676 (with-temp-message temp-message
@@ -3728,7 +3730,7 @@ are \"file-exists-p\", \"file-readable-p\", \"file-directory-p\" and
3728 ;; Run. 3730 ;; Run.
3729 (tramp-with-demoted-errors 3731 (tramp-with-demoted-errors
3730 v "Error in 2nd pass of `vc-registered': %s" 3732 v "Error in 2nd pass of `vc-registered': %s"
3731 (tramp-run-real-handler #'vc-registered (list file)))))))))) 3733 (tramp-run-real-handler #'vc-registered (list file)))))))))))
3732 3734
3733;;;###tramp-autoload 3735;;;###tramp-autoload
3734(defun tramp-sh-file-name-handler (operation &rest args) 3736(defun tramp-sh-file-name-handler (operation &rest args)