emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/company f5a1ab9c4f 1/2: Make sure to hide the (auto) do


From: ELPA Syncer
Subject: [elpa] externals/company f5a1ab9c4f 1/2: Make sure to hide the (auto) doc buffer at the end
Date: Fri, 29 Sep 2023 21:57:39 -0400 (EDT)

branch: externals/company
commit f5a1ab9c4f388eff598b326a8a7dd1cdaf245e8c
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    Make sure to hide the (auto) doc buffer at the end
    
    #1402
---
 company.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/company.el b/company.el
index 212ff13a86..ab2f0bec72 100644
--- a/company.el
+++ b/company.el
@@ -1360,9 +1360,6 @@ To toggle the value of this variable, call 
`company-show-doc-buffer' with a
 prefix argument.")
 
 (defun company-call-frontends (command)
-  (when (and company-auto-update-doc
-             (memq command '(update show)))
-    (company-show-doc-buffer))
   (cl-loop for frontend in company-frontends collect
            (condition-case-unless-debug err
                (funcall frontend command)
@@ -2227,7 +2224,10 @@ For more details see `company-insertion-on-trigger' and
             (let (company-idle-delay) ; Against misbehavior while debugging.
               (company--perform)))
           (if company-candidates
-              (company-call-frontends 'post-command)
+              (progn
+                (company-call-frontends 'post-command)
+                (when company-auto-update-doc
+                  (company-show-doc-buffer)))
             (let ((delay (company--idle-delay)))
              (and (numberp delay)
                   (not defining-kbd-macro)
@@ -2883,10 +2883,8 @@ automatically show the documentation buffer for each 
selection."
   (interactive "P")
   (when toggle-auto-update
     (setq company-auto-update-doc (not company-auto-update-doc)))
-  (if company-auto-update-doc
-      (company--show-doc-buffer)
-    (company--electric-do
-      (company--show-doc-buffer))))
+  (company--electric-do
+    (company--show-doc-buffer)))
 (put 'company-show-doc-buffer 'company-keep t)
 
 (defun company-show-location ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]