Lines Matching defs:move
30 ;; shift key and move the cursor to the other end of the region. The
34 ;; Currently, s-region-move may be bound only to events that are vectors
66 (defun s-region-move-p1 (&rest arg)
69 (apply (function s-region-move) arg))
71 (defun s-region-move-p2 (&rest arg)
74 (apply (function s-region-move) arg))
76 (defun s-region-move (&rest arg)
77 (if (if mark-active (not (equal last-command 's-region-move)) t)
80 (setq this-command 's-region-move)
82 (move-overlay s-region-overlay (mark) (point) (current-buffer))
87 "Bind shifted keys in KEYLIST to `s-region-move-p1' or `s-region-move-p2'.
88 Each key in KEYLIST is shifted and bound to one of the `s-region-move'
103 's-region-move-p2)
104 (t 's-region-move-p1)))))