[nongnu] elpa/helm 27d21f7637 2/4: Fix helm-helm-quit function after jumping to an external link

[ELPA Syncer]

branch: elpa/helm
commit 27d21f76371c46ed61cbd744011ba4666af449a5
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix helm-helm-quit function after jumping to an external link
    
    When jumping to an info node for example, if we hit quit from this
    info window we expect exiting info and not helm help.
---
 helm-lib.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index d47bc38bc0..fefe45dd8e 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -745,7 +745,9 @@ displayed in BUFNAME."
 
 (defun helm-help-quit ()
   "Quit `helm-help'."
-  (throw 'helm-help-quit nil))
+  (if (get-buffer-window helm-help-buffer-name 'visible)
+      (throw 'helm-help-quit nil)
+    (quit-window)))
 
 (defun helm-help-org-open-at-point ()
   "Calls `org-open-at-point' ignoring errors."