Lines Matching +defs:set +defs:line
78 (defvar cua--rect-undo-set-point nil)
92 (setq cua--rect-undo-set-point s)
102 ;; Top of CUA rectangle (buffer position on first line).
105 (setq val (line-beginning-position))
112 ;; Bot of CUA rectangle (buffer position on last line).
115 (setq val (line-end-position))
171 (defun cua--rectangle-virtual-edges (&optional set val)
173 (if set
220 (defun cua--rectangle-set-corners ()
238 (set-mark (point))
272 (defun cua--forward-line (n)
273 ;; Move forward/backward one line. Returns t if movement.
275 (and (= (forward-line n) 0)
284 (cua--rectangle-set-corners)
332 (when (cua--forward-line 1)
338 (when (cua--forward-line 1)
354 (when (cua--forward-line -1)
360 (when (cua--forward-line -1)
368 "Resize rectangle to end of line."
371 (end-of-line)
379 "Resize rectangle to beginning of line."
382 (beginning-of-line)
431 (mouse-set-point event)
445 (defun cua-mouse-set-rectangle-mark (event)
452 (mouse-set-point event)
454 (cua-set-rectangle-mark)
487 (when (cua--forward-line -1)
490 (forward-line -1)
494 (when (cua--forward-line 1)
497 (cua--forward-line 1)
510 (cua--rectangle-set-corners)
533 ;; Call FCT for each line of region with 4 parameters:
566 (setq end (line-end-position))
570 (setq start (line-beginning-position))
579 (set-marker m (point))
594 (set-marker m nil)
595 (forward-line 1))
608 (cua--rectangle-set-corners)
641 (if (= (point) (line-end-position))
661 (defun cua--insert-rectangle (rect &optional below paste-column line-count)
662 ;; Insert rectangle as insert-rectangle, but don't set mark and exit with
679 (forward-line 1)
692 (if (and line-count (= (setq line-count (1- line-count)) 0))
694 (when (and line-count last-column (not overwrite-mode))
695 (while (> line-count 0)
696 (forward-line 1)
700 (setq line-count (1- line-count))))
709 (set-register cua--register (cua--extract-rectangle))
745 ;; We do this by putting an overlay on each line within the rectangle.
763 (let ((lb (line-beginning-position))
764 (le (line-end-position))
872 (defun cua-set-rectangle-mark (&optional reopen)
886 (cua--rectangle-set-corners)
977 (set-register ?0 (cua--extract-rectangle)))
984 (cua--rectangle-set-corners)
991 (cua--rectangle-set-corners)
1000 (cua--rectangle-set-corners))
1019 On each line in the rectangle, all continuous whitespace starting
1026 (skip-syntax-backward " " (line-beginning-position))
1028 (skip-syntax-forward " " (line-end-position))
1038 (skip-syntax-forward " " (line-end-position))
1042 (skip-syntax-backward " " (line-beginning-position))
1052 (let ((b (line-beginning-position)))
1056 (skip-syntax-forward " " (line-end-position))
1077 (set-register cua--register text)
1089 "Replace CUA rectangle contents with STRING on each line.
1114 "Replace REGEXP with NEWTEXT in each line of CUA rectangle."
1124 "Increment each line of CUA rectangle by prefix amount."
1146 "Resequence each line of CUA rectangle starting from FIRST.
1205 (set-buffer auxbuf)
1216 (setq z (cons (filter-buffer-substring (point) (line-end-position)) z))
1217 (forward-line 1))))
1257 (beginning-of-line)
1260 (forward-line 1))
1302 "Remove the first line of the rectangle and scroll remaining lines up."
1306 (if (= (forward-line 1) 0)
1310 "Insert a blank line at the first line of the rectangle.
1311 The remaining lines are scrolled down, losing the last line."
1387 (cua--rectangle-set-corners))
1407 (when cua--rect-undo-set-point
1408 (goto-char cua--rect-undo-set-point)
1409 (setq cua--rect-undo-set-point nil)))
1427 (define-key cua--rectangle-keymap [remap set-mark-command] 'cua-toggle-rectangle-mark)
1431 (define-key cua--rectangle-keymap [remap next-line] 'cua-resize-rectangle-down)
1432 (define-key cua--rectangle-keymap [remap previous-line] 'cua-resize-rectangle-up)
1433 (define-key cua--rectangle-keymap [remap end-of-line] 'cua-resize-rectangle-eol)
1434 (define-key cua--rectangle-keymap [remap beginning-of-line] 'cua-resize-rectangle-bol)
1455 (define-key cua--rectangle-keymap [mouse-1] 'cua-mouse-set-rectangle-mark)