Mercurial > emacs
changeset 78391:4821c04b4edb
(next-line-internal): Setting deleted. All callers use line-move.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 Aug 2007 17:43:00 +0000 |
| parents | 288786c06112 |
| children | 9c5026c874d9 |
| files | lisp/emulation/tpu-edt.el |
| diffstat | 1 files changed, 4 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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)