Lines Matching +defs:backward +defs:word
194 ;; ; TPU-edt treats words like EDT; here's how to add word separators.
196 ;; (tpu-add-word-separators "]\\[-_,.\"=+()'/*#:!&;$")
332 (define-key map "D" 'tpu-backward-char) ; left
354 (define-key map "25~" 'tpu-delete-previous-word) ; F13 (LF)
564 (define-key map "D" 'tpu-backward-char) ; left
570 (define-key map "q" 'tpu-word) ; KP1
579 (define-key map "m" 'tpu-delete-current-word) ; KP-
609 "Last text deleted by a TPU-edt word-delete command.")
632 "True when TPU-edt is operating in the backward direction.")
946 (tpu-local-set-key "\177" 'picture-backward-clear-column)
1116 ^J delete previous word
1242 (backward-page)
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)
1480 and backward a character after a failed search. Arg means end of search."
1502 (defun tpu-search-backward-exit nil
1503 "Set search direction backward and exit minibuffer."
1675 (defun tpu-delete-current-word (num)
1680 (tpu-forward-to-word num)
1685 (defun tpu-delete-previous-word (num)
1690 (tpu-backward-to-word num)
1738 "Insert words deleted by last TPU-edt word-deletion command.
1926 (if tpu-advance (tpu-forward-char num) (tpu-backward-char num)))
1933 (defun tpu-backward-char (num)
1936 (backward-char num))
1940 ;;; Movement by word
1942 (defvar tpu-word-separator-list '()
1943 "List of additional word separators.")
1945 "Characters to skip when moving by word.
1946 Additional word separators are added to this string.")
1948 (defun tpu-word (num)
1949 "Move to the beginning of the next word in the current direction.
1952 (if tpu-advance (tpu-forward-to-word num) (tpu-backward-to-word num)))
1954 (defun tpu-forward-to-word (num)
1955 "Move forward until encountering the beginning of a word.
1963 ((memq (char-after (point)) tpu-word-separator-list)
1971 (defun tpu-backward-to-word (num)
1972 "Move backward until encountering the beginning of a word.
1980 ((memq (char-after (1- (point))) tpu-word-separator-list)
1983 (skip-chars-backward " \t" end)
1984 (skip-chars-backward tpu-skip-chars end)
1989 (defun tpu-add-word-separators (separators)
1990 "Add new word separators for TPU-edt word commands."
1996 (cond ((not (memq char tpu-word-separator-list))
1997 (setq tpu-word-separator-list
1998 (append ss tpu-word-separator-list))
2009 (defun tpu-reset-word-separators nil
2010 "Reset word separators to default value."
2012 (setq tpu-word-separator-list nil)
2015 (defun tpu-set-word-separators (separators)
2016 "Set new word separators for TPU-edt word commands."
2018 (tpu-reset-word-separators)
2019 (tpu-add-word-separators separators))
2043 (backward-char 1)
2076 (if tpu-advance (tpu-forward-line num) (tpu-backward-line num)))
2084 (defun tpu-backward-line (num)
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)
2139 (if tpu-advance (forward-page num) (backward-page num))
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)