Mercurial > emacs

changeset 45074:d57f600f5b7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 c7b6259de115
children 2b5409461659
files lisp/emulation/cua-base.el
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Wed May 01 22:01:16 2002 +0000
+++ b/lisp/emulation/cua-base.el	Wed May 01 22:03:09 2002 +0000
@@ -460,6 +460,13 @@
   (require 'cua-gmrk)
   )
 
+
+;;; Low-level Interface
+
+(defvar cua-inhibit-cua-keys nil
+  "Buffer-local variable that may disable the cua keymappings.")
+(make-variable-buffer-local 'cua-inhibit-cua-keys)
+
 ;;; Aux. variables
 
 ;; Current region was started using cua-set-mark.
@@ -1004,6 +1011,7 @@
   (setq cua--ena-prefix-override-keymap
 	(and cua--ena-region-keymap
 	     cua-enable-cua-keys
+	     (not cua-inhibit-cua-keys)
 	     (or (eq cua-enable-cua-keys t)
 		 (not cua--explicit-region-start))
 	     (not executing-kbd-macro)
@@ -1013,6 +1021,7 @@
 	     (timerp cua--prefix-override-timer)))
   (setq cua--ena-cua-keys-keymap
 	(and cua-enable-cua-keys
+	     (not cua-inhibit-cua-keys)
 	     (or (eq cua-enable-cua-keys t)
 		 cua--last-region-shifted)))
   (setq cua--ena-global-mark-keymap