mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(tpu-next-line, tpu-previous-line, tpu-forward-line, tpu-backward-line)

Browse source 
(tpu-scroll-window-down, tpu-scroll-window-up):
Replace next-line-internal -> line-move.
This commit is contained in:
Stefan Monnier 2007-11-16 03:18:49 +00:00
parent cc39740b6e
commit 4dc2bd4d48
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

12
lisp/emulation/tpu-extras.el
View file

@ -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)))