[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 27d21f7637 2/4: Fix helm-helm-quit function after jum
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 27d21f7637 2/4: Fix helm-helm-quit function after jumping to an external link |
Date: |
Sun, 6 Nov 2022 15:58:47 -0500 (EST) |
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."