* simple.el (shift-select-mode): Make it a defcustom.

* cus-start.el: Remove shift-select-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bae35e3974cfc751d744db2dc1db3de139465cc9..00e5df9f5e90040304739da9870ea1f80b4c68a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/cus-start.el b/lisp/cus-start.el
index 10b352f0e46e8460ea536ec116b77b881ceacfa0..d8d3cc5d3ac85b6d0e1c5bdd2ed788da9e703c37 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -98,7 +98,6 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
                           "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 --git a/lisp/simple.el b/lisp/simple.el
index 8664634196ed6e8d7eb7106135da797d39e1403d..999809e6bd83457f9f6f46d0ffb55ad44af43c33 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3746,7 +3746,7 @@ mode temporarily."
          (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 subsequent point motion key that was not shift-translated, or
 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.''