(completion-setup-function):

[gnu-emacs] / lisp / info.el

diff --git a/lisp/info.el b/lisp/info.el
index 9ee468f311df20c8d3bcc2c715f74992e764400b..4a90b3e65bba4dd3a142b9fd7170cca9998bce8f 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1868,11 +1868,12 @@ and is not in the header line or a tag table."
     (let ((backward (< found beg-found)))
       (not
        (or
-       (if backward
-           (or (text-property-not-all found beg-found 'invisible nil)
-               (text-property-not-all found beg-found 'display nil))
-         (or (text-property-not-all beg-found found 'invisible nil)
-             (text-property-not-all beg-found found 'display nil)))
+       (and (not (eq search-invisible t))
+            (if backward
+                (or (text-property-not-all found beg-found 'invisible nil)
+                    (text-property-not-all found beg-found 'display nil))
+              (or (text-property-not-all beg-found found 'invisible nil)
+                  (text-property-not-all beg-found found 'display nil))))
        ;; Skip node header line
        (and (save-excursion (forward-line -1)
                             (looking-at "\^_"))