Lines Matching +defs:indent +defs:to
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
100 buffer. Otherwise jump to the global marker position and cancel it.
101 With prefix argument, don't jump to global mark when cancelling it."
111 (pop-to-buffer (marker-buffer cua--global-mark-marker))
123 (message "%s %d to global mark in %s:%d" msg
139 (defun cua-copy-region-to-global-mark (start end)
140 "Copy region to global mark buffer/position."
153 (message "Copied %d to global mark in %s:%d"
160 (defun cua-cut-region-to-global-mark (start end)
161 "Move region to global buffer/position."
182 (message "Moved %d to global mark in %s:%d"
192 (defun cua--copy-rectangle-to-global-mark (as-text)
193 ;; Copy rectangle to global mark buffer/position.
207 (message "Copied rectangle to global mark in %s:%d"
213 (defun cua--cut-rectangle-to-global-mark (as-text)
214 ;; Move rectangle to global buffer/position.
242 (message "Moved rectangle to global mark in %s:%d"
249 (defun cua-copy-to-global-mark ()
250 "Copy active region/rectangle to global mark buffer/position."
254 (cua--copy-rectangle-to-global-mark nil)
258 (cua-copy-region-to-global-mark start end))))
260 (defun cua-copy-next-to-global-mark (n)
261 "Copy the following N characters in buffer to global mark buffer/position."
267 (cua-copy-region-to-global-mark p (point)))))
269 (defun cua-cut-to-global-mark ()
270 "Move active region/rectangle to global mark buffer/position."
273 (cua-copy-to-global-mark)
276 (cua--cut-rectangle-to-global-mark nil)
280 (cua-cut-region-to-global-mark start end)))))
282 (defun cua-cut-next-to-global-mark (n)
283 "Move the following N characters in buffer to global mark buffer/position."
289 (cua-cut-region-to-global-mark p (point)))))
304 (cua--insert-at-global-mark (char-to-string (aref (this-single-command-keys) 0)) "Inserted"))
311 (defun cua-indent-to-global-mark-column ()
312 "Indent current line or rectangle to global mark column."
321 (cua--indent-rectangle nil col t)
322 (indent-to col))
326 (move-to-column col)
350 ;; The following code is an attempt to keep the global mark visible in
352 (switch-to-buffer-other-window (marker-buffer cua--global-mark-marker) t)
362 (define-key cua--global-mark-keymap [remap copy-region-as-kill] 'cua-copy-to-global-mark)
363 (define-key cua--global-mark-keymap [remap kill-ring-save] 'cua-copy-to-global-mark)
364 (define-key cua--global-mark-keymap [remap kill-region] 'cua-cut-to-global-mark)
365 (define-key cua--global-mark-keymap [remap yank] 'cua-copy-next-to-global-mark)
370 (define-key cua--global-mark-keymap [(control ?d)] 'cua-cut-next-to-global-mark)
382 (define-key cua--global-mark-keymap [remap newline-and-indent] 'cua-insert-newline-at-global-mark)
385 (define-key cua--global-mark-keymap "\t" 'cua-indent-to-global-mark-column)