diff options
| author | Eli Zaretskii | 2023-01-16 16:52:48 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2023-01-16 16:52:48 +0200 |
| commit | f367ba3ed03526356448a94addbb8554ece2f482 (patch) | |
| tree | 7fbbab2d684169565b0d08fac32dc9b062c2d750 | |
| parent | 1b458aced723dc752a699e509816b92399087775 (diff) | |
| download | emacs-f367ba3ed03526356448a94addbb8554ece2f482.tar.gz emacs-f367ba3ed03526356448a94addbb8554ece2f482.zip | |
; Avoid byte-compiler warning in eglot.el
* lisp/progmodes/eglot.el (eglot): Rename INTERACTIVE to avoid
byte-compiler warning. Update the doc string. (Bug#60557)
| -rw-r--r-- | lisp/progmodes/eglot.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 10512633181..dc73152f5ab 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el | |||
| @@ -1075,7 +1075,7 @@ suitable root directory for a given LSP server's purposes." | |||
| 1075 | 1075 | ||
| 1076 | ;;;###autoload | 1076 | ;;;###autoload |
| 1077 | (defun eglot (managed-major-mode project class contact language-id | 1077 | (defun eglot (managed-major-mode project class contact language-id |
| 1078 | &optional interactive) | 1078 | &optional _interactive) |
| 1079 | "Start LSP server in support of PROJECT's buffers under MANAGED-MAJOR-MODE. | 1079 | "Start LSP server in support of PROJECT's buffers under MANAGED-MAJOR-MODE. |
| 1080 | 1080 | ||
| 1081 | This starts a Language Server Protocol (LSP) server suitable for the | 1081 | This starts a Language Server Protocol (LSP) server suitable for the |
| @@ -1112,7 +1112,7 @@ described in `eglot-server-programs', which see. | |||
| 1112 | LANGUAGE-ID is the language ID string to send to the server for | 1112 | LANGUAGE-ID is the language ID string to send to the server for |
| 1113 | MANAGED-MAJOR-MODE, which matters to a minority of servers. | 1113 | MANAGED-MAJOR-MODE, which matters to a minority of servers. |
| 1114 | 1114 | ||
| 1115 | INTERACTIVE is t if called interactively." | 1115 | INTERACTIVE is ignored and provided for backward compatibility." |
| 1116 | (interactive | 1116 | (interactive |
| 1117 | (let ((current-server (eglot-current-server))) | 1117 | (let ((current-server (eglot-current-server))) |
| 1118 | (unless (or (null current-server) | 1118 | (unless (or (null current-server) |