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).

diff --git a/lisp/info.el b/lisp/info.el
index 78f88947c79d32660eb5783c388b156986fd2860..fc04099e7e96ae590a09c85ebcddc75f38587013 100644 (file)
--- 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."