Commit 1bb45f86 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(tpu-forward-line): Use

forward-visible-line.
parent 88257bc8
;;; 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment