Lines Matching +refs:point +refs:min
56 (defvar vip-insert-point nil
57 "Remember insert point as a marker. (Buffer-specific.)")
59 (set-default 'vip-insert-point (make-marker))
60 (make-variable-buffer-local 'vip-insert-point)
62 (defvar vip-com-point nil
63 "Remember com point as a marker. (Buffer-specific.)")
65 (set-default 'vip-com-point (make-marker))
66 (make-variable-buffer-local 'vip-com-point)
182 (define-key vip-mode-map "\C-o" 'vip-open-line-at-point)
271 (define-key vip-mode-map "m" 'vip-mark-point)
319 "Set mark at LOCATION (point, by default) and push old mark on mark ring.
328 (set-mark (or location (point))))
338 (if com (move-marker vip-com-point (point)))
357 (vip-copy-region-as-kill (point) vip-insert-point)
367 (move-marker vip-insert-point (point))
424 (goto-char (point-min))
431 (goto-char (point-max))
677 (cond ((= com ?c) (vip-change vip-com-point (point)))
678 ((= com (- ?c)) (vip-change-subr vip-com-point (point)))
681 (set-mark vip-com-point)
682 (vip-enlarge-region (mark) (point))
688 vip-use-register (mark) (point) nil))
692 (+ vip-use-register 32) (mark) (point)))
696 (delete-region (mark) (point)))
705 vip-use-register vip-com-point (point) nil))
709 (+ vip-use-register 32) vip-com-point (point)))
715 (kill-region vip-com-point (point))
719 (set-mark vip-com-point)
720 (vip-enlarge-region (mark) (point))
726 vip-use-register (mark) (point) nil))
730 (+ vip-use-register 32) (mark) (point)))
736 (kill-region (mark) (point))
745 vip-use-register vip-com-point (point) nil))
749 (+ vip-use-register 32) vip-com-point (point)))
754 (copy-region-as-kill vip-com-point (point))
755 (goto-char vip-com-point))
758 (set-mark vip-com-point)
759 (vip-enlarge-region (mark) (point))
765 vip-use-register (mark) (point) nil))
769 (+ vip-use-register 32) (mark) (point)))
774 (copy-region-as-kill (mark) (point)))
775 (goto-char vip-com-point))
778 (set-mark vip-com-point)
779 (vip-enlarge-region (mark) (point))
781 (mark) (point)
788 (set-mark vip-com-point)
789 (vip-enlarge-region (mark) (point))
790 (if (> (mark) (point)) (exchange-point-and-mark))
791 (indent-region (mark) (point) nil)))
794 (set-mark vip-com-point)
795 (vip-enlarge-region (mark) (point))
796 (indent-rigidly (mark) (point) (- vip-shift-width)))
797 (goto-char vip-com-point))
800 (set-mark vip-com-point)
801 (vip-enlarge-region (mark) (point))
802 (indent-rigidly (mark) (point) vip-shift-width))
803 (goto-char vip-com-point))
834 (downcase-region (min vip-com-point (point))
835 (max vip-com-point (point))))
837 (upcase-region (min vip-com-point (point))
838 (max vip-com-point (point))))
840 (set-mark vip-com-point)
843 (set-mark vip-com-point)
845 ((= char ?s) (spell-region vip-com-point (point)))))
875 (copy-region-as-kill (point) (mark)))
884 (exchange-point-and-mark)
887 (if (> beg end) (exchange-point-and-mark)))
891 (if (> (point) (mark)) (exchange-point-and-mark))
894 (while (< (point) (mark))
907 (vip-enlarge-region (point) (mark))
908 (if (> (point) (mark)) (exchange-point-and-mark))
912 (while (and (< (point) (mark)) (bolp))
961 "Append after point."
1026 (defun vip-open-line-at-point (arg)
1027 "Open line at point."
1030 (setq vip-d-com (list 'vip-open-line-at-point val ?r))
1044 (set-mark (point))
1047 (vip-change-subr (mark) (point))
1048 (vip-change (mark) (point))))
1062 (move-marker vip-com-point (point))
1080 (move-marker vip-com-point (point))
1081 (exchange-point-and-mark)
1088 (move-marker vip-com-point (point))
1089 (exchange-point-and-mark)
1136 "Move point right ARG characters (left if ARG negative).On reaching end
1140 (if com (move-marker vip-com-point (point)))
1145 "Move point left ARG characters (right if ARG negative). On reaching
1149 (if com (move-marker vip-com-point (point)))
1162 (if com (move-marker vip-com-point (point)))
1177 "Move point to end of current word."
1181 (if com (move-marker vip-com-point (point)))
1195 (if com (move-marker vip-com-point (point)))
1204 (if com (move-marker vip-com-point (point)))
1222 (if com (move-marker vip-com-point (point)))
1235 (if com (move-marker vip-com-point (point)))
1238 (goto-char (point-min)))
1245 (if com (move-marker vip-com-point (point)))
1253 (if com (move-marker vip-com-point (point)))
1261 (if com (move-marker vip-com-point (point)))
1269 (if com (move-marker vip-com-point (point)))
1278 (if com (move-marker vip-com-point (point)))
1287 (if com (move-marker vip-com-point (point)))
1296 (if com (move-marker vip-com-point (point)))
1319 (move-marker vip-com-point (point))
1320 (set-mark (point))
1322 (goto-char (point-max))
1323 (goto-char (point-min))
1330 search is forward, otherwise backward. OFFSET is used to adjust point
1332 (let ((arg (if forward arg (- arg))) point)
1338 (if (eolp) (error "") (point))
1340 (progn (next-line 1) (beginning-of-line) (point)))
1343 (if (bolp) (error "") (point))
1345 (progn (beginning-of-line) (point))))
1346 ;; if arg > 0, point is forwarded before search.
1347 (if (> arg 0) (goto-char (1+ (point-min)))
1348 (goto-char (point-max)))
1351 (setq point (point))
1352 (if (or (and (> arg 0) (= point (point-max)))
1353 (and (< arg 0) (= point (point-min))))
1355 (goto-char (+ point (if (> arg 0) (if offset -2 -1) (if offset 1 0))))))
1369 (if com (move-marker vip-com-point (point)))
1388 (if com (move-marker vip-com-point (point)))
1407 (if com (move-marker vip-com-point (point)))
1426 (if com (move-marker vip-com-point (point)))
1438 (if com (move-marker vip-com-point (point)))
1449 (if com (move-marker vip-com-point (point)))
1473 (if com (move-marker vip-com-point (point)))
1482 (if com (move-marker vip-com-point (point)))
1491 (if com (move-marker vip-com-point (point)))
1522 (if (> (point-max) 80000)
1523 (* (/ (point-max) 100) arg)
1524 (/ (* (point-max) arg) 100)))
1527 (if com (move-marker vip-com-point (point)))
1534 (if com (move-marker vip-com-point (point)))
1548 (if com (move-marker vip-com-point (point)))
1557 (if com (move-marker vip-com-point (point)))
1566 (if com (move-marker vip-com-point (point)))
1575 (if com (move-marker vip-com-point (point)))
1652 (move-marker vip-com-point (mark))
1672 (move-marker vip-com-point (mark))
1675 (defun vip-search (string forward arg &optional no-offset init-point)
1681 (start-point (or init-point (point))))
1692 (push-mark start-point))
1696 (goto-char (point-min))
1697 (vip-search string forward (cons 1 com) t start-point))
1698 (goto-char start-point)
1705 (push-mark start-point))
1709 (goto-char (point-max))
1710 (vip-search string forward (cons 1 com) t start-point))
1711 (goto-char start-point)
1795 (1+ (count-lines (point-min) (point)))
1796 (1+ (count-lines (point-min) (point-max)))))
1805 (vip-push-mark-silent (point))
1807 (exchange-point-and-mark))
1811 "Put back after point/below line."
1835 "Put back at point/above line."
1863 (+ vip-use-register 32) (point) (- (point) val))
1864 (copy-to-register vip-use-register (point) (- (point) val) nil))
1877 (+ vip-use-register 32) (point) (+ (point) val))
1878 (copy-to-register vip-use-register (point) (+ (point) val) nil))
1897 (delete-region (point) (1- (point)))
1952 (set-mark (point))
1953 (goto-char (point-min))
1954 (exchange-point-and-mark)
1959 (set-mark (point))
1960 (goto-char (point-max))
1961 (exchange-point-and-mark)
1964 (defun vip-mark-point (char)
1967 (point-to-register (- char (- ?a ?\C-a)) nil))
1990 (if com (move-marker vip-com-point (point)))
1991 (goto-char (register-to-point (- char (- ?a ?\C-a))))
2001 (goto-char vip-com-point)
2005 (if com (move-marker vip-com-point (point)))
2006 (exchange-point-and-mark)
2009 (if com (move-marker vip-com-point (point)))
2010 (exchange-point-and-mark)
2015 (defun vip-exchange-point-and-mark ()
2017 (exchange-point-and-mark)
2049 (set-mark (point))
2051 (delete-region (point) (mark))))
2110 "returns t if looking back reg-exp STR before point."
2112 (= (point) (match-end 0))))
2124 (set-mark (point))
2127 (setq ex-token (buffer-substring (point) (mark)))
2128 (exchange-point-and-mark)
2186 (exchange-point-and-mark))
2203 (set-mark (point))
2209 (setq ex-token (string-to-number (buffer-substring (point) (mark)))))
2240 (set-mark (point))
2248 (setq ex-token (buffer-substring (point) (mark)))
2253 (set-mark (point))
2263 (setq ex-token (buffer-substring (1- (point)) (mark))))
2294 (address nil) (cont t) (dot (point)))
2297 (delete-region (point-min) (point-max))
2299 (goto-char (point-min)))
2327 (cons (point-max) (cons (point-min) ex-addresses))))
2330 (cons (if (null address) (point) address) ex-addresses)))
2334 (cons (if (null address) (point) address) ex-addresses)))
2352 (set-mark (point))
2360 (if (= (mark) (point)) ""
2361 (buffer-substring (1- (point)) (mark))))
2401 (cons (point-max) (cons (point-min) nil))
2402 (cons (point) (cons (point) nil)))))
2409 (let ((address (point-marker)) (cont t))
2427 (t (let ((ans (vip-get-ex-address-subr address (point-marker))))
2432 "returns an address as a point"
2441 (setq address (point-marker))))
2446 (setq address (point-marker))))
2449 (goto-char (point-min))
2452 (setq address (point-marker)))))
2454 (setq address (point-max-marker)))
2460 (setq address (point-marker))))
2464 (setq address (point-marker))))
2468 (exchange-point-and-mark)
2469 (goto-char (register-to-point (- ex-token (- ?a ?\C-a)))))
2470 (setq address (point-marker)))))
2501 (set-mark (point))
2503 (setq ex-count (string-to-number (buffer-substring (point) (mark))))
2526 (set-mark (point))
2528 (setq ex-count (string-to-number (buffer-substring (point) (mark))))
2560 (set-mark (point))
2563 (setq ex-offset (buffer-substring (point) (mark)))
2566 (set-mark (point))
2569 (setq ex-file (buffer-substring (point) (mark)))))
2632 (setq ex-addresses (cons (point) nil)))
2633 (push-mark (point))
2645 (vip-enlarge-region (mark) (point))
2646 (if del-flag (kill-region (point) (mark))
2647 (copy-region-as-kill (point) (mark)))
2654 (buffer-substring (point) (mark)))))
2663 (goto-char (point-min))
2676 (exchange-point-and-mark)
2679 (set-mark (point))
2682 (vip-enlarge-region (point) (mark))
2687 (princ (buffer-substring (point) (mark))))
2697 (+ ex-buffer 32) (point) (mark))
2698 (copy-to-register ex-buffer (point) (mark) nil)))
2699 (delete-region (point) (mark))))))
2710 (goto-char (point-min))
2715 (delete-region (point-min) (point-max))
2717 (goto-char (point-min)))
2739 (setq ex-addresses (list (point-max) (point-min))))
2745 (exchange-point-and-mark)
2746 (let ((cont t) (limit (point-marker)))
2747 (exchange-point-and-mark)
2751 (while (and cont (not (bobp)) (>= (point) limit))
2753 (set-mark (point))
2761 (setq marks (cons (point-marker) marks)))))
2768 (setq com-str (buffer-substring (1+ (point)) (1- (point-max)))))
2784 (let ((end (car ex-addresses)) (beg (car (cdr ex-addresses))) point)
2788 (exchange-point-and-mark)
2791 (set-mark (point))
2797 (princ (buffer-substring (point) (mark))))
2801 (ex-line-subr com (point) (mark)))
2805 (ex-line-subr com (point) (mark)))
2806 (setq point (point)))
2807 (goto-char (1- point))
2812 (goto-char (min beg end))
2813 (while (and (not (eobp)) (< (point) (max beg end)))
2815 (if (and (<= (point) (max beg end)) (not (eobp)))
2818 (delete-region (point) (1- (point)))
2822 (min beg end) (max beg end)
2833 (cons (point) nil)))
2849 (point-to-register (- char (- ?a ?\C-a)) nil))))
2861 (set-mark (point))
2865 (setq string (buffer-substring (mark) (point))))
2894 (let ((point (if (null ex-addresses) (point) (car ex-addresses))))
2897 (goto-char point)
2898 (if (= point 0) (vip-Put-back 1) (vip-put-back 1))))
2911 (let ((point (if (null ex-addresses) (point) (car ex-addresses)))
2913 (goto-char point)
2914 (if (not (= point 0)) (next-line 1))
2924 (set-mark (point))
2926 (setq command (buffer-substring (mark) (point))))
2927 (set-mark (point))
2930 (setq file (buffer-substring (point) (mark)))))
2970 (set-mark (point))
2972 (setq ex-addresses (cons (point) (cons (mark) nil))))
2974 (setq ex-addresses (cons (point) (cons (point) nil)))
2983 (goto-char (max (point) (mark)))
2984 (point-marker))))
2985 (goto-char (min (point) (mark)))
2986 (while (< (point) limit)
2988 (setq eol-mark (point-marker))
2996 (setq matched-pos (point))
3003 (setq matched-pos (point))
3017 (set-mark (point))
3019 (setq tag (buffer-substring (mark) (point))))
3050 (write-region (point) (mark) ex-file ex-append t)))
3062 (exchange-point-and-mark)
3066 (set-mark (point))
3069 (vip-enlarge-region (point) (mark))
3072 (copy-to-register ex-buffer (point) (mark) nil))
3073 (copy-region-as-kill (point) (mark)))))
3081 (set-mark (point))
3083 (setq command (buffer-substring (mark) (point))))
3091 (vip-enlarge-region (point) (mark))
3092 (shell-command-on-region (point) (mark) command t))
3099 (point-min)
3100 (if (null ex-addresses) (point-max) (car ex-addresses))))))