Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(cua-mode): Turn off shift-select-mode.

Browse source
This commit is contained in:
Chong Yidong 2008-04-02 20:17:20 +00:00
parent 2169fd5564
commit 9d93718697
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emulation/cua-base.el
View file

@ -1579,12 +1579,14 @@ shifted movement key, set `cua-highlight-region-shift-only'."
(list
transient-mark-mode
(and (boundp 'delete-selection-mode) delete-selection-mode)
(and (boundp 'pc-selection-mode) pc-selection-mode)))
(and (boundp 'pc-selection-mode) pc-selection-mode)
shift-select-mode))
(if (and (boundp 'delete-selection-mode) delete-selection-mode)
(delete-selection-mode -1))
(if (and (boundp 'pc-selection-mode) pc-selection-mode)
(pc-selection-mode -1))
(cua--deactivate)
(setq shift-select-mode nil)
(setq transient-mark-mode (and cua-mode
(if cua-highlight-region-shift-only
(not cua--explicit-region-start)
@ -1595,6 +1597,7 @@ shifted movement key, set `cua-highlight-region-shift-only'."
(delete-selection-mode 1))
(if (nth 2 cua--saved-state)
(pc-selection-mode 1))
(setq shift-select-mode (nth 3 cua--saved-state))
(if (interactive-p)
(message "CUA mode disabled.%s%s%s%s"
(if (nth 1 cua--saved-state) " Delete-Selection" "")