changeset 25106:bfdfc5515d48

(picture-beginning-of-line): Don't call hscroll-point-visible now we have real autoscrolling. (picture-end-of-line, picture-newline, picture-open-line): Likewise.

--- a/lisp/textmodes/picture.el	Thu Jul 29 21:50:47 1999 +0000
+++ b/lisp/textmodes/picture.el	Thu Jul 29 21:56:02 1999 +0000
@@ -87,9 +87,7 @@
   (interactive "P")
   (if arg (forward-line (1- (prefix-numeric-value arg))))
   (beginning-of-line)
-  (setq picture-desired-column 0)
-  ;; This call will go away when Emacs gets real horizontal autoscrolling
-  (hscroll-point-visible))
+  (setq picture-desired-column 0))
 
 (defun picture-end-of-line (&optional arg)
   "Position point after last non-blank character on current line.
@@ -99,9 +97,7 @@
   (if arg (forward-line (1- (prefix-numeric-value arg))))
   (beginning-of-line)
   (skip-chars-backward " \t" (prog1 (point) (end-of-line)))
-  (setq picture-desired-column (current-column))
-  ;; This call will go away when Emacs gets real horizontal autoscrolling
-  (hscroll-point-visible))
+  (setq picture-desired-column (current-column)))
 
 (defun picture-forward-column (arg)
   "Move cursor right, making whitespace if necessary.
@@ -306,9 +302,7 @@
     (while (> arg 0)
       (end-of-line)
       (if (eobp) (newline) (forward-char 1))
-      (setq arg (1- arg))))
-  ;; This call will go away when Emacs gets real horizontal autoscrolling
-  (hscroll-point-visible))
+      (setq arg (1- arg)))))
 
 (defun picture-open-line (arg)
   "Insert an empty line after the current line.
@@ -316,9 +310,7 @@
   (interactive "p")
   (save-excursion
    (end-of-line)
-   (open-line arg))
-  ;; This call will go away when Emacs gets real horizontal autoscrolling
-  (hscroll-point-visible))
+   (open-line arg)))
 
 (defun picture-duplicate-line ()
   "Insert a duplicate of the current line, below it."