350 |
|
|
351 |
(defcustom cua-check-pending-input t |
(defcustom cua-check-pending-input t |
352 |
"*If non-nil, don't override prefix key if input pending. |
"*If non-nil, don't override prefix key if input pending. |
353 |
It is rumoured that input-pending-p is unreliable under some window |
It is rumoured that `input-pending-p' is unreliable under some window |
354 |
managers, so try setting this to nil, if prefix override doesn't work." |
managers, so try setting this to nil, if prefix override doesn't work." |
355 |
:type 'boolean |
:type 'boolean |
356 |
:group 'cua) |
:group 'cua) |
370 |
"*If non-nil, automatically tabify after rectangle commands. |
"*If non-nil, automatically tabify after rectangle commands. |
371 |
This basically means that `tabify' is applied to all lines that |
This basically means that `tabify' is applied to all lines that |
372 |
are modified by inserting or deleting a rectangle. If value is |
are modified by inserting or deleting a rectangle. If value is |
373 |
an integer, cua will look for existing tabs in a region around |
an integer, CUA will look for existing tabs in a region around |
374 |
the rectangle, and only do the conversion if any tabs are already |
the rectangle, and only do the conversion if any tabs are already |
375 |
present. The number specifies then number of characters before |
present. The number specifies then number of characters before |
376 |
and after the region marked by the rectangle to search." |
and after the region marked by the rectangle to search." |
568 |
;;; Low-level Interface |
;;; Low-level Interface |
569 |
|
|
570 |
(defvar cua-inhibit-cua-keys nil |
(defvar cua-inhibit-cua-keys nil |
571 |
"Buffer-local variable that may disable the cua keymappings.") |
"Buffer-local variable that may disable the CUA keymappings.") |
572 |
(make-variable-buffer-local 'cua-inhibit-cua-keys) |
(make-variable-buffer-local 'cua-inhibit-cua-keys) |
573 |
|
|
574 |
;;; Aux. variables |
;;; Aux. variables |
902 |
|
|
903 |
(defun cua-repeat-replace-region (arg) |
(defun cua-repeat-replace-region (arg) |
904 |
"Repeat replacing text of highlighted region with typed text. |
"Repeat replacing text of highlighted region with typed text. |
905 |
Searches for the next streach of text identical to the region last |
Searches for the next stretch of text identical to the region last |
906 |
replaced by typing text over it and replaces it with the same streach |
replaced by typing text over it and replaces it with the same stretch |
907 |
of text." |
of text." |
908 |
(interactive "P") |
(interactive "P") |
909 |
(when cua--last-deleted-region-pos |
(when cua--last-deleted-region-pos |
1331 |
When enabled, using shifted movement keys will activate the region (and |
When enabled, using shifted movement keys will activate the region (and |
1332 |
highlight the region using `transient-mark-mode'), and typed text replaces |
highlight the region using `transient-mark-mode'), and typed text replaces |
1333 |
the active selection. C-z, C-x, C-c, and C-v will undo, cut, copy, and |
the active selection. C-z, C-x, C-c, and C-v will undo, cut, copy, and |
1334 |
paste (in addition to the normal emacs bindings)." |
paste (in addition to the normal Emacs bindings)." |
1335 |
:global t |
:global t |
1336 |
:group 'cua |
:group 'cua |
1337 |
:set-after '(cua-enable-modeline-indications cua-use-hyper-key) |
:set-after '(cua-enable-modeline-indications cua-use-hyper-key) |
1394 |
(setq cua--saved-state nil)))) |
(setq cua--saved-state nil)))) |
1395 |
|
|
1396 |
(defun cua-debug () |
(defun cua-debug () |
1397 |
"Toggle cua debugging." |
"Toggle CUA debugging." |
1398 |
(interactive) |
(interactive) |
1399 |
(setq cua--debug (not cua--debug))) |
(setq cua--debug (not cua--debug))) |
1400 |
|
|