From 5f6a0375b3eb7f646462404a9ef7d9f571e3ba02 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 29 Jul 1999 21:56:02 +0000 Subject: [PATCH] (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. --- lisp/textmodes/picture.el | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 4d3d4741681..55b4a4df5cc 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -87,9 +87,7 @@ If scan reaches end of buffer, stop there without error." (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 scan reaches end of buffer, stop there without error." (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 @@ always moves to the beginning of a line." (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 @@ With positive argument insert that many lines." (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." -- 2.39.5