Lines Matching +defs:mark +defs:as +defs:paren
12 ;; it under the terms of the GNU General Public License as published by
57 "Remember insert point as a marker. (Buffer-specific.)")
63 "Remember com point as a marker. (Buffer-specific.)")
165 "Filename used as startup file for vip.")
194 (define-key vip-mode-map "%" 'vip-paren-match)
196 (define-key vip-mode-map "'" 'vip-goto-mark-and-skip-white)
257 (define-key vip-mode-map "`" 'vip-goto-mark)
271 (define-key vip-mode-map "m" 'vip-mark-point)
318 (defun vip-push-mark-silent (&optional location)
319 "Set mark at LOCATION (point, by default) and push old mark on mark ring.
321 (if (null (mark t))
323 (setq mark-ring (cons (copy-marker (mark-marker)) mark-ring))
324 (if (> (length mark-ring) mark-ring-max)
326 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil)
327 (setcdr (nthcdr (1- mark-ring-max) mark-ring) nil))))
328 (set-mark (or location (point))))
357 (vip-copy-region-as-kill (point) vip-insert-point)
391 (defun vip-copy-region-as-kill (beg end)
394 (copy-region-as-kill beg end)
395 (error (copy-region-as-kill beg beg))))
419 3. Printing VIP manual which can be found as GNU/man/vip.texinfo
420 4. Printing VIP Reference Card which can be found as GNU/etc/vipcard.tex
463 ARG is used as the prefix value for the executed command. If
478 "Print CONDITIONS as a message."
511 ;; command prefix such as "c", "d", "m" and "y".
527 "Vi operator as prefix argument."
542 ;; if com is nil we set com as char, and read more. again, if char
550 ;; read a char and encode it as com
579 ;; as com is non-nil, this means that we have a command to execute
620 "Accept a motion command as an argument."
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)))
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))
754 (copy-region-as-kill vip-com-point (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)))
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)))
800 (set-mark vip-com-point)
801 (vip-enlarge-region (mark) (point))
802 (indent-rigidly (mark) (point) vip-shift-width))
821 ;; its prefix value is used as new prefix value for the command.
840 (set-mark vip-com-point)
843 (set-mark vip-com-point)
874 (mark-defun)
875 (copy-region-as-kill (point) (mark)))
880 (progn (goto-char beg) (set-mark end))
882 (set-mark beg))
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))
1044 (set-mark (point))
1047 (vip-change-subr (mark) (point))
1048 (vip-change (mark) (point))))
1081 (exchange-point-and-mark)
1089 (exchange-point-and-mark)
1106 "Replace string. If you supply null string as the string to be replaced,
1320 (set-mark (point))
1512 ;; paren match
1514 (defun vip-paren-match (arg)
1530 (vip-execute-com 'vip-paren-match nil com)
1536 (if com (vip-execute-com 'vip-paren-match nil com)))
1652 (move-marker vip-com-point (mark))
1672 (move-marker vip-com-point (mark))
1692 (push-mark start-point))
1705 (push-mark start-point))
1805 (vip-push-mark-silent (point))
1807 (exchange-point-and-mark))
1925 "Query replace. If you supply null string as the string to be replaced,
1950 (defun vip-mark-beginning-of-buffer ()
1952 (set-mark (point))
1954 (exchange-point-and-mark)
1955 (message "mark set at the beginning of buffer"))
1957 (defun vip-mark-end-of-buffer ()
1959 (set-mark (point))
1961 (exchange-point-and-mark)
1962 (message "mark set at the end of buffer"))
1964 (defun vip-mark-point (char)
1968 ((= char ?<) (vip-mark-beginning-of-buffer))
1969 ((= char ?>) (vip-mark-end-of-buffer))
1970 ((= char ?.) (push-mark))
1971 ((= char ?,) (set-mark-command 1))
1972 ((= char ?D) (mark-defun))
1975 (defun vip-goto-mark (arg)
1976 "Go to mark."
1979 (vip-goto-mark-subr char com nil)))
1981 (defun vip-goto-mark-and-skip-white (arg)
1982 "Go to mark and skip to first non-white on line."
1985 (vip-goto-mark-subr char com t)))
1987 (defun vip-goto-mark-subr (char com skip-white)
1997 'vip-goto-mark-and-skip-white
1998 'vip-goto-mark)
2006 (exchange-point-and-mark)
2007 (if com (vip-execute-com 'vip-goto-mark nil com)))
2010 (exchange-point-and-mark)
2012 (if com (vip-execute-com 'vip-goto-mark-and-skip-white nil com)))
2015 (defun vip-exchange-point-and-mark ()
2017 (exchange-point-and-mark)
2049 (set-mark (point))
2051 (delete-region (point) (mark))))
2124 (set-mark (point))
2127 (setq ex-token (buffer-substring (point) (mark)))
2128 (exchange-point-and-mark)
2148 ((looking-at "mar") (vip-check-sub "mark"))
2186 (exchange-point-and-mark))
2190 a token has type \(command, address, end-mark\) and value."
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))))
2275 (setq ex-token-type "goto-mark")
2282 (setq ex-token-type "end-mark")
2305 (string= ex-token-type "end-mark"))
2352 (set-mark (point))
2360 (if (= (mark) (point)) ""
2361 (buffer-substring (1- (point)) (mark))))
2408 "get an ex-address as a marker and set ex-flag if a flag is found"
2421 ((string= ex-token-type "end-mark")
2432 "returns an address as a point"
2465 ((string= ex-token-type "goto-mark")
2468 (exchange-point-and-mark)
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)))))
2580 ((string= ex-token "k") (ex-mark))
2581 ((string= ex-token "mark") (ex-mark))
2633 (push-mark (point))
2644 (set-mark beg)
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)))))
2676 (exchange-point-and-mark)
2679 (set-mark (point))
2681 (set-mark end))
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))))))
2740 (let ((marks nil) (mark-count 0)
2745 (exchange-point-and-mark)
2747 (exchange-point-and-mark)
2753 (set-mark (point))
2755 (let ((found (re-search-backward ex-g-pat (mark) t)))
2760 (setq mark-count (1+ mark-count))
2773 ;(if (zerop (% mark-count 10))
2774 ;(message "Executing global command...%d" mark-count))
2776 (setq mark-count (1- mark-count))
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)))
2828 (defun ex-mark ()
2829 "ex mark"
2861 (set-mark (point))
2865 (setq string (buffer-substring (mark) (point))))
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))))
2979 (cont t) eol-mark)
2983 (goto-char (max (point) (mark)))
2985 (goto-char (min (point) (mark)))
2988 (setq eol-mark (point-marker))
2993 (re-search-forward pat eol-mark t))
3000 (if (and (re-search-forward pat eol-mark t)
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))
3068 (set-mark end))
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))))
3090 (set-mark end)
3091 (vip-enlarge-region (point) (mark))
3092 (shell-command-on-region (point) (mark) command t))