[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/bash-completion e35943f37e 299/313: Fix backward-compatibi
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/bash-completion e35943f37e 299/313: Fix backward-compatibility issue on 24.3: avoid using alist-get. |
Date: |
Sat, 3 Dec 2022 10:59:39 -0500 (EST) |
branch: elpa/bash-completion
commit e35943f37efb540fdce60dfbd17ac4aaaa32a0f3
Author: Stephane Zermatten <szermatt@gmx.net>
Commit: Stephane Zermatten <szermatt@gmx.net>
Fix backward-compatibility issue on 24.3: avoid using alist-get.
---
bash-completion.el | 39 ++++++++++++++++++---------------------
1 file changed, 18 insertions(+), 21 deletions(-)
diff --git a/bash-completion.el b/bash-completion.el
index d177025501..0878bd1a8f 100644
--- a/bash-completion.el
+++ b/bash-completion.el
@@ -1509,10 +1509,9 @@ Return the status code of the command, as a number."
(erase-buffer)
(funcall send-string process complete-command)
(unless (bash-completion--wait-for-regexp process "\t-?[[:digit:]]+\v"
timeout)
- (setf (alist-get 'error bash-completion--debug-info)
- "timeout")
- (setf (alist-get 'buffer-string bash-completion--debug-info)
- (buffer-substring-no-properties (point-min) (point-max)))
+ (push (cons 'error "timeout") bash-completion--debug-info)
+ (push (cons 'buffer-string (buffer-substring-no-properties (point-min)
(point-max)))
+ bash-completion--debug-info)
(error "Bash completion failed. M-x bash-completion-debug for
details."))
(when pre-command
;; Detect the command having been echoed and remove it
@@ -1525,10 +1524,8 @@ Return the status code of the command, as a number."
(1+ (point))
(1- (line-end-position)))))
(wrapped-status (bash-completion--parse-side-channel-data
"wrapped-status")))
- (setf (alist-get 'status bash-completion--debug-info)
- status)
- (setf (alist-get 'wrapped-status bash-completion--debug-info)
- wrapped-status)
+ (push (cons 'status status) bash-completion--debug-info)
+ (push (cons 'wrapped-status wrapped-status)
bash-completion--debug-info)
(delete-region (point) (point-max))
(if (string= "124" wrapped-status)
124
@@ -1550,42 +1547,42 @@ Return the status code of the command, as a number."
(let ((debug-info bash-completion--debug-info))
(princ "command line:<<EOF")
(terpri)
- (princ (alist-get 'commandline debug-info))
+ (princ (cdr (assq 'commandline debug-info)))
(princ "EOF")
(terpri)
(terpri)
- (when (alist-get 'error debug-info)
+ (when (cdr (assq 'error debug-info))
(princ "error: ")
- (print (alist-get 'error debug-info))
+ (print (cdr (assq 'error debug-info)))
(terpri)
(princ "captured output:<<EOF")
(terpri)
- (princ (alist-get 'buffer-string debug-info))
+ (princ (cdr (assq 'buffer-string debug-info)))
(princ "EOF")
(terpri)
(terpri))
- (when (alist-get 'status debug-info)
+ (when (cdr (assq 'status debug-info))
(princ "status: ")
- (print (alist-get 'status debug-info))
- (when (alist-get 'wrapped-status debug-info)
+ (print (cdr (assq 'status debug-info)))
+ (when (cdr (assq 'wrapped-status debug-info))
(princ "wrapped-status: ")
- (print (alist-get 'wrapped-status debug-info)))
+ (print (cdr (assq 'wrapped-status debug-info))))
(terpri))
(princ "output-buffer:<<EOF")
(terpri)
(princ (with-current-buffer (bash-completion--get-buffer
- (alist-get 'process debug-info))
+ (cdr (assq 'process debug-info)))
(buffer-substring-no-properties (point-min) (point-max))))
(princ "EOF")
(terpri)
(terpri)
- (let ((process (alist-get 'process debug-info)))
+ (let ((process (cdr (assq 'process debug-info))))
(princ "process: ")
(print process)
(terpri)
(princ "use-separate-process: ")
- (print (alist-get 'separate debug-info))
+ (print (cdr (assq 'separate debug-info)))
(terpri)
(princ "bash-major-version:")
(print (process-get process 'bash-major-version))
@@ -1597,9 +1594,9 @@ Return the status code of the command, as a number."
(princ "completion-ignore-case:")
(print (process-get process 'completion-ignore-case))
(terpri)
- (when (alist-get 'context debug-info)
+ (when (cdr (assq 'context debug-info))
(princ "debug-context:\n")
- (pp (alist-get 'context debug-info))
+ (pp (cdr (assq 'context debug-info)))
(terpri))
(princ "complete-p:\n")
(pp (process-get process 'complete-p))
- [nongnu] elpa/bash-completion e24a596631 283/313: Make integration tests stabler., (continued)
- [nongnu] elpa/bash-completion e24a596631 283/313: Make integration tests stabler., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 51c7770758 284/313: Fix and update README.md, ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion c6decb1d6c 285/313: Avoid escaping all non-ASCII characters., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 4c216c4eea 286/313: Add an integration test to cover multiple completion results., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 8f877dc2ce 287/313: Let bash compute COMP_POINT, always at the end of COMP_LINE., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 377969faa7 288/313: Fix typos in README.md, ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 72e9fce93d 291/313: Properly apply filter passed to the dynamic completion function., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 35d38fd3dc 295/313: Workaround for output containing \r\n instead of \n., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 666244383e 296/313: Workaround for command-line being echoed., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion abb72c36b8 297/313: Merge branch 'master' of github.com:szermatt/emacs-bash-completion, ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion e35943f37e 299/313: Fix backward-compatibility issue on 24.3: avoid using alist-get.,
ELPA Syncer <=
- [nongnu] elpa/bash-completion abbe3bc268 301/313: Cleanup implementation of bash-completion-debug., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion ca4fbce016 305/313: Turn off bash completion when non-bash prompts are detected., ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion abe93ae2f6 308/313: Fix whitespace (#47), ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion df635e79fd 310/313: Replace deprecated `cl` package with `cl-lib` (#50), ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 8e9c20dbfe 313/313: Replace or quote certain single quotes in docstrings (#55), ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion aa9bea48ba 022/313: fix position, ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 6aedd69000 164/313: Delete duplicates when extracting candidates. fixes #26, ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion 58447c67bf 206/313: Merge the send functions, ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion d6c28d3132 302/313: Add a troubleshooting section to README.md, ELPA Syncer, 2022/12/03
- [nongnu] elpa/bash-completion d550256e3f 306/313: Disable flakey test for now., ELPA Syncer, 2022/12/03