Lines Matching +defs:mode +defs:alist
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
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."
478 (and (boundp 'initial-frame-alist)
479 (assoc 'cursor-color initial-frame-alist)
480 (cdr (assoc 'cursor-color initial-frame-alist)))
481 (and (boundp 'default-frame-alist)
482 (assoc 'cursor-color default-frame-alist)
483 (cdr (assoc 'cursor-color default-frame-alist)))
535 "*Cursor color used when overwrite mode is set, if non-nil.
636 ;; status string for mode line indications
821 (let ((overwrite-mode
822 (and overwrite-mode
1169 ((and cua-overwrite-cursor-color overwrite-mode)
1262 (when cua-mode
1285 ;; Disable transient-mark-mode if rectangle active in current buffer.
1287 (setq transient-mark-mode (and (not cua--rectangle)
1297 (when cua-mode
1321 "Global keymap for cua-mode; users may add to this keymap.")
1336 (defvar cua--keymap-alist
1343 (cua-mode . ,cua-global-keymap)))
1346 ;; Setup conditions for selecting the proper keymaps in cua--keymap-alist.
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
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"