Commit 63e6f5b3 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(cua-inhibit-cua-keys): New buffer-local variable.

parent 06753468
......@@ -5,6 +5,9 @@
(menu-bar-options-menu): Added toggle for cua-mode. Disable
toggle for transient-mark-mode if cua-mode is enabled.
* emulation/cua-base.el (cua-inhibit-cua-keys): New buffer-local
variable.
2002-05-01 Richard M. Stallman <rms@gnu.org>
* help.el (view-todo): New function.
......
......@@ -460,6 +460,13 @@ Will change cursor color to specified color if string."
(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 @@ Extra commands should be added to `cua-user-movement-commands'")
(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 @@ Extra commands should be added to `cua-user-movement-commands'")
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment