Mercurial > emacs

comparison lisp/emulation/tpu-extras.el @ 34033:a1f20ca97c0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-forward-line): Use forward-visible-line.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 30 Nov 2000 12:16:38 +0000
parents 4a3e3887c0dc
children 93dbe8902ff0
comparison
equal deleted inserted replaced
34032:50b14d8d684b 34033:a1f20ca97c0b
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>
7 ;; Keywords: emulations 7 ;; Keywords: emulations
8 8
214 "Move to beginning of line; if at beginning, move to beginning of next line. 214 "Move to beginning of line; if at beginning, move to beginning of next line.
215 Accepts a prefix argument for the number of lines to move." 215 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)
223 "Move to end of line; if at end, move to end of next line. 223 "Move to end of line; if at end, move to end of next line.
224 Accepts a prefix argument for the number of lines to move." 224 Accepts a prefix argument for the number of lines to move."