Mercurial > emacs

changeset 79434:ced2db270723

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-next-line, tpu-previous-line, tpu-forward-line, tpu-backward-line) (tpu-scroll-window-down, tpu-scroll-window-up): Replace next-line-internal -> line-move.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 16 Nov 2007 03:18:49 +0000
parents 855c06f0c064
children 31904ab276cd
files lisp/ChangeLog lisp/emulation/tpu-extras.el
diffstat 2 files changed, 12 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Nov 16 03:16:32 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 16 03:18:49 2007 +0000
@@ -1,3 +1,9 @@
+2007-11-16  Rob Riepel  <riepel@Stanford.EDU>
+
+	* emulation/tpu-extras.el (tpu-next-line, tpu-previous-line)
+	(tpu-forward-line, tpu-backward-line, tpu-scroll-window-down)
+	(tpu-scroll-window-up): Replace next-line-internal -> line-move.
+
 2007-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* pcvs-parse.el (cvs-parse-table): Ignore errors when looking up files
--- a/lisp/emulation/tpu-extras.el	Fri Nov 16 03:16:32 2007 +0000
+++ b/lisp/emulation/tpu-extras.el	Fri Nov 16 03:18:49 2007 +0000
@@ -196,7 +196,7 @@
   (interactive "p")
   (let ((beg (tpu-current-line)))
     (if tpu-cursor-free (or (eobp) (picture-move-down num))
-      (next-line-internal num))
+      (line-move num))
     (tpu-bottom-check beg num)
     (setq this-command 'next-line)))
 
@@ -205,7 +205,7 @@
 Prefix argument serves as a repeat count."
   (interactive "p")
   (let ((beg (tpu-current-line)))
-    (if tpu-cursor-free (picture-move-up num) (next-line-internal (- num)))
+    (if tpu-cursor-free (picture-move-up num) (line-move (- num)))
     (tpu-top-check beg num)
     (setq this-command 'previous-line)))
 
@@ -256,7 +256,7 @@
 Prefix argument serves as a repeat count."
   (interactive "p")
   (let ((beg (tpu-current-line)))
-    (next-line-internal num)
+    (line-move num)
     (tpu-bottom-check beg num)
     (beginning-of-line)))
 
@@ -266,7 +266,7 @@
   (interactive "p")
   (let ((beg (tpu-current-line)))
     (or (bolp) (>= 0 num) (setq num (- num 1)))
-    (next-line-internal (- num))
+    (line-move (- num))
     (tpu-top-check beg num)
     (beginning-of-line)))
 
@@ -346,7 +346,7 @@
   (let* ((beg (tpu-current-line))
 	 (height (1- (window-height)))
 	 (lines (* num (/ (* height tpu-percent-scroll) 100))))
-    (next-line-internal (- lines))
+    (line-move (- lines))
     (tpu-top-check beg lines)))
 
 (defun tpu-scroll-window-up (num)
@@ -356,7 +356,7 @@
   (let* ((beg (tpu-current-line))
 	 (height (1- (window-height)))
 	 (lines (* num (/ (* height tpu-percent-scroll) 100))))
-    (next-line-internal lines)
+    (line-move lines)
     (tpu-bottom-check beg lines)))