diff options
| author | Eli Zaretskii | 2023-10-20 15:50:33 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-10-20 15:50:33 +0300 |
| commit | 199e42be2aa0a8670abd6563286da8ccc298dc79 (patch) | |
| tree | e2ae71257c0992676df0eddc7f1d372d0633d32d | |
| parent | a8b14b77ffa11803fda02c645b0181b616950b71 (diff) | |
| download | emacs-199e42be2aa0a8670abd6563286da8ccc298dc79.tar.gz emacs-199e42be2aa0a8670abd6563286da8ccc298dc79.zip | |
; Fix recent changes of LLDB support
* lisp/progmodes/gud.el (gud-lldb-max-completions)
(gud-lldb-fetch-completions): Fix doc string and :version tag.
| -rw-r--r-- | lisp/progmodes/gud.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 9922948fdc2..d48ff68cc5e 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -3907,7 +3907,8 @@ so they have been disabled.")) | |||
| 3907 | 3907 | ||
| 3908 | (defcustom gud-lldb-max-completions 20 | 3908 | (defcustom gud-lldb-max-completions 20 |
| 3909 | "Maximum number of completions to request from LLDB." | 3909 | "Maximum number of completions to request from LLDB." |
| 3910 | :type 'integer) | 3910 | :type 'integer |
| 3911 | :version "30.1") | ||
| 3911 | 3912 | ||
| 3912 | (defvar gud-lldb-def-python-completion-function | 3913 | (defvar gud-lldb-def-python-completion-function |
| 3913 | " | 3914 | " |
| @@ -3927,7 +3928,9 @@ def gud_complete(s, max): | |||
| 3927 | (defun gud-lldb-fetch-completions (context command) | 3928 | (defun gud-lldb-fetch-completions (context command) |
| 3928 | "Return the data to complete the LLDB command before point. | 3929 | "Return the data to complete the LLDB command before point. |
| 3929 | This is what the Python function we installed at initialzation | 3930 | This is what the Python function we installed at initialzation |
| 3930 | time returns, as a Lisp list." | 3931 | time returns, as a Lisp list. |
| 3932 | Maximum number of completions requested from LLDB is controlled | ||
| 3933 | by `gud-lldb-max-completions', which see." | ||
| 3931 | (let* ((process (get-buffer-process gud-comint-buffer)) | 3934 | (let* ((process (get-buffer-process gud-comint-buffer)) |
| 3932 | (to-complete (concat context command)) | 3935 | (to-complete (concat context command)) |
| 3933 | (output-buffer (get-buffer-create "*lldb-completions*"))) | 3936 | (output-buffer (get-buffer-create "*lldb-completions*"))) |