Lines Matching +defs:next +defs:char
57 ;; Down-Arrow next line x x
58 ;; Right-Arrow next character x
60 ;; KP0 next or previous line x
61 ;; KP7 next or previous page x
62 ;; KP8 next or previous screen x
63 ;; KP2 next or previous end-of-line x x
66 ;; Next Scr next screen x
71 ;; Paragraph next or previous paragraph x
125 (defcustom tpu-backward-char-like-tpu t
126 "*If non-nil, in free cursor mode backward-char (left-arrow) works
127 just like TPU/edt. Otherwise, backward-char will move to the end of
173 (defun tpu-forward-char (num)
176 (if tpu-cursor-free (picture-forward-column num) (forward-char num)))
178 (defun tpu-backward-char (num)
182 (backward-char num))
183 (tpu-backward-char-like-tpu
186 (backward-char 1)
195 (defun tpu-next-line (num)
196 "Move to next line.
201 (next-line-internal num))
203 (setq this-command 'next-line)))
210 (if tpu-cursor-free (picture-move-up num) (next-line-internal (- num)))
214 (defun tpu-next-beginning-of-line (num)
215 "Move to beginning of line; if at beginning, move to beginning of next line.
219 (backward-char 1)
223 (defun tpu-next-end-of-line (num)
224 "Move to end of line; if at end, move to end of next line.
234 (forward-char)
257 "Move to beginning of next line.
261 (next-line-internal num)
271 (next-line-internal (- num))
279 "Move to the next paragraph in the current direction.
295 (goto-char bottom) (forward-line (- height 2)) (point))))
297 (tpu-next-paragraph num)
312 "Move to the next page in the current direction.
328 (goto-char bottom) (forward-line (- height 2)) (point))))
345 "Scroll the display down to the next section.
351 (next-line-internal (- lines))
355 "Scroll the display up to the next section.
361 (next-line-internal lines)
382 (goto-char bottom) (forward-line (- height 2)) (point))))