Lines Matching defs:point
189 viper-insert-point
190 (>= (point) viper-insert-point))
191 (setq viper-last-posn-while-in-insert-state (point-marker)))
194 (viper-set-replace-overlay (point-min) (point-min))
216 (integerp viper-pre-command-point)
217 (markerp viper-insert-point)
218 (marker-position viper-insert-point)
219 (> viper-insert-point viper-pre-command-point))
220 (viper-move-marker-locally viper-insert-point viper-pre-command-point))
238 (markerp viper-insert-point)
239 (marker-position viper-insert-point))
240 (setq viper-pre-command-point (marker-position viper-insert-point))))
247 ;; we set the point outside the replacement region, then the cursor color
249 (if (and (<= (viper-replace-start) (point))
250 (<= (point) (viper-replace-end)))
271 ;; point is viper-last-posn-in-replace-region now
273 (viper-chars-in-region (point) (viper-line-pos 'end))
282 ;; we set the point outside the replacement region, then the cursor color
305 (point) (viper-replace-start) replace-boundary)
310 (setq viper-last-posn-in-replace-region (point-marker))))
361 viper-insert-point
382 (viper-move-marker-locally 'viper-insert-point (point)))
384 'viper-last-posn-while-in-insert-state (point))
647 (viper-set-replace-overlay (point-min) (point-min)))
680 (viper-set-replace-overlay (point-min) (point-min)))
728 (viper-set-replace-overlay (point-min) (point-min)))
1414 (or (and (markerp viper-com-point) (marker-position viper-com-point))
1415 (set-marker viper-com-point (point) (current-buffer)))
1417 (if (or (and (eolp) (= viper-com-point (point)))
1418 (= viper-com-point (point-max)))
1421 (if (= viper-com-point (point))
1423 (set-mark viper-com-point)
1425 (viper-enlarge-region (mark t) (point)))
1426 (if (< (point) (mark t))
1427 (exchange-point-and-mark))
1431 (viper-change-subr (mark t) (point))
1432 (viper-change (mark t) (point))
1438 (set-mark viper-com-point)
1439 (viper-enlarge-region (mark t) (point))
1444 viper-use-register (mark t) (point) nil))
1447 (downcase viper-use-register) (mark t) (point)))
1451 (delete-region (mark t) (point)))
1459 (or (and (markerp viper-com-point) (marker-position viper-com-point))
1460 (set-marker viper-com-point (point) (current-buffer)))
1466 viper-use-register viper-com-point (point) nil))
1469 (downcase viper-use-register) viper-com-point (point)))
1475 (setq chars-deleted (abs (- (point) viper-com-point)))
1479 (kill-region viper-com-point (point))
1486 (set-mark viper-com-point)
1487 (viper-enlarge-region (mark t) (point))
1493 viper-use-register (mark t) (point) nil))
1496 (downcase viper-use-register) (mark t) (point)))
1502 (setq lines-deleted (count-lines (point) viper-com-point))
1506 (kill-region (mark t) (point))
1512 (or (and (markerp viper-com-point) (marker-position viper-com-point))
1513 (set-marker viper-com-point (point) (current-buffer)))
1519 viper-use-register viper-com-point (point) nil))
1522 (downcase viper-use-register) viper-com-point (point)))
1527 (copy-region-as-kill viper-com-point (point))
1528 (setq chars-saved (abs (- (point) viper-com-point)))
1532 (goto-char viper-com-point)))
1537 (set-mark viper-com-point)
1538 (viper-enlarge-region (mark t) (point))
1544 viper-use-register (mark t) (point) nil))
1547 (downcase viper-use-register) (mark t) (point)))
1552 (copy-region-as-kill (mark t) (point))
1553 (setq lines-saved (count-lines (mark t) (point)))
1558 (goto-char viper-com-point))
1562 (set-mark viper-com-point)
1563 (viper-enlarge-region (mark t) (point))
1564 (exchange-point-and-mark)
1566 (mark t) (point)
1580 (set-mark viper-com-point)
1581 (viper-enlarge-region (mark t) (point))
1582 (if (> (mark t) (point)) (exchange-point-and-mark))
1583 (indent-region (mark t) (point) nil)))
1587 (set-mark viper-com-point)
1588 (viper-enlarge-region (mark t) (point))
1589 (if (> (mark t) (point)) (exchange-point-and-mark))
1590 (indent-rigidly (mark t) (point)
1594 ;; return point to where it was before shift
1595 (goto-char viper-com-point))
1604 (regexp-quote (buffer-substring (point) viper-com-point)))
1662 (let ((save-point (point)) ; save point before repeating prev cmd
1683 (cond ((and (< save-point (point)) viper-keep-point-on-repeat)
1684 (goto-char save-point)) ; go back to before repeat.
1685 ((and (< save-point (point)) viper-ex-style-editing)
1739 (downcase-region (min viper-com-point (point))
1740 (max viper-com-point (point))))
1742 (upcase-region (min viper-com-point (point))
1743 (max viper-com-point (point))))
1745 (push-mark viper-com-point t)
1749 (push-mark viper-com-point t)
1752 (funcall viper-spell-function viper-com-point (point)))
1784 (before-undo-pt (point-marker))
1792 ;;(setq undo-beg-posn (or undo-beg-posn (point))
1793 ;; undo-end-posn (or undo-end-posn (point)))
1801 (if (and viper-keep-point-on-undo
1804 (push-mark (point-marker) t)
1997 (copy-region-as-kill (point) (mark t)))
2009 (exchange-point-and-mark)
2012 (if (> beg end) (exchange-point-and-mark)))
2034 (viper-enlarge-region (point) (mark t))
2035 (if (> (point) (mark t)) (exchange-point-and-mark))
2039 (while (and (< (point) (mark t)) (bolp))
2055 (cond ((or (> beg (point-max)) (> end (point-max))) ; out of range
2072 (let ((savemax (point-max)))
2076 (goto-char savemax) (delete-region (point) (point-max))
2120 (delete-region (minibuffer-prompt-end) (point-max))
2127 (point-min)))
2131 (when (< (point) (viper-minibuffer-real-start))
2174 (viper-minibuffer-real-start) (point-max)))
2176 (goto-char (point-max))
2216 (delete-region (point) (point-max)))))
2302 "Insert before point."
2314 "Append after point."
2392 (defun viper-open-line-at-point (arg)
2393 "Open line at point."
2400 (list 'viper-open-line-at-point val ?r nil nil nil))
2418 (viper-change-subr (mark t) (point))
2419 (viper-change (mark t) (point)))
2474 'viper-last-posn-in-replace-region (point)))
2522 ;; the overlay and current point is before the end of the overlay.
2523 ;; Don't delete anything if current point is past the end of the overlay.
2540 (< (point) (viper-replace-end)))
2609 (if (or (< (point) (viper-replace-start))
2610 (> (point) (viper-replace-end)))
2620 (if (viper-same-line (point) (viper-replace-end))
2623 (delete-region (point) (viper-line-pos 'end))
2646 (delete-char (min len (- (point-max) (point) 1)))
2650 (viper-set-replace-overlay (point) (viper-line-pos 'end))
2661 (viper-move-marker-locally 'viper-com-point (point))
2686 (viper-move-marker-locally 'viper-com-point (point))
2687 (exchange-point-and-mark)
2695 (viper-move-marker-locally 'viper-com-point (point))
2696 (exchange-point-and-mark)
2740 "Move point right ARG characters (left if ARG negative).
2746 (if com (viper-move-marker-locally 'viper-com-point (point)))
2763 "Move point left ARG characters (right if ARG negative).
2769 (if com (viper-move-marker-locally 'viper-com-point (point)))
2783 (let ((pt (point)))
2787 (if (< (point) pt) ; arg was negative
2788 (- (viper-chars-in-region pt (point)))
2789 (viper-chars-in-region pt (point)))))
2797 (let ((pt (point)))
2801 (if (> (point) pt) ; arg was negative
2802 (viper-chars-in-region pt (point))
2803 (- (viper-chars-in-region pt (point))))))
2858 (saved-point (point)))
2861 (< lim (point))
2869 (if (and (< lim (point)) (eq prev-char ?\n))
2874 (goto-char saved-point))
2880 (< lim (point))
2888 (if (= (point) lim)
2899 (if com (viper-move-marker-locally 'viper-com-point (point)))
2904 (viper-separator-skipback-special 'twice viper-com-point))
2907 (viper-separator-skipback-special nil viper-com-point))
2909 (viper-separator-skipback-special nil viper-com-point)))
2920 (if com (viper-move-marker-locally 'viper-com-point (point)))
2926 (viper-separator-skipback-special 'twice viper-com-point))
2929 (viper-separator-skipback-special nil viper-com-point))
2931 (viper-separator-skipback-special nil viper-com-point)))
2958 "Move point to end of current word."
2963 (if com (viper-move-marker-locally 'viper-com-point (point)))
2976 (if com (viper-move-marker-locally 'viper-com-point (point)))
3015 (viper-move-marker-locally 'viper-com-point (point))
3030 (viper-move-marker-locally 'viper-com-point (point))
3048 (if com (viper-move-marker-locally 'viper-com-point (point)))
3058 (if com (viper-move-marker-locally 'viper-com-point (point)))
3068 (if com (viper-move-marker-locally 'viper-com-point (point)))
3089 (if com (viper-move-marker-locally 'viper-com-point (point)))
3107 (if com (viper-move-marker-locally 'viper-com-point (point)))
3117 If point is on a widget or a button, simulate clicking on that widget/button."
3119 (let* ((field (get-char-property (point) 'field))
3120 (button (get-char-property (point) 'button))
3121 (doc (get-char-property (point) 'widget-doc))
3128 (widget-button-press (point))
3129 (if (and (fboundp 'button-at) (fboundp 'push-button) (button-at (point)))
3138 (if com (viper-move-marker-locally 'viper-com-point (point)))
3150 (if com (viper-move-marker-locally 'viper-com-point (point)))
3167 (if com (viper-move-marker-locally 'viper-com-point (point)))
3196 (viper-move-marker-locally 'viper-com-point (point))
3200 (goto-char (point-max))
3201 (goto-char (point-min))
3216 ;; adjust point after search.
3223 point region-beg region-end)
3228 (setq region-beg (point))
3232 (setq region-end (point)))
3233 (setq region-end (point))
3237 (setq region-beg (point)))
3254 ;; if arg > 0, point is forwarded before search.
3255 (if (> arg 0) (goto-char (1+ (point-min)))
3256 (goto-char (point-max)))
3259 (setq point (point))
3261 (goto-char point)
3286 (if com (viper-move-marker-locally 'viper-com-point (point)))
3313 (if com (viper-move-marker-locally 'viper-com-point (point)))
3340 (if com (viper-move-marker-locally 'viper-com-point (point)))
3366 (if com (viper-move-marker-locally 'viper-com-point (point)))
3381 (if com (viper-move-marker-locally 'viper-com-point (point)))
3394 (if com (viper-move-marker-locally 'viper-com-point (point)))
3411 (if com (viper-move-marker-locally 'viper-com-point (point)))
3431 (if com (viper-move-marker-locally 'viper-com-point (point)))
3451 (if com (viper-move-marker-locally 'viper-com-point (point)))
3480 ;; If point is within viper-search-scroll-threshold of window top or bottom,
3491 (pt (point))
3497 (<= (count-lines pt (point))
3501 (<= (count-lines pt (point)) viper-search-scroll-threshold))
3525 anchor-point)
3530 (if (> (point-max) 80000)
3531 (* (/ (point-max) 100) arg)
3532 (/ (* (point-max) arg) 100)))
3537 (setq anchor-point (point)))
3540 (setq beg-lim (point))
3542 (setq end-lim (point)))
3549 (if com (viper-move-marker-locally 'viper-com-point (point)))
3554 (anchor-point
3557 (viper-move-marker-locally 'viper-com-point anchor-point)
3563 (if com (viper-move-marker-locally 'viper-com-point (point)))
3587 (if com (viper-move-marker-locally 'viper-com-point (point)))
3598 (if com (viper-move-marker-locally 'viper-com-point (point)))
3611 (if com (viper-move-marker-locally 'viper-com-point (point)))
3627 (if com (viper-move-marker-locally 'viper-com-point (point)))
3640 (if com (viper-move-marker-locally 'viper-com-point (point)))
3649 (if com (viper-move-marker-locally 'viper-com-point (point)))
3658 (if com (viper-move-marker-locally 'viper-com-point (point)))
3683 (goto-char (point-max)))
3685 (goto-char (point-min))))
3702 (goto-char (point-min)))))
3718 (goto-char (point-max)))))
3883 (setq viper-local-search-start-marker (point-marker)))
3887 (viper-move-marker-locally 'viper-com-point (mark t))
3906 (setq viper-local-search-start-marker (point-marker)))
3910 (viper-move-marker-locally 'viper-com-point (mark t))
3920 &optional no-offset init-point fail-if-not-found)
3926 (start-point (or init-point (point))))
3938 (if (not (equal start-point (point)))
3939 (push-mark start-point t)))
3944 (goto-char (point-min))
3945 (viper-search string forward (cons 1 com) t start-point 'fail)
3956 (goto-char start-point)
3967 (if (not (equal start-point (point)))
3968 (push-mark start-point t)))
3973 (goto-char (point-max))
3974 (viper-search string forward (cons 1 com) t start-point 'fail)
3985 (goto-char start-point)
4011 (viper-move-marker-locally 'viper-com-point (mark t))
4024 (viper-move-marker-locally 'viper-com-point (mark t))
4117 "Put back after point/below line."
4128 sv-point chars-inserted lines-inserted)
4144 (set-marker (viper-mark-marker) (point) (current-buffer))
4147 (setq sv-point (point))
4149 (setq chars-inserted (abs (- (point) sv-point))
4150 lines-inserted (abs (count-lines (point) sv-point)))
4159 (if (viper-same-line (point) (mark))
4160 (or (= (point) (mark)) (viper-backward-char-carefully))
4161 (exchange-point-and-mark)
4167 "Put back at point/above line."
4178 sv-point chars-inserted lines-inserted)
4189 (set-marker (viper-mark-marker) (point) (current-buffer))
4190 (setq sv-point (point))
4192 (setq chars-inserted (abs (- (point) sv-point))
4193 lines-inserted (abs (count-lines (point) sv-point)))
4202 (if (viper-same-line (point) (mark))
4203 (or (= (point) (mark)) (viper-backward-char-carefully))
4204 (exchange-point-and-mark)
4226 (> val (viper-chars-in-region (point) (viper-line-pos 'end))))
4227 (setq val (viper-chars-in-region (point) (viper-line-pos 'end))))
4232 (setq end-del-pos (point)))
4237 (downcase viper-use-register) (point) end-del-pos))
4240 viper-use-register (point) end-del-pos nil))
4258 (> val (viper-chars-in-region (viper-line-pos 'start) (point))))
4259 (setq val (viper-chars-in-region (viper-line-pos 'start) (point))))
4262 (setq end-del-pos (point)))
4267 (downcase viper-use-register) end-del-pos (point)))
4270 viper-use-register end-del-pos (point) nil))
4328 (delete-region (point) (1- (point)))
4355 (if (= (viper-replace-start) (point-max))
4372 (untabify (viper-replace-start) (point))
4384 (viper-move-replace-overlay (viper-replace-start) (point))
4392 ;; go back to the original point
4473 (push-mark (point))
4474 (goto-char (point-min))
4475 (exchange-point-and-mark)
4481 (push-mark (point))
4482 (goto-char (point-max))
4483 (exchange-point-and-mark)
4486 (defun viper-mark-point ()
4487 "Set mark at point of buffer."
4491 (point-to-register (viper-int-to-char (1+ (- char ?a)))))
4504 ;; Push this mark back and set mark to the original point position, p1.
4515 (let* ((sv-pt (point)))
4517 ;; Prev saved mark is actually prev saved point. It is used if the
4522 ;; point to be the mark. Current pt as mark is discarded by the next
4572 (when (and (<= (nth 2 text-marker) (point-max))
4573 (<= (point-min) (nth 2 text-marker)))
4576 (if com (viper-move-marker-locally 'viper-com-point (point)))
4579 (if (and (viper-same-line (point) viper-last-jump)
4580 (= (point) viper-last-jump-ignore))
4583 (viper-register-to-point reg)
4584 (setq viper-last-jump (point-marker))
4587 (setq viper-last-jump-ignore (point))))
4595 (goto-char viper-com-point)
4599 (if com (viper-move-marker-locally 'viper-com-point (point)))
4600 (if (and (viper-same-line (point) viper-last-jump)
4601 (= (point) viper-last-jump-ignore))
4604 (if (= (point) (mark t)) (pop-mark))
4605 (exchange-point-and-mark)
4606 (setq viper-last-jump (point-marker)
4610 (if com (viper-move-marker-locally 'viper-com-point (point)))
4611 (if (and (viper-same-line (point) viper-last-jump)
4612 (= (point) viper-last-jump-ignore))
4614 (if (= (point) (mark t)) (pop-mark))
4615 (exchange-point-and-mark)
4616 (setq viper-last-jump (point))
4618 (setq viper-last-jump-ignore (point))
4626 (defun viper-exchange-point-and-mark ()
4628 (exchange-point-and-mark)
4633 ;; Returns t, if the string before point matches the regexp STR.
4636 (= (point) (match-end 0))))
4649 (let ((p (point)) (c (current-column)) bol (indent t))
4655 (setq p (point))
4659 (setq bol (point)))
4661 (delete-region (point) p)
4694 ;; use \n instead of newline, or else <Return> will move the insert point
4740 (setq line-no (1+ (count-lines (point-min) val)))
4746 (setq s (point))))
4752 (setq e (point))))
4775 (delete-region (point) (mark t))
4955 (defun viper-register-to-point (char &optional enforce-buffer)
4957 (interactive "cViper register to point: ")
5045 'viper-keep-point-on-undo