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> 2007-11-16 Stefan Monnier <monnier@iro.umontreal.ca>
   
* pcvs-parse.el (cvs-parse-table): Ignore errors when looking up files * pcvs-parse.el (cvs-parse-table): Ignore errors when looking up files
...@@ -196,7 +196,7 @@ Prefix argument serves as a repeat count." ...@@ -196,7 +196,7 @@ Prefix argument serves as a repeat count."
(interactive "p") (interactive "p")
(let ((beg (tpu-current-line))) (let ((beg (tpu-current-line)))
(if tpu-cursor-free (or (eobp) (picture-move-down num)) (if tpu-cursor-free (or (eobp) (picture-move-down num))
(next-line-internal num)) (line-move num))
(tpu-bottom-check beg num) (tpu-bottom-check beg num)
(setq this-command 'next-line))) (setq this-command 'next-line)))
...@@ -205,7 +205,7 @@ Prefix argument serves as a repeat count." ...@@ -205,7 +205,7 @@ Prefix argument serves as a repeat count."
Prefix argument serves as a repeat count." Prefix argument serves as a repeat count."
(interactive "p") (interactive "p")
(let ((beg (tpu-current-line))) (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) (tpu-top-check beg num)
(setq this-command 'previous-line))) (setq this-command 'previous-line)))
...@@ -256,7 +256,7 @@ Accepts a prefix argument for the number of lines to move." ...@@ -256,7 +256,7 @@ Accepts a prefix argument for the number of lines to move."
Prefix argument serves as a repeat count." Prefix argument serves as a repeat count."
(interactive "p") (interactive "p")
(let ((beg (tpu-current-line))) (let ((beg (tpu-current-line)))
(next-line-internal num) (line-move num)
(tpu-bottom-check beg num) (tpu-bottom-check beg num)
(beginning-of-line))) (beginning-of-line)))
...@@ -266,7 +266,7 @@ Prefix argument serves as repeat count." ...@@ -266,7 +266,7 @@ Prefix argument serves as repeat count."
(interactive "p") (interactive "p")
(let ((beg (tpu-current-line))) (let ((beg (tpu-current-line)))
(or (bolp) (>= 0 num) (setq num (- num 1))) (or (bolp) (>= 0 num) (setq num (- num 1)))
(next-line-internal (- num)) (line-move (- num))
(tpu-top-check beg num) (tpu-top-check beg num)
(beginning-of-line))) (beginning-of-line)))
...@@ -346,7 +346,7 @@ A repeat count means scroll that many sections." ...@@ -346,7 +346,7 @@ A repeat count means scroll that many sections."
(let* ((beg (tpu-current-line)) (let* ((beg (tpu-current-line))
(height (1- (window-height))) (height (1- (window-height)))
(lines (* num (/ (* height tpu-percent-scroll) 100)))) (lines (* num (/ (* height tpu-percent-scroll) 100))))
(next-line-internal (- lines)) (line-move (- lines))
(tpu-top-check beg lines))) (tpu-top-check beg lines)))
(defun tpu-scroll-window-up (num) (defun tpu-scroll-window-up (num)
...@@ -356,7 +356,7 @@ A repeat count means scroll that many sections." ...@@ -356,7 +356,7 @@ A repeat count means scroll that many sections."
(let* ((beg (tpu-current-line)) (let* ((beg (tpu-current-line))
(height (1- (window-height))) (height (1- (window-height)))
(lines (* num (/ (* height tpu-percent-scroll) 100)))) (lines (* num (/ (* height tpu-percent-scroll) 100))))
(next-line-internal lines) (line-move lines)
(tpu-bottom-check beg 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