Lines Matching +defs:backward +defs:delete +defs:char
332 (define-key map "D" 'tpu-backward-char) ; left
333 (define-key map "C" 'tpu-forward-char) ; right
354 (define-key map "25~" 'tpu-delete-previous-word) ; F13 (LF)
416 (define-key map "r" 'tpu-delete-to-eol) ; KP2
425 (define-key map "l" 'tpu-undelete-char) ; KP,
443 (define-key map "\C-h" 'delete-other-windows) ; BS
552 (define-key map "\177" 'delete-window) ; <X]
563 (define-key map "C" 'tpu-forward-char) ; right
564 (define-key map "D" 'tpu-backward-char) ; left
568 (define-key map "S" 'tpu-delete-current-line) ; PF4
572 (define-key map "s" 'tpu-char) ; KP3
579 (define-key map "m" 'tpu-delete-current-word) ; KP-
580 (define-key map "l" 'tpu-delete-current-char) ; KP,
607 "Last text deleted by a TPU-edt line-delete command.")
609 "Last text deleted by a TPU-edt word-delete command.")
610 (defvar tpu-last-deleted-char ""
611 "Last character deleted by a TPU-edt character-delete command.")
632 "True when TPU-edt is operating in the backward direction.")
662 (defvar tpu-saved-delete-func nil
663 "Saved value of the delete key.")
664 (make-variable-buffer-local 'tpu-saved-delete-func)
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))
942 (tpu-local-set-key "\177" tpu-saved-delete-func)
945 (setq tpu-saved-delete-func (local-key-binding "\177"))
946 (tpu-local-set-key "\177" 'picture-backward-clear-column)
953 (if overwrite-mode (delete-char 1))
960 (let ((char (read-char)) )
961 (if overwrite-mode (delete-char num))
962 (insert-char char num)))
1116 ^J delete previous word
1122 ^U delete to beginning of line
1138 K Kill Buffer - abandon edits and delete buffer
1198 (delete-other-windows)
1225 (delete-other-windows))
1242 (backward-page)
1300 (let ((delete-old-versions t))
1405 ;; tpu-search-forward-exit (t) tpu-search-backward-exit (t)
1414 (fset 'tpu-emacs-rev-search 're-search-backward))
1417 (fset 'tpu-emacs-rev-search 'search-backward))))
1420 (fset 'tpu-emacs-search 're-search-backward)
1423 (fset 'tpu-emacs-search 'search-backward)
1438 (tpu-set-match) (goto-char (tpu-match-beginning)))
1454 (goto-char pos) (tpu-set-match)
1480 and backward a character after a failed search. Arg means end of search."
1482 (cond (arg (if (not (bobp)) (forward-char -1)))
1483 (t (if (not (eobp)) (forward-char 1))))))
1502 (defun tpu-search-backward-exit nil
1503 "Set search direction backward and exit minibuffer."
1580 (delete-region (tpu-mark) (point))
1585 (delete-region beg end)
1614 argument, delete the selected region too."
1620 argument, delete the selected region too."
1627 (if (not arg) (delete-region beg end))
1634 (if (not arg) (delete-region beg end))
1639 (defun tpu-delete-current-line (num)
1646 (if (not (eq (preceding-char) ?\n))
1650 (delete-region beg (point))))
1652 (defun tpu-delete-to-eol (num)
1654 With argument, delete up to the Nth line-end past point.
1658 (forward-char 1)
1662 (delete-region beg (point))))
1664 (defun tpu-delete-to-bol (num)
1666 With argument, delete up to the Nth line-end past point.
1673 (delete-region (point) beg)))
1675 (defun tpu-delete-current-word (num)
1683 (delete-region beg (point))))
1685 (defun tpu-delete-previous-word (num)
1690 (tpu-backward-to-word num)
1693 (delete-region beg (point))))
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)
1767 (delete-region beg end)
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))
1916 (delete-region (match-beginning 0) (match-end 0))))))
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))
1952 (if tpu-advance (tpu-forward-to-word num) (tpu-backward-to-word 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)
1971 (defun tpu-backward-to-word (num)
1972 "Move backward until encountering the beginning of a word.
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))
1983 (skip-chars-backward " \t" end)
1984 (skip-chars-backward tpu-skip-chars end)
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)
2076 (if tpu-advance (tpu-forward-line num) (tpu-backward-line num)))
2084 (defun tpu-backward-line (num)
2110 (goto-char (match-beginning 0))
2111 (goto-char (point-max))))
2122 (if (not (and (re-search-backward "^[ \t]*$" nil t)
2123 (re-search-backward "[^ \t\n]" nil t)
2124 (re-search-backward "^[ \t]*$" nil t)
2126 (goto-char (match-beginning 0)))))
2127 (goto-char (point-min)))
2139 (if tpu-advance (forward-page num) (backward-page num))
2187 (goto-char (point-min)))
2192 (goto-char (point-max))
2200 (goto-char (/ (* (point-max) perc) 100))))
2236 "Set TPU Backup mode so keypad commands move backward."
2267 (define-key minibuffer-local-map "\eOu" 'tpu-search-backward-exit) ;KP5
2281 (define-key map "\C-j" 'tpu-delete-previous-word) ; ^J (LF)
2285 (define-key map "\C-u" 'tpu-delete-to-bol) ; ^U
2327 (goto-char (point-max)))
2333 (goto-char (point-max)))
2434 (goto-char (point-min))