diff options
| author | Gerd Möllmann | 2025-08-19 13:02:34 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2025-08-19 13:05:00 +0200 |
| commit | e92da50e057787c6ebbe0f4eb6ced3b2bc8d5bc4 (patch) | |
| tree | 8bd668b28167d4e34aa9f83682243d096e08f8ea | |
| parent | d40c7549297bd08be09b72debe35c0b1bf345cea (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/vc/vc-hooks.el | 3 |
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 | ||