Mercurial > emacs
changeset 34033:a1f20ca97c0b
(tpu-forward-line): Use
forward-visible-line.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 30 Nov 2000 12:16:38 +0000 |
| parents | 50b14d8d684b |
| children | 243d06aee783 |
| files | lisp/emulation/tpu-extras.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/tpu-extras.el Thu Nov 30 11:57:36 2000 +0000 +++ b/lisp/emulation/tpu-extras.el Thu Nov 30 12:16:38 2000 +0000 @@ -1,6 +1,6 @@ ;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt -;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. ;; Author: Rob Riepel <riepel@networking.stanford.edu> ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> @@ -216,7 +216,7 @@ (interactive "p") (let ((beg (tpu-current-line))) (backward-char 1) - (forward-line (- 1 num)) + (forward-visible-line (- 1 num)) (tpu-top-check beg num))) (defun tpu-next-end-of-line (num)