diff options
| author | Gerd Moellmann | 2000-11-30 12:16:38 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-11-30 12:16:38 +0000 |
| commit | 1bb45f861c2e4411c35c17b283e5298a553bc93d (patch) | |
| tree | a8644c871636fa9cbd7146262bcbae4b750bd79a /lisp | |
| parent | 88257bc85fdca15caa9f6af0285853ecea691958 (diff) | |
| download | emacs-1bb45f861c2e4411c35c17b283e5298a553bc93d.tar.gz emacs-1bb45f861c2e4411c35c17b283e5298a553bc93d.zip | |
(tpu-forward-line): Use
forward-visible-line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/tpu-extras.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index dc16fc80ad2..4422aebdbd5 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt | 1 | ;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> | 5 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> |
| 6 | ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> | 6 | ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> |
| @@ -216,7 +216,7 @@ Accepts a prefix argument for the number of lines to move." | |||
| 216 | (interactive "p") | 216 | (interactive "p") |
| 217 | (let ((beg (tpu-current-line))) | 217 | (let ((beg (tpu-current-line))) |
| 218 | (backward-char 1) | 218 | (backward-char 1) |
| 219 | (forward-line (- 1 num)) | 219 | (forward-visible-line (- 1 num)) |
| 220 | (tpu-top-check beg num))) | 220 | (tpu-top-check beg num))) |
| 221 | 221 | ||
| 222 | (defun tpu-next-end-of-line (num) | 222 | (defun tpu-next-end-of-line (num) |