Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
63e6f5b3
Commit
63e6f5b3
authored
May 01, 2002
by
Kim F. Storm
Browse files
(cua-inhibit-cua-keys): New buffer-local variable.
parent
06753468
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
0 deletions
+12
-0
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/emulation/cua-base.el
lisp/emulation/cua-base.el
+9
-0
No files found.
lisp/ChangeLog
View file @
63e6f5b3
...
...
@@ -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.
...
...
lisp/emulation/cua-base.el
View file @
63e6f5b3
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment