Lines Matching +defs:mark +defs:as +defs:paren
11 ;; it under the terms of the GNU General Public License as published by
46 (defvar mark-even-if-inactive)
137 ;; Commands that may have registers as prefix
153 ;; Where viper saves mark. This mark is resurrected by m^
154 (defvar viper-saved-mark nil)
363 (if viper-began-as-replace
364 (setq viper-began-as-replace nil)
396 ;; use the keys `,',^ , as they will do accents instead of Vi actions.
750 ARG is used as the prefix value for the executed command. If
801 ;; XEmacs represents key sequences as vectors
805 ;; Emacs represents them as sequences (str or vec)
853 ;; Make sure ^V and ^Q work as quotation chars
869 ;; same as above but for XEmacs, which doesn't have
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
960 ;; interpret certain keys directly in emacs (as, for example, in comint mode).
978 Suffixes such as .el or .elc should be stripped."
999 function keys such as up,down, etc. ESC will also will also work as
1001 as a Meta key and any number of multiple escapes is allowed."
1036 ;; Check if last key was ESC and if so try to reread it as a function key.
1047 ;; added a check if there are other events as well. Keep the next
1063 ;; If ESC is the first symbol, we interpret it as if the
1084 ;; and return ESC as the key-sequence
1118 ;; interpret these keys in Emacs mode, so ESC won't be interpreted as a Vi key.
1148 ;; command prefix such as "c", "d", "m" and "y".
1209 ;; called from within viper-prefix-arg command, such as `d', `w',
1231 ;; Vi operator as prefix argument."
1249 ;; If com is nil we set com as char, and read more. Again, if char is
1258 ;; read a char and encode it as com
1292 ;; as com is non-nil, this means that we have a command to execute
1319 ;; gg acts as G0
1355 "Accept a motion command as an argument."
1371 (viper-deactivate-mark)))
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)))
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)))
1506 (kill-region (mark t) (point))
1527 (copy-region-as-kill viper-com-point (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)))
1557 (viper-deactivate-mark)
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)
1671 ;; non-nil its prefix value is used as new prefix value for the command.
1699 (viper-deactivate-mark)
1704 Doesn't change viper-command-ring in any way, so `.' will work as before
1724 "`viper-repeat-from-history' must be invoked as a Vi macro bound to `<key><digit>'")))
1745 (push-mark viper-com-point t)
1749 (push-mark viper-com-point t)
1804 (push-mark (point-marker) t)
1811 (push-mark before-undo-pt t))
1837 (if (setq tmp (memq viper-buffer-undo-list-mark buffer-undo-list))
1839 (setq tmp2 (cdr tmp)) ; the part after mark
1847 (delq viper-buffer-undo-list-mark buffer-undo-list))
1859 (cons viper-buffer-undo-list-mark buffer-undo-list))
1996 (mark-defun)
1997 (copy-region-as-kill (point) (mark t)))
2005 (progn (goto-char beg) (set-mark end))
2007 (set-mark beg))
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))
2044 ;; Tells whether BEG is on the same line as END.
2059 ;; as part of the previous line.
2169 ;; Used as a minibuffer exit hook in read-file-name
2415 (push-mark nil t)
2418 (viper-change-subr (mark t) (point))
2419 (viper-change (mark t) (point)))
2433 (setq viper-began-as-replace t
2461 ;; Invoked as an after-change-function to calculate how many chars have to be
2568 ;; Leave arg as 1, not t: XEmacs insists that it must be a pos number
2605 ;; If Emacs start supporting overlay maps, as it currently supports
2687 (exchange-point-and-mark)
2696 (exchange-point-and-mark)
3197 (viper-deactivate-mark)
3198 (push-mark nil t)
3380 (viper-deactivate-mark)
3393 (viper-deactivate-mark)
3412 (push-mark nil t)
3432 (push-mark nil t)
3452 (push-mark nil t)
3514 ;; paren match
3516 ;; it is good that paren match gets confused, because that way you
3519 (defun viper-paren-match (arg)
3552 (viper-execute-com 'viper-paren-match nil com)
3559 (viper-execute-com 'viper-paren-match nil com)
3565 (if com (viper-execute-com 'viper-paren-match nil com)))
3584 (push-mark nil t))
3595 (push-mark nil t))
3606 (push-mark nil t))
3622 (push-mark nil t))
3887 (viper-move-marker-locally 'viper-com-point (mark t))
3910 (viper-move-marker-locally 'viper-com-point (mark t))
3927 (viper-deactivate-mark)
3939 (push-mark start-point t)))
3968 (push-mark start-point t)))
4011 (viper-move-marker-locally 'viper-com-point (mark t))
4024 (viper-move-marker-locally 'viper-com-point (mark t))
4033 ;; ?g acts as a default value for viper-buffer-search-char
4144 (set-marker (viper-mark-marker) (point) (current-buffer))
4159 (if (viper-same-line (point) (mark))
4160 (or (= (point) (mark)) (viper-backward-char-carefully))
4161 (exchange-point-and-mark)
4164 (viper-deactivate-mark))
4189 (set-marker (viper-mark-marker) (point) (current-buffer))
4202 (if (viper-same-line (point) (mark))
4203 (or (= (point) (mark)) (viper-backward-char-carefully))
4204 (exchange-point-and-mark)
4207 (viper-deactivate-mark))
4212 (defun viper-copy-region-as-kill (beg end)
4214 (copy-region-as-kill beg end)
4215 (error (copy-region-as-kill beg beg))))
4331 ;; between objects, so we insert it as in Vi
4344 ;; beg is sometimes (mark t), which may be nil
4399 ;; beg is sometimes (mark t), which may be nil
4430 If a null string is suplied as the string to be replaced,
4470 (defun viper-mark-beginning-of-buffer ()
4473 (push-mark (point))
4475 (exchange-point-and-mark)
4478 (defun viper-mark-end-of-buffer ()
4481 (push-mark (point))
4483 (exchange-point-and-mark)
4486 (defun viper-mark-point ()
4487 "Set mark at point of buffer."
4492 ((viper= char ?<) (viper-mark-beginning-of-buffer))
4493 ((viper= char ?>) (viper-mark-end-of-buffer))
4494 ((viper= char ?.) (viper-set-mark-if-necessary))
4495 ((viper= char ?,) (viper-cycle-through-mark-ring))
4496 ((viper= char ?^) (push-mark viper-saved-mark t t))
4497 ((viper= char ?D) (mark-defun))
4501 ;; Algorithm: If first invocation of this command save mark on ring, goto
4502 ;; mark, M0, and pop the most recent elt from the mark ring into mark,
4503 ;; making it into the new mark, M1.
4504 ;; Push this mark back and set mark to the original point position, p1.
4507 ;; If repeated command, pop top elt from the ring into mark and
4508 ;; jump there. This forgets the position, p1, and puts M1 back into mark.
4510 ;; the ring into mark. Push M2 back on the ring and set mark to M0.
4512 (defun viper-cycle-through-mark-ring ()
4513 "Visit previous locations on the mark ring.
4516 ;; if repeated `m,' command, pop the previously saved mark.
4517 ;; Prev saved mark is actually prev saved point. It is used if the
4519 ;; from the mark ring by the next `m,' command.
4520 ;; In any case, go to the previous or previously saved mark.
4521 ;; Then push the current mark (popped off the ring) and set current
4522 ;; point to be the mark. Current pt as mark is discarded by the next
4524 (if (eq last-command 'viper-cycle-through-mark-ring)
4526 ;; save current mark if the first iteration
4527 (setq mark-ring (delete (viper-mark-marker) mark-ring))
4528 (if (mark t)
4529 (push-mark (mark t) t)) )
4530 (pop-mark)
4531 (set-mark-command 1)
4532 ;; don't duplicate mark on the ring
4533 (setq mark-ring (delete (viper-mark-marker) mark-ring))
4534 (push-mark sv-pt t)
4535 (viper-deactivate-mark)
4536 (setq this-command 'viper-cycle-through-mark-ring)
4540 (defun viper-goto-mark (arg)
4541 "Go to mark."
4545 (viper-goto-mark-subr char com nil)))
4547 (defun viper-goto-mark-and-skip-white (arg)
4548 "Go to mark and skip to first non-white character on line."
4552 (viper-goto-mark-subr char com t)))
4554 (defun viper-goto-mark-subr (char com skip-white)
4564 ;; were saved (as e.g., in session.el), then restore those markers
4581 (push-mark viper-last-jump t)
4582 (push-mark nil t)) ; no msg
4591 'viper-goto-mark-and-skip-white
4592 'viper-goto-mark)
4603 (if (null (mark t)) (error "Mark is not set in this buffer"))
4604 (if (= (point) (mark t)) (pop-mark))
4605 (exchange-point-and-mark)
4608 (if com (viper-execute-com 'viper-goto-mark nil com)))
4614 (if (= (point) (mark t)) (pop-mark))
4615 (exchange-point-and-mark)
4619 (if com (viper-execute-com 'viper-goto-mark-and-skip-white nil com)))
4626 (defun viper-exchange-point-and-mark ()
4628 (exchange-point-and-mark)
4773 (push-mark nil t)
4775 (delete-region (point) (mark t))
4776 (pop-mark)))
4912 command history in the minibuffer are thrown in as a bonus.
5089 Viper, as it would any other improperly customized Emacs package.