Lines Matching +defs:top +defs:pos
48 ;; Value is a vector [top bot left right corner ins virt select].
101 (defun cua--rectangle-top (&optional val)
191 (if (< (cua--rectangle-bot) (cua--rectangle-top))
192 (message "rectangle bot < top")))
198 (let ((top (point)) (bot (mark)) r l corner)
200 (goto-char top)
204 (if (<= top bot)
206 (setq top (prog1 bot (setq bot top)))
212 (goto-char top)
214 (setq top (point))
218 (vector top bot l r corner 0 cua-virtual-rectangle-edges nil)))
224 ((= c 0) ; top/left -> bot/right
225 (setq pp (cua--rectangle-top) pc (cua--rectangle-left)
227 ((= c 1) ; top/right -> bot/left
228 (setq pp (cua--rectangle-top) pc (cua--rectangle-right)
230 ((= c 2) ; bot/left -> top/right
232 mp (cua--rectangle-top) mc (cua--rectangle-right)))
233 ((= c 3) ; bot/right -> top/left
235 mp (cua--rectangle-top) mc (cua--rectangle-left))))
250 ;; Return point of top left corner
252 (goto-char (cua--rectangle-top))
337 (goto-char (cua--rectangle-top))
340 (cua--rectangle-top t)
359 (goto-char (cua--rectangle-top))
362 (cua--rectangle-top t)
396 (defun cua-resize-rectangle-top ()
397 "Resize rectangle to top of buffer."
401 (cua--rectangle-top t)
411 (cua--rectangle-top t))
421 (cua--rectangle-top t))
440 (cua--rectangle-top t))
443 (defvar cua--mouse-last-pos nil)
456 (setq cua--mouse-last-pos nil))
463 (eq (point) (car-safe cua--mouse-last-pos))
464 (eq cua--last-killed-rectangle (cdr-safe cua--mouse-last-pos)))
472 (setq cua--mouse-last-pos (cons (point) cua--last-killed-rectangle)))))
480 (top (cua--rectangle-top))
486 (goto-char top)
488 (cua--rectangle-top t)
496 (goto-char top)
498 (cua--rectangle-top t)))
543 (start (cua--rectangle-top))
663 ;; point at either next to top right or below bottom left corner
741 cua--mouse-last-pos nil))
757 (sit-for 0) ; make window top/bottom reliable
1396 (cua--rectangle-top t))))
1436 (define-key cua--rectangle-keymap [remap beginning-of-buffer] 'cua-resize-rectangle-top)