# HG changeset patch
# User Andreas Schwab <schwab@linux-m68k.org>
# Date 1238172614 0
# Node ID 364aae6e64028d24e44696c0ece6702d6f1e86ae
# Parent  d69c45eb83b1559ae943655bb78ab80940a8c1d2
* simple.el (shift-select-mode): Make it a defcustom.
* cus-start.el: Remove shift-select-mode.

diff -r d69c45eb83b1 -r 364aae6e6402 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 27 16:14:23 2009 +0000
+++ b/lisp/ChangeLog	Fri Mar 27 16:50:14 2009 +0000
@@ -1,3 +1,8 @@
+2009-03-27  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* simple.el (shift-select-mode): Make it a defcustom.
+	* cus-start.el: Remove shift-select-mode.
+
 2009-03-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* simple.el (shift-select-mode): Move declaration from callint.c.
diff -r d69c45eb83b1 -r 364aae6e6402 lisp/cus-start.el
--- a/lisp/cus-start.el	Fri Mar 27 16:14:23 2009 +0000
+++ b/lisp/cus-start.el	Fri Mar 27 16:50:14 2009 +0000
@@ -98,7 +98,6 @@
 			   "22.1")
 	     ;; callint.c
 	     (mark-even-if-inactive editing-basics boolean)
-	     (shift-select-mode editing-basics boolean)
 	     ;; callproc.c
 	     (shell-file-name execute file)
 	     (exec-path execute
diff -r d69c45eb83b1 -r 364aae6e6402 lisp/simple.el
--- a/lisp/simple.el	Fri Mar 27 16:14:23 2009 +0000
+++ b/lisp/simple.el	Fri Mar 27 16:50:14 2009 +0000
@@ -3746,7 +3746,7 @@
 	  (t (activate-mark)))
     nil))
 
-(defvar shift-select-mode t
+(defcustom shift-select-mode t
   "When non-nil, shifted motion keys activate the mark momentarily.
 
 While the mark is activated in this way, any shift-translated point
@@ -3756,7 +3756,9 @@
 by any action that normally deactivates the mark in Transient Mark mode.
 
 See `this-command-keys-shift-translated' for the meaning of
-shift-translation.")
+shift-translation."
+  :type 'boolean
+  :group 'editing-basics)
 
 (defun handle-shift-selection ()
   "Activate/deactivate mark depending on invocation thru ``shift translation.''