diff options
| author | Michael Albinus | 2025-08-09 14:21:23 +0200 |
|---|---|---|
| committer | Michael Albinus | 2025-08-09 14:21:23 +0200 |
| commit | 1fc4bb1fead205e425f69fa803a71f4e446d48a8 (patch) | |
| tree | 1260132fdf27f7de2ed77daa0e79cc1ae31a00b8 /lisp/net | |
| parent | 5c8234e3e755141ede16adbd76ad74f5b673bfd3 (diff) | |
| download | emacs-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.el | 4 |
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) |