# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 933285362 0
# Node ID bfdfc5515d48568d437aaad94cc6a0b370416d13
# Parent  34ce1470ac01b857e5ac7ef15376693288f3cd09
(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.

diff -r 34ce1470ac01 -r bfdfc5515d48 lisp/textmodes/picture.el
--- 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."