Lines Matching +defs:skip +defs:chars +defs:backward
225 viper-del-backward-char-in-insert
226 viper-del-backward-char-in-replace
227 viper-delete-backward-char
264 (defsubst viper-trim-replace-chars-to-delete-if-necessary ()
265 (setq viper-replace-chars-to-delete
267 (min viper-replace-chars-to-delete
269 (viper-chars-in-region
273 (viper-chars-in-region (point) (viper-line-pos 'end))
286 ;; viper-delete-backward-char, etc., since they either don't change
293 ;; delete characters to compensate for inserted chars.
297 (viper-trim-replace-chars-to-delete-if-necessary)
298 (delete-char viper-replace-chars-to-delete)
299 (setq viper-replace-chars-to-delete 0)
376 (or (bolp) (viper-beginning-of-field) (backward-char 1))))
437 "\C-h" 'viper-del-backward-char-in-insert)
439 "\C-h" 'viper-del-backward-char-in-replace))
442 [backspace] 'viper-del-backward-char-in-insert)
444 [backspace] 'viper-del-backward-char-in-replace)
450 (define-key viper-vi-basic-map "\C-h" 'viper-backward-char))
452 (define-key viper-vi-basic-map [backspace] 'viper-backward-char))
853 ;; Make sure ^V and ^Q work as quotation chars
875 ;; Make sure ^V and ^Q work as quotation chars
892 ;; Make sure ^V and ^Q work as quotation chars
903 ;; Make sure ^V and ^Q work as quotation chars
1420 (insert " ")(backward-char 1)))
1429 (viper-backward-char-carefully)) ; give back the newline
1461 (let (chars-deleted)
1475 (setq chars-deleted (abs (- (point) viper-com-point)))
1476 (if (> chars-deleted viper-change-notification-threshold)
1478 (message "Deleted %d characters" chars-deleted)))
1482 (if (and (eolp) (not (bolp))) (backward-char 1)))))
1514 (let (chars-saved)
1528 (setq chars-saved (abs (- (point) viper-com-point)))
1529 (if (> chars-saved viper-change-notification-threshold)
1531 (message "Saved %d characters" chars-saved)))
1686 (or (bolp) (backward-char 1))))
1688 (backward-char 1))
1736 ;; The chars that can follow `#' are determined by viper-hash-command-p
1814 (if (and (eolp) (not (bolp))) (backward-char 1))
1825 (if (and (eolp) (not (bolp))) (backward-char 1))
1942 (backward-delete-char
2435 viper-replace-chars-to-delete 0)
2458 (setq viper-replace-region-chars-deleted (viper-chars-in-region beg end))
2461 ;; Invoked as an after-change-function to calculate how many chars have to be
2464 ;; adds up the number of chars inserted and subtracts the number of chars
2472 (setq viper-replace-chars-to-delete 0)
2481 (chars-deleted 0))
2484 (setq chars-deleted viper-replace-region-chars-deleted))
2485 (setq viper-replace-region-chars-deleted 0)
2486 (setq viper-replace-chars-to-delete
2487 (+ viper-replace-chars-to-delete
2490 ;; column-shift instead of the number of inserted chars
2491 (max (viper-chars-in-region beg real-end)
2492 ;; This test accounts for Chinese/Japanese/... chars,
2494 ;; column-shift here, we may delete two chars instead of
2496 ;; Deleting two would be OK, if they were European chars,
2497 ;; but it is not OK if they are Chinese chars.
2501 ;; characters equally, even though Eastern chars may
2507 ;; the number of deleted chars
2508 chars-deleted)))
2627 ;; skip to the next line
2700 "Replace the following ARG chars by the character read."
2721 (setq char (if com viper-d-char (viper-char-at-pos 'backward)))
2732 (backward-char arg)
2757 (if (eolp) (progn (backward-char 1) (error ""))))
2762 (defun viper-backward-char (arg)
2772 (if (bolp) (error "") (backward-char val))
2773 (if com (viper-execute-com 'viper-backward-char val com)))
2774 (backward-char val)
2775 (if com (viper-execute-com 'viper-backward-char val com)))))
2788 (- (viper-chars-in-region pt (point)))
2789 (viper-chars-in-region pt (point)))))
2792 ;; Like backward-char, but doesn't move at beg of buffer.
2795 (defun viper-backward-char-carefully (&optional arg)
2799 (backward-char arg)
2802 (viper-chars-in-region pt (point))
2803 (- (viper-chars-in-region pt (point))))))
2821 ;; skip only one \n
2822 (defun viper-skip-separators (forward)
2825 (viper-skip-all-separators-forward 'within-line)
2829 (viper-skip-all-separators-forward 'within-line))))
2832 (viper-backward-char-carefully)
2834 (viper-backward-char-carefully))
2835 (viper-skip-all-separators-backward 'within-line)
2836 (viper-backward-char-carefully)
2838 (viper-skip-all-separators-backward 'within-line)
2845 (viper-skip-alpha-forward "_")
2846 (viper-skip-separators t))
2848 (viper-skip-separators t))
2850 (viper-skip-nonalphasep-forward)
2851 (viper-skip-separators t)))
2854 ;; first skip non-newline separators backward, then skip \n. Then, if TWICE is
2855 ;; non-nil, skip non-\n back again, but don't overshoot the limit LIM.
2857 (let ((prev-char (viper-char-at-pos 'backward))
2859 ;; skip non-newline separators backward
2866 (viper-backward-char-carefully)
2867 (setq prev-char (viper-char-at-pos 'backward)))
2870 (backward-char)
2872 ;; consist of separators preceded by a newline, then don't skip backwards
2875 (setq prev-char (viper-char-at-pos 'backward))
2877 ;; skip again, but make sure we don't overshoot the limit
2885 (viper-backward-char-carefully)
2886 (setq prev-char (viper-char-at-pos 'backward))))
2922 (viper-skip-nonseparators 'forward)
2923 (viper-skip-separators t))
2940 (viper-skip-all-separators-forward))
2942 (cond ((viper-looking-at-alpha) (viper-skip-alpha-forward "_"))
2943 ((not (viper-looking-at-alphasep)) (viper-skip-nonalphasep-forward)))
2944 (viper-backward-char-carefully))
2979 (viper-skip-nonseparators 'forward)
2980 (backward-char))
2986 (defun viper-backward-word-kernel (val)
2988 (viper-backward-char-carefully)
2990 (viper-skip-alpha-backward "_"))
2993 (viper-skip-separators nil)
2994 (viper-backward-char-carefully)
2996 (viper-skip-alpha-backward "_"))
2998 (viper-skip-nonalphasep-backward))
3002 (viper-skip-nonalphasep-backward)))
3005 (defun viper-backward-word (arg)
3013 (if (setq i (save-excursion (backward-char) (looking-at "\n")))
3014 (backward-char))
3017 (viper-backward-word-kernel val)
3018 (if com (viper-execute-com 'viper-backward-word val com))))
3020 (defun viper-backward-Word (arg)
3028 (if (setq i (save-excursion (backward-char) (looking-at "\n")))
3029 (backward-char))
3033 (viper-skip-separators nil) ; nil means backward here
3034 (viper-skip-nonseparators 'backward))
3035 (if com (viper-execute-com 'viper-backward-Word val com))))
3052 (defun viper-bol-and-skip-white (arg)
3060 (if com (viper-execute-com 'viper-bol-and-skip-white val com))))
3075 (backward-char 1)
3087 (viper-chars-in-region
3093 (backward-char 1))
3110 (if (and (eolp) (not (bolp))) (backward-char 1)))
3153 (if (and (eolp) (not (bolp))) (backward-char 1)))
3215 ;; If FORWARD then search is forward, otherwise backward. OFFSET is used to
3235 (viper-backward-paragraph 1)
3263 (backward-char (if offset 2 1))
3323 (defun viper-find-char-backward (arg)
3324 "Find char ARG on line backward."
3347 (viper-execute-com 'viper-find-char-backward val com)))))
3349 (defun viper-goto-char-backward (arg)
3350 "Go up to char ARG backward on line."
3373 (viper-execute-com 'viper-goto-char-backward val com)))))
3483 ;; (which is called from viper-search-forward/backward/next). If the value of
3544 (backward-char) )
3545 ((re-search-backward "[][(){}]" beg-lim t))
3553 (backward-char)))
3564 (backward-sexp 1)
3591 (defun viper-backward-sentence (arg)
3599 (backward-sentence val)
3600 (if com (viper-execute-com 'viper-backward-sentence nil com))))
3615 (backward-char 1)
3618 (defun viper-backward-paragraph (arg)
3628 (backward-paragraph val)
3632 (viper-execute-com 'viper-backward-paragraph nil com)
3633 (backward-char 1)))))
3641 (re-search-backward viper-heading-start nil t val)
3891 (defun viper-search-backward (arg)
3892 "Search a string backward.
3915 ;; Search is forward if FORWARD is non-nil, otherwise backward.
3935 (re-search-backward string))
3937 (search-backward string))
3961 ;; backward
3965 (re-search-backward string nil nil val)
3966 (search-backward string nil nil val))
4053 ;; This is a Viper wraper for isearch-backward."
4054 (defun viper-isearch-backward (arg)
4055 "Do incremental search backward."
4059 (viper-exec-form-in-emacs (list 'isearch-backward arg)))
4128 sv-point chars-inserted lines-inserted)
4149 (setq chars-inserted (abs (- (point) sv-point))
4151 (if (or (> chars-inserted viper-change-notification-threshold)
4155 chars-inserted lines-inserted))))
4160 (or (= (point) (mark)) (viper-backward-char-carefully))
4178 sv-point chars-inserted lines-inserted)
4192 (setq chars-inserted (abs (- (point) sv-point))
4194 (if (or (> chars-inserted viper-change-notification-threshold)
4198 chars-inserted lines-inserted))))
4203 (or (= (point) (mark)) (viper-backward-char-carefully))
4226 (> val (viper-chars-in-region (point) (viper-line-pos 'end))))
4227 (setq val (viper-chars-in-region (point) (viper-line-pos 'end))))
4246 (if (and (eolp) (not (bolp))) (backward-char 1)))
4249 (defun viper-delete-backward-char (arg)
4255 (list 'viper-delete-backward-char val nil nil nil nil))
4258 (> val (viper-chars-in-region (viper-line-pos 'start) (point))))
4259 (setq val (viper-chars-in-region (viper-line-pos 'start) (point))))
4261 (viper-backward-char-carefully val)
4275 (delete-backward-char val t)))
4278 (defun viper-del-backward-char-in-insert ()
4284 (delete-backward-char 1 nil)))
4287 (defun viper-del-backward-char-in-replace ()
4297 (delete-backward-char 1 nil))
4304 (delete-backward-char 1 nil))))
4308 (backward-char 1)))
4310 (backward-char 1))))
4334 (backward-char 1))
4374 (delete-backward-char 1)
4421 (if (eolp) (backward-char 1))
4547 (defun viper-goto-mark-and-skip-white (arg)
4548 "Go to mark and skip to first non-white character on line."
4554 (defun viper-goto-mark-subr (char com skip-white)
4558 (backward-char 1)))
4585 (cond (skip-white
4590 (viper-execute-com (if skip-white
4591 'viper-goto-mark-and-skip-white
4598 ((and (not skip-white) (viper= char ?`))
4609 ((and skip-white (viper= char ?'))
4619 (if com (viper-execute-com 'viper-goto-mark-and-skip-white nil com)))
4635 (and (save-excursion (re-search-backward str nil t))
4645 (defun viper-backward-indent ()
4654 (delete-backward-char 1)
4660 (if (re-search-backward "[^ \t]" bol 1) (forward-char))
4743 (if (re-search-backward "[^ \t]" nil t)
4769 (defun viper-delete-backward-word (arg)
4774 (backward-word arg)