Commit 4dc2bd4d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(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.
parent cc39740b
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
......@@ -196,7 +196,7 @@ Prefix argument serves as a repeat count."
(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."
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 @@ Accepts a prefix argument for the number of lines to move."
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 @@ Prefix argument serves as repeat count."
(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 @@ A repeat count means scroll that many sections."
(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 @@ A repeat count means scroll that many sections."
(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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment