From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 30 Nov 2000 12:16:38 +0000 (+0000)
Subject: (tpu-forward-line): Use
X-Git-Tag: emacs-pretest-21.0.93~356
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bb45f861c2e4411c35c17b283e5298a553bc93d;p=emacs.git

(tpu-forward-line): Use
forward-visible-line.
---

diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index dc16fc80ad2..4422aebdbd5 100644
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -1,6 +1,6 @@
 ;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt
 
-;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
 
 ;; Author: Rob Riepel <riepel@networking.stanford.edu>
 ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
@@ -216,7 +216,7 @@ Accepts a prefix argument for the number of lines to move."
   (interactive "p")
   (let ((beg (tpu-current-line)))
     (backward-char 1)
-    (forward-line (- 1 num))
+    (forward-visible-line (- 1 num))
     (tpu-top-check beg num)))
 
 (defun tpu-next-end-of-line (num)