[elpa] externals/consult 7b0137b: Add some links to bugs

[ELPA Syncer]

branch: externals/consult
commit 7b0137b6d8c16c4b5be194a8ad0b7aa33255c88f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add some links to bugs
---
 consult.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/consult.el b/consult.el
index 4f29bcf..ba75905 100644
--- a/consult.el
+++ b/consult.el
@@ -1251,12 +1251,14 @@ See `consult--with-preview' for the arguments 
PREVIEW-KEY, STATE, TRANSFORM and
                                                          (setq last-preview 
new-preview)))))))
                                         (funcall state transformed nil)
                                         (setq last-preview 
new-preview))))))))))))
+              ;; symbol indirection because of bug#46407
               (let ((post-command-sym (make-symbol 
"consult--preview-post-command")))
                 (fset post-command-sym (lambda ()
                                          (setq input 
(minibuffer-contents-no-properties))
                                          (funcall consult--preview-function)))
                 (add-hook 'post-command-hook post-command-sym nil 'local)))
           (lambda ()
+            ;; symbol indirection because of bug#46407
             (let ((post-command-sym (make-symbol 
"consult--preview-post-command")))
               (fset post-command-sym (lambda () (setq input 
(minibuffer-contents-no-properties))))
               (add-hook 'post-command-hook post-command-sym nil 'local))))
@@ -1456,6 +1458,7 @@ BIND is the asynchronous function binding."
                (funcall ,async 'setup)
                ;; Push input string to request refresh.
                ;; We use a symbol in order to avoid adding lambdas to the hook 
variable.
+               ;; Symbol indirection because of bug#46407.
                (let ((sym (make-symbol "consult--async-after-change")))
                  (fset sym (lambda (&rest _) (funcall ,async 
(minibuffer-contents-no-properties))))
                  (run-at-time 0 nil sym)