# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1186076580 0
# Node ID 4821c04b4edbe60ef4fdc404da83cfd34a13a550
# Parent  288786c0611257120d3f318987b0de4e650429be
(next-line-internal): Setting deleted.  All callers use line-move.

diff -r 288786c06112 -r 4821c04b4edb lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Thu Aug 02 17:40:54 2007 +0000
+++ b/lisp/emulation/tpu-edt.el	Thu Aug 02 17:43:00 2007 +0000
@@ -1069,13 +1069,6 @@
 (defalias 'tpu-error 'error)
 
 
-;; Around emacs version 18.57, function line-move was renamed to
-;; next-line-internal.  If we're running under an older emacs,
-;; make next-line-internal equivalent to line-move.
-
-(if (not (fboundp 'next-line-internal)) (fset 'next-line-internal 'line-move))
-
-
 ;;;
 ;;;  Help
 ;;;
@@ -2026,14 +2019,14 @@
   "Move to next line.
 Prefix argument serves as a repeat count."
   (interactive "p")
-  (next-line-internal num)
+  (line-move num)
   (setq this-command 'next-line))
 
 (defun tpu-previous-line (num)
   "Move to previous line.
 Prefix argument serves as a repeat count."
   (interactive "p")
-  (next-line-internal (- num))
+  (line-move (- num))
   (setq this-command 'previous-line))
 
 (defun tpu-next-beginning-of-line (num)
@@ -2156,7 +2149,7 @@
   (let* ((beg (tpu-current-line))
 	 (height (1- (window-height)))
 	 (lines (* num (/ (* height tpu-percent-scroll) 100))))
-    (next-line-internal (- lines))
+    (line-move (- lines))
     (if (> lines beg) (recenter 0))))
 
 (defun tpu-scroll-window-up (num)
@@ -2166,7 +2159,7 @@
   (let* ((beg (tpu-current-line))
 	 (height (1- (window-height)))
 	 (lines (* num (/ (* height tpu-percent-scroll) 100))))
-    (next-line-internal lines)
+    (line-move lines)
     (if (>= (+ lines beg) height) (recenter -1))))
 
 (defun tpu-pan-right (num)