From df3bff9421484c64ef2c48fa7c0e51f58ed629ae Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 28 Aug 2021 16:59:50 +0200
Subject: [PATCH] - fixed 'valid-results-p' when a global search is performed.

---
 doc/man.org          | 2 +-
 src/keybindings.lisp | 6 +++++-
 src/ui-goodies.lisp  | 3 ++-
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/doc/man.org b/doc/man.org
index 82c437d..e00a606 100644
--- a/doc/man.org
+++ b/doc/man.org
@@ -258,7 +258,7 @@
   all its table of  contents on the tour mode, so  that the book could
   be browsed.
 
-  For more information on tour mode use /'C-h a <enter> tour'/.
+  For more information on tour mode use /'C-h A <enter> tour mode'/.
 
 * How to get more help
 
diff --git a/src/keybindings.lisp b/src/keybindings.lisp
index 7c19672..34fdbfe 100644
--- a/src/keybindings.lisp
+++ b/src/keybindings.lisp
@@ -544,7 +544,9 @@ and `make-blocking-list-dialog-window') showing the full docstring for a command
                                  text
                                  (tui:tui-string->chars-string text)))))))
              (valid-results-p (fields)
-               (> (length fields) 2)))
+               (if global-search
+                   fields
+                   (> (length fields) 2))))
       (when-let* ((focused-keybindings   (main-window:focused-keybindings main-window))
                   (global-help           (sort-help (if global-search
                                                         (loop for i in *all-keymaps* append
@@ -569,6 +571,8 @@ and `make-blocking-list-dialog-window') showing the full docstring for a command
                                                  fields))
                    (actual-lines  (mapcar #'help-fields-get-text actual-fields))
                    (no-help-message (list (_ "No command matching your criteria found"))))
+              (misc:dbg "aext ~a ->~a" actual-fields (valid-results-p actual-fields))
+
               (if (valid-results-p actual-fields)
                   (line-oriented-window:make-blocking-list-dialog-window specials:*main-window*
                                                                          actual-fields
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 8a38148..53809d3 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -1997,7 +1997,8 @@ gemini://gemini.circumlunar.space/docs/companion/subscription.gmi
         (info-message (_ "Tour saved")))))
 
   (defun tour-mode-link ()
-    "Enable   \"tour  mode\".   Ask  for   link  indices,   each  link
+    "Enable   \"tour  mode\".
+    Ask  for   link  indices,   each  link
     corresponding to the  index will be saved in a  special queue that
     can be opened using `next-tour-link' in a last-in last-out way.