(hscroll-step, hscroll-point-visible, hscroll-window-column): Remove

now we have the mentioned real horizontal autoscrolling.

1 files changed, 0 insertions, 106 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 183f1bb2df9..a3118855351 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2412,112 +2412,6 @@ The goal column is stored in the variable `goal-column'."
              goal-column))
   nil)
 
-;;; Partial support for horizontal autoscrolling.  Someday, this feature
-;;; will be built into the C level and all the (hscroll-point-visible) calls
-;;; will go away.
-
-(defcustom hscroll-step 0
-   "*The number of columns to try scrolling a window by when point moves out.
-If that fails to bring point back on frame, point is centered instead.
-If this is zero, point is always centered after it moves off frame."
-   :type '(choice (const :tag "Alway Center" 0)
-                  (integer :format "%v" 1))
-   :group 'editing-basics)
-
-(defun hscroll-point-visible ()
-  "Scrolls the selected window horizontally to make point visible."
-  (save-excursion
-    (set-buffer (window-buffer))
-    (if (not (or truncate-lines
-                 (> (window-hscroll) 0)
-                 (and truncate-partial-width-windows
-                      (< (window-width) (frame-width)))))
-        ;; Point is always visible when lines are wrapped.
-        ()
-      ;; If point is on the invisible part of the line before window-start,
-      ;; then hscrolling can't bring it back, so reset window-start first.
-      (and (< (point) (window-start))
-           (let ((ws-bol (save-excursion
-                           (goto-char (window-start))
-                           (beginning-of-line)
-                           (point))))
-             (and (>= (point) ws-bol)
-                  (set-window-start nil ws-bol))))
-      (let* ((here (hscroll-window-column))
-             (left (min (window-hscroll) 1))
-             (right (1- (window-width))))
-        ;; Allow for the truncation glyph, if we're not exactly at eol.
-        (if (not (and (= here right)
-                      (= (following-char) ?\n)))
-            (setq right (1- right)))
-        (cond
-         ;; If too far away, just recenter.  But don't show too much
-         ;; white space off the end of the line.
-         ((or (< here (- left  hscroll-step))
-              (> here (+ right hscroll-step)))
-          (let ((eol (save-excursion (end-of-line) (hscroll-window-column))))
-            (scroll-left (min (- here (/ (window-width) 2))
-                              (- eol (window-width) -5)))))
-         ;; Within range.  Scroll by one step (or maybe not at all).
-         ((< here left)
-          (scroll-right hscroll-step))
-         ((> here right)
-          (scroll-left hscroll-step)))))))
-
-;; This function returns the window's idea of the display column of point,
-;; assuming that the window is already known to be truncated rather than
-;; wrapped, and that we've already handled the case where point is on the
-;; part of the line before window-start.  We ignore window-width; if point
-;; is beyond the right margin, we want to know how far.  The return value
-;; includes the effects of window-hscroll, window-start, and the prompt
-;; string in the minibuffer.  It may be negative due to hscroll.
-(defun hscroll-window-column ()
-  (let* ((hscroll (window-hscroll))
-         (startpos (save-excursion
-                     (beginning-of-line)
-                     (if (= (point) (save-excursion
-                                      (goto-char (window-start))
-                                      (beginning-of-line)
-                                      (point)))
-                         (goto-char (window-start)))
-                     (point)))
-         (hpos (+ (if (and (eq (selected-window) (minibuffer-window))
-                           (= 1 (window-start))
-                           (= startpos (point-min)))
-                      (minibuffer-prompt-width)
-                    0)
-                  (min 0 (- 1 hscroll))))
-         val)
-    (car (cdr (compute-motion startpos (cons hpos 0)
-                              (point) (cons 0 1)
-                              1000000 (cons hscroll 0) nil)))))
-
-  
-;; rms: (1) The definitions of arrow keys should not simply restate
-;; what keys they are.  The arrow keys should run the ordinary commands.
-;; (2) The arrow keys are just one of many common ways of moving point
-;; within a line.  Real horizontal autoscrolling would be a good feature,
-;; but supporting it only for arrow keys is too incomplete to be desirable.
-
-;;;;; Make arrow keys do the right thing for improved terminal support
-;;;;; When we implement true horizontal autoscrolling, right-arrow and
-;;;;; left-arrow can lose the (if truncate-lines ...) clause and become
-;;;;; aliases.  These functions are bound to the corresponding keyboard
-;;;;; events in loaddefs.el.
-
-;;(defun right-arrow (arg)
-;;  "Move right one character on the screen (with prefix ARG, that many chars).
-;;Scroll right if needed to keep point horizontally onscreen."
-;;  (interactive "P")
-;;  (forward-char arg)
-;;  (hscroll-point-visible))
-
-;;(defun left-arrow (arg)
-;;  "Move left one character on the screen (with prefix ARG, that many chars).
-;;Scroll left if needed to keep point horizontally onscreen."
-;;  (interactive "P")
-;;  (backward-char arg)
-;;  (hscroll-point-visible))
 
 (defun scroll-other-window-down (lines)
   "Scroll the \"other window\" down.