aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Möllmann2025-08-19 13:02:34 +0200
committerGerd Möllmann2025-08-19 13:05:00 +0200
commite92da50e057787c6ebbe0f4eb6ced3b2bc8d5bc4 (patch)
tree8bd668b28167d4e34aa9f83682243d096e08f8ea
parentd40c7549297bd08be09b72debe35c0b1bf345cea (diff)
downloademacs-e92da50e057787c6ebbe0f4eb6ced3b2bc8d5bc4.tar.gz
emacs-e92da50e057787c6ebbe0f4eb6ced3b2bc8d5bc4.zip
; Pacify byte-compiler
* lisp/progmodes/eglot.el (eglot--managed-mode): Use revert-buffer-in-progress instead of revert-buffer-in-progress-p. * lisp/vc/vc-hooks.el (vc-dir-resynch-file): Declare some functions.
-rw-r--r--lisp/progmodes/eglot.el2
-rw-r--r--lisp/vc/vc-hooks.el3
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 4a7c525003c..96391ca8dfe 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2242,7 +2242,7 @@ Use `eglot-managed-p' to determine if current buffer is managed.")
2242 (when (and eglot-autoshutdown 2242 (when (and eglot-autoshutdown
2243 (null (eglot--managed-buffers server)) 2243 (null (eglot--managed-buffers server))
2244 ;; Don't shutdown if up again soon. 2244 ;; Don't shutdown if up again soon.
2245 (not revert-buffer-in-progress-p)) 2245 (not revert-buffer-in-progress))
2246 (eglot-shutdown server))))))) 2246 (eglot-shutdown server)))))))
2247 2247
2248(defun eglot--managed-mode-off () 2248(defun eglot--managed-mode-off ()
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index e3b2d207156..53602491cad 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -687,6 +687,9 @@ Before doing that, check if there are any old backups and get rid of them."
687 (vc-make-version-backup file))))) 687 (vc-make-version-backup file)))))
688 688
689(declare-function vc-dir-resynch-file "vc-dir" (&optional fname)) 689(declare-function vc-dir-resynch-file "vc-dir" (&optional fname))
690(declare-function vc-fileset-diff-outgoing "vc" (&optional remote-location fileset))
691(declare-function vc-fileset-diff-incoming "vc" (&optional remote-location fileset))
692(declare-function vc-working-tree-switch-project "vc" (dir))
690 693
691(defvar vc-dir-buffers nil "List of `vc-dir' buffers.") 694(defvar vc-dir-buffers nil "List of `vc-dir' buffers.")
692 695