master 71209b2 2/2: Tweak how "u" works in Info buffers when scroll-conservatively is set

[Lars Ingebrigtsen]

branch: master
commit 71209b231a806bcc23f4fbe44a5fe54583809889
Author: Stephen Berman <stephen.berman@gmx.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Tweak how "u" works in Info buffers when scroll-conservatively is set
    
    * info.el (Info-up): If scroll-conservatively is non-zero and
    less than 101, display as much of the superior node above the
    target line as possible (Bug#13690).
---
 lisp/info.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/info.el b/lisp/info.el
index 78f8894..fc04099 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2308,7 +2308,11 @@ If SAME-FILE is non-nil, do not move to a different Info 
file."
                nil t))
          (progn (beginning-of-line) (if (looking-at "^\\* ") (forward-char 2)))
        (goto-char p)
-       (Info-restore-point Info-history)))))
+       (Info-restore-point Info-history))))
+  ;; If scroll-conservatively is non-zerop and less than 101, display
+  ;; as much of the superior node above the target line as possible.
+  (when (< 0 scroll-conservatively 101)
+    (recenter)))
 
 (defun Info-history-back ()
   "Go back in the history to the last node visited."