Lines Matching +defs:global +defs:mode
49 ;; transient-mark-mode is used), the C-x and C-c keys will work as CUA
102 ;; Note: Since CUA-mode duplicates the functionality of the
103 ;; delete-selection-mode, that mode is automatically disabled when
104 ;; CUA-mode is enabled.
107 ;; CUA mode indications
110 ;; overwrite mode and read-only buffers. For example, the following
111 ;; setting will use a RED cursor in normal (insertion) mode in
112 ;; read-write buffers, a YELLOW cursor in overwrite mode in read-write
128 ;; Or if you have activated the keypad prefix mode, enter [kp-2 C-c].
145 ;; cua-mode's superior rectangle support uses a true visual
155 ;; This means that cua-mode's rectangles are not limited to the actual
167 ;; the only new command you need to know to work with cua-mode
172 ;; If overwrite-mode is active when you paste a rectangle, it is
199 ;; cua-mode's rectangle support also includes all the normal rectangle
236 ;; The final feature provided by CUA is the "global mark", which
238 ;; files into the current text. To enable and cancel the global mark,
239 ;; use [S-C-space]. The cursor will blink when the global mark
240 ;; is active. The following commands behave differently when the global
243 ;; at the global mark!
245 ;; at the global mark, and the global mark is advanced.
247 ;; at the global mark, and the global mark is advanced.
248 ;; [C-v] Copies a single character to the global mark.
250 ;; global mark.
251 ;; [backspace] deletes the character before the global mark, while
252 ;; [delete] deltes the character after the global mark.
254 ;; [S-C-space] Jumps to and cancels the global mark.
255 ;; [C-u S-C-space] Cancels the global mark (stays in current buffer).
258 ;; global mark.
287 When this is non-nil, CUA toggles `transient-mark-mode' on when the region
289 But when the mark was set using \\[cua-set-mark], transient-mark-mode
358 "*If non-nil, use minor-mode hook to show status in mode line."
402 (defvar cua-global-keymap) ; forward
411 (define-key cua-global-keymap value
432 "*If non-nil, automatically show help for region, rectangle and global mark."
451 (defcustom cua-global-mark-keep-visible t
452 "*If non-nil, always keep global mark visible in other window."
456 (defface cua-global-mark
460 "*Font used by CUA for highlighting the global mark."
463 (defcustom cua-global-mark-blink-cursor-interval 0.20
464 "*Blink cursor at this interval when global mark is active."
535 "*Cursor color used when overwrite mode is set, if non-nil.
558 (defcustom cua-global-mark-cursor-color "cyan"
559 "*Indication for active global mark.
600 (autoload 'cua-toggle-global-mark "cua-gmrk" nil t nil)
605 (defvar cua--global-mark-active)
606 (setq cua--global-mark-active nil))
636 ;; status string for mode line indications
673 ;; are inactive, so the timeout in cua-global-keymap binding is used, or the
674 ;; normal prefix key binding from the global or local map will be used.
821 (let ((overwrite-mode
822 (and overwrite-mode
867 ;;; Generic commands for regions, rectangles, and global marks
870 "Cancel the active region, rectangle, or global mark."
881 If global mark is active, copy from register or one character."
890 (cua--global-mark-active
892 (cua--insert-at-global-mark regtxt)
894 (cua--insert-at-global-mark (filter-buffer-substring (point) (+ (point) count)))
1075 global mark ring if last mark was set in another buffer.
1078 the local mark ring (this does not affect the global mark ring).
1079 Use \\[pop-global-mark] to jump to a mark off the global mark ring
1080 \(see `pop-global-mark').
1086 off the local (or global) mark ring.
1096 ((and (eq last-command 'pop-global-mark) (not arg))
1097 (setq this-command 'pop-global-mark)
1098 (pop-global-mark))
1163 ((and cua--global-mark-active
1164 cua-global-mark-cursor-color)
1165 cua-global-mark-cursor-color)
1169 ((and cua-overwrite-cursor-color overwrite-mode)
1262 (when cua-mode
1270 (when cua--global-mark-active
1271 (cua--global-mark-post-command))
1285 ;; Disable transient-mark-mode if rectangle active in current buffer.
1287 (setq transient-mark-mode (and (not cua--rectangle)
1297 (when cua-mode
1315 ;; global-map.
1316 (if (memq (global-key-binding (this-single-command-keys))
1320 (defvar cua-global-keymap (make-sparse-keymap)
1321 "Global keymap for cua-mode; users may add to this keymap.")
1326 (defvar cua--global-mark-keymap (make-sparse-keymap)) ; Initalized when cua-gmrk.el is loaded
1334 (defvar cua--ena-global-mark-keymap nil)
1340 (cua--ena-global-mark-keymap . ,cua--global-mark-keymap)
1343 (cua-mode . ,cua-global-keymap)))
1366 (setq cua--ena-global-mark-keymap
1367 (and cua--global-mark-active
1400 (define-key cua-global-keymap cua-rectangle-mark-key 'cua-set-rectangle-mark)
1402 (cua--M/H-key cua-global-keymap ?\s 'cua-set-rectangle-mark)
1403 (define-key cua-global-keymap
1406 (define-key cua-global-keymap [(shift control ?\s)] 'cua-toggle-global-mark)
1409 (define-key cua-global-keymap [remap yank] 'cua-paste)
1410 (define-key cua-global-keymap [remap clipboard-yank] 'cua-paste)
1411 (define-key cua-global-keymap [remap x-clipboard-yank] 'cua-paste)
1413 (define-key cua-global-keymap [remap yank-pop] 'cua-paste-pop)
1415 (define-key cua-global-keymap [remap set-mark-command] 'cua-set-mark)
1418 (define-key cua-global-keymap [remap scroll-up] 'cua-scroll-up)
1419 (define-key cua-global-keymap [remap scroll-down] 'cua-scroll-down)
1489 ;; State prior to enabling cua-mode
1491 ;; transient-mark-mode
1492 ;; delete-selection-mode
1493 ;; pc-selection-mode
1498 (define-minor-mode cua-mode
1499 "Toggle CUA key-binding mode.
1501 region (and highlight the region using `transient-mark-mode'),
1521 CUA mode manages Transient Mark mode internally. Trying to disable
1522 Transient Mark mode while CUA mode is enabled does not work; if you
1525 :global t
1538 (if cua-mode
1542 (if (and cua-enable-modeline-indications (not (assoc 'cua-mode minor-mode-alist)))
1543 (setq minor-mode-alist (cons '(cua-mode cua--status-string) minor-mode-alist)))
1550 (if (not cua-mode)
1551 (setq emulation-mode-map-alists (delq 'cua--keymap-alist emulation-mode-map-alists))
1552 (add-to-ordered-list 'emulation-mode-map-alists 'cua--keymap-alist 400)
1556 (cua-mode
1559 transient-mark-mode
1560 (and (boundp 'delete-selection-mode) delete-selection-mode)
1561 (and (boundp 'pc-selection-mode) pc-selection-mode)))
1562 (if (and (boundp 'delete-selection-mode) delete-selection-mode)
1563 (delete-selection-mode -1))
1564 (if (and (boundp 'pc-selection-mode) pc-selection-mode)
1565 (pc-selection-mode -1))
1567 (setq transient-mark-mode (and cua-mode
1572 (setq transient-mark-mode (car cua--saved-state))
1574 (delete-selection-mode 1))
1576 (pc-selection-mode 1))
1578 (message "CUA mode disabled.%s%s%s%s"
1587 (defun cua-selection-mode (arg)
1588 "Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings."
1591 (cua-mode arg))
1599 ;; Install run-time check for older versions of CUA-mode which does not
1602 ;; Except for version 1.2, all of the 1.x and 2.x version of cua-mode
1603 ;; provided the `CUA-mode' feature. Since this is no longer true,
1604 ;; we can warn the user if the `CUA-mode' feature is ever provided.
1606 ;;;###autoload (eval-after-load 'CUA-mode
1608 ;;;###autoload "CUA-mode is now part of the standard GNU Emacs distribution, so you may\n"
1609 ;;;###autoload "now enable CUA via the Options menu or by customizing option `cua-mode'.\n\n"
1610 ;;;###autoload "You have loaded an older version of CUA-mode which does\n"