Mercurial > emacs

changeset 93551:e2159923235d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-mode): Turn off shift-select-mode.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 02 Apr 2008 20:17:20 +0000
parents d4564d8c8835
children b3998548dbfa
files lisp/emulation/cua-base.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Wed Apr 02 20:17:05 2008 +0000
+++ b/lisp/emulation/cua-base.el	Wed Apr 02 20:17:20 2008 +0000
@@ -1579,12 +1579,14 @@
 	  (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 @@
 	(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" "")