mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(tpu-forward-line): Use

Browse Source 
forward-visible-line.
This commit is contained in:
Gerd Moellmann 2000-11-30 12:16:38 +00:00
parent 88257bc85f
commit 1bb45f861c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emulation/tpu-extras.el
View File

@ -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 @@ Accepts a prefix argument for the number of lines to move."
(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)