[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el, v [EMACS_22_BA
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el, v [EMACS_22_BASE] |
Date: |
Thu, 02 Aug 2007 17:43:00 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Richard M. Stallman <rms> 07/08/02 17:43:00
Index: tpu-edt.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/tpu-edt.el,v
retrieving revision 1.49.2.2
retrieving revision 1.49.2.3
diff -u -b -r1.49.2.2 -r1.49.2.3
--- tpu-edt.el 25 Jul 2007 04:10:50 -0000 1.49.2.2
+++ tpu-edt.el 2 Aug 2007 17:43:00 -0000 1.49.2.3
@@ -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)
- [Emacs-diffs] Changes to emacs/lisp/emulation/tpu-edt.el, v [EMACS_22_BASE],
Richard M. Stallman <=