[Emacs-diffs] Changes to emacs/lisp/emulation/cua-base.el

[Kim F. Storm]

Index: emacs/lisp/emulation/cua-base.el
diff -c emacs/lisp/emulation/cua-base.el:1.3 
emacs/lisp/emulation/cua-base.el:1.4
*** emacs/lisp/emulation/cua-base.el:1.3        Wed May  1 10:22:06 2002
--- emacs/lisp/emulation/cua-base.el    Wed May  1 18:03:09 2002
***************
*** 460,465 ****
--- 460,472 ----
    (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,1009 ****
--- 1011,1017 ----
    (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,1018 ****
--- 1021,1027 ----
             (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