Lines Matching +defs:arrow +defs:char
89 ;; the arrow keys can move the cursor past the ends of lines. Free is the
332 (define-key map "D" 'tpu-backward-char) ; left
333 (define-key map "C" 'tpu-forward-char) ; right
368 (define-key map "A" 'tpu-move-to-beginning) ; up-arrow
369 (define-key map "B" 'tpu-move-to-end) ; down-arrow
370 (define-key map "C" 'end-of-line) ; right-arrow
371 (define-key map "D" 'beginning-of-line) ; left-arrow
405 (define-key map "A" 'tpu-move-to-beginning) ; up-arrow
406 (define-key map "B" 'tpu-move-to-end) ; down-arrow
407 (define-key map "C" 'end-of-line) ; right-arrow
408 (define-key map "D" 'beginning-of-line) ; left-arrow
425 (define-key map "l" 'tpu-undelete-char) ; KP,
563 (define-key map "C" 'tpu-forward-char) ; right
564 (define-key map "D" 'tpu-backward-char) ; left
572 (define-key map "s" 'tpu-char) ; KP3
580 (define-key map "l" 'tpu-delete-current-char) ; KP,
610 (defvar tpu-last-deleted-char ""
807 (let ((ans (read-char)))
852 (goto-char (tpu-cadr (get tpu-breadcrumb-plist num)))
868 (funcall (if (= (downcase (char-after beg)) (char-after beg))
876 (funcall (if (= (downcase (char-after beg)) (char-after beg))
883 (funcall (if (= (downcase (following-char)) (following-char))
886 (forward-char (if tpu-reverse -1 1))
953 (if overwrite-mode (delete-char 1))
960 (let ((char (read-char)) )
961 (if overwrite-mode (delete-char num))
962 (insert-char char num)))
1438 (tpu-set-match) (goto-char (tpu-match-beginning)))
1454 (goto-char pos) (tpu-set-match)
1482 (cond (arg (if (not (bobp)) (forward-char -1)))
1483 (t (if (not (eobp)) (forward-char 1))))))
1646 (if (not (eq (preceding-char) ?\n))
1658 (forward-char 1)
1695 (defun tpu-delete-current-char (num)
1697 character deleted is saved for the TPU-edt undelete-char command."
1700 (setq tpu-last-deleted-char (char-after (point)))
1703 (forward-char 1))
1705 (delete-char 1)))
1722 (goto-char beg)))
1735 (goto-char beg)))
1745 (goto-char beg)))
1747 (defun tpu-undelete-char (num)
1752 (if overwrite-mode (prog1 (forward-char -1) (delete-char 1)))
1753 (insert tpu-last-deleted-char)
1754 (forward-char -1)
1788 (if tpu-searching-forward (forward-char -1) (goto-char beg))
1816 (let ((ans (read-char)))
1822 (if tpu-searching-forward (forward-char -1) (goto-char beg)))
1833 (if tpu-searching-forward (forward-char -1) (goto-char beg)))
1839 (if tpu-searching-forward (forward-char -1) (goto-char beg)))
1847 (if tpu-searching-forward (forward-char -1) (goto-char beg)))
1885 (goto-char (point-min))
1905 (goto-char (point-min))
1914 (goto-char (point-min))
1922 (defun tpu-char (num)
1926 (if tpu-advance (tpu-forward-char num) (tpu-backward-char num)))
1928 (defun tpu-forward-char (num)
1931 (forward-char num))
1933 (defun tpu-backward-char (num)
1936 (backward-char num))
1960 (end (prog2 (end-of-line) (point) (goto-char beg))))
1962 (forward-char 1))
1963 ((memq (char-after (point)) tpu-word-separator-list)
1964 (forward-char 1)
1977 (end (prog2 (beginning-of-line) (point) (goto-char beg))))
1979 ( forward-char -1))
1980 ((memq (char-after (1- (point))) tpu-word-separator-list)
1981 (forward-char -1))
1985 (if (and (not (bolp)) (= ? (char-syntax (char-after (point)))))
1986 (forward-char -1)))))
1994 (let ((char (aref separators n))
1996 (cond ((not (memq char tpu-word-separator-list))
1999 (cond ((= char ?-)
2001 ((= char ?\\)
2003 ((= char ?^)
2043 (backward-char 1)
2056 (forward-char 1)
2110 (goto-char (match-beginning 0))
2111 (goto-char (point-max))))
2126 (goto-char (match-beginning 0)))))
2127 (goto-char (point-min)))
2187 (goto-char (point-min)))
2192 (goto-char (point-max))
2200 (goto-char (/ (* (point-max) perc) 100))))
2327 (goto-char (point-max)))
2333 (goto-char (point-max)))
2335 (defun tpu-arrow-history nil
2434 (goto-char (point-min))
2465 (tpu-arrow-history)