Mercurial > emacs
comparison lisp/emulation/cua-base.el @ 45074:d57f600f5b7e
(cua-inhibit-cua-keys): New buffer-local variable.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 01 May 2002 22:03:09 +0000 |
| parents | 3c062ba50b96 |
| children | 76c3f51638bd |
comparison
equal
deleted
inserted
replaced
| 45073:c7b6259de115 | 45074:d57f600f5b7e |
|---|---|
| 457 | 457 |
| 458 (eval-when-compile | 458 (eval-when-compile |
| 459 (require 'cua-rect) | 459 (require 'cua-rect) |
| 460 (require 'cua-gmrk) | 460 (require 'cua-gmrk) |
| 461 ) | 461 ) |
| 462 | |
| 463 | |
| 464 ;;; Low-level Interface | |
| 465 | |
| 466 (defvar cua-inhibit-cua-keys nil | |
| 467 "Buffer-local variable that may disable the cua keymappings.") | |
| 468 (make-variable-buffer-local 'cua-inhibit-cua-keys) | |
| 462 | 469 |
| 463 ;;; Aux. variables | 470 ;;; Aux. variables |
| 464 | 471 |
| 465 ;; Current region was started using cua-set-mark. | 472 ;; Current region was started using cua-set-mark. |
| 466 (defvar cua--explicit-region-start nil) | 473 (defvar cua--explicit-region-start nil) |
| 1002 (setq cua--ena-region-keymap | 1009 (setq cua--ena-region-keymap |
| 1003 (and mark-active (not deactivate-mark))) | 1010 (and mark-active (not deactivate-mark))) |
| 1004 (setq cua--ena-prefix-override-keymap | 1011 (setq cua--ena-prefix-override-keymap |
| 1005 (and cua--ena-region-keymap | 1012 (and cua--ena-region-keymap |
| 1006 cua-enable-cua-keys | 1013 cua-enable-cua-keys |
| 1014 (not cua-inhibit-cua-keys) | |
| 1007 (or (eq cua-enable-cua-keys t) | 1015 (or (eq cua-enable-cua-keys t) |
| 1008 (not cua--explicit-region-start)) | 1016 (not cua--explicit-region-start)) |
| 1009 (not executing-kbd-macro) | 1017 (not executing-kbd-macro) |
| 1010 (not cua--prefix-override-timer))) | 1018 (not cua--prefix-override-timer))) |
| 1011 (setq cua--ena-prefix-repeat-keymap | 1019 (setq cua--ena-prefix-repeat-keymap |
| 1012 (and cua--ena-region-keymap | 1020 (and cua--ena-region-keymap |
| 1013 (timerp cua--prefix-override-timer))) | 1021 (timerp cua--prefix-override-timer))) |
| 1014 (setq cua--ena-cua-keys-keymap | 1022 (setq cua--ena-cua-keys-keymap |
| 1015 (and cua-enable-cua-keys | 1023 (and cua-enable-cua-keys |
| 1024 (not cua-inhibit-cua-keys) | |
| 1016 (or (eq cua-enable-cua-keys t) | 1025 (or (eq cua-enable-cua-keys t) |
| 1017 cua--last-region-shifted))) | 1026 cua--last-region-shifted))) |
| 1018 (setq cua--ena-global-mark-keymap | 1027 (setq cua--ena-global-mark-keymap |
| 1019 (and cua--global-mark-active | 1028 (and cua--global-mark-active |
| 1020 (not (window-minibuffer-p))))) | 1029 (not (window-minibuffer-p))))) |