[Emacs-diffs] emacs/lisp ChangeLog cus-start.el simple.el

[Andreas Schwab]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Andreas Schwab <schwab> 09/03/27 16:50:26

Modified files:
        lisp           : ChangeLog cus-start.el simple.el 

Log message:
        * simple.el (shift-select-mode): Make it a defcustom.
        * cus-start.el: Remove shift-select-mode.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15526&r2=1.15527
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cus-start.el?cvsroot=emacs&r1=1.135&r2=1.136
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.980&r2=1.981

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15526
retrieving revision 1.15527
diff -u -b -r1.15526 -r1.15527
--- ChangeLog   26 Mar 2009 17:07:54 -0000      1.15526
+++ ChangeLog   27 Mar 2009 16:50:14 -0000      1.15527
@@ -1,3 +1,8 @@
+2009-03-27  Andreas Schwab  <address@hidden>
+
+       * simple.el (shift-select-mode): Make it a defcustom.
+       * cus-start.el: Remove shift-select-mode.
+
 2009-03-26  Stefan Monnier  <address@hidden>
 
        * simple.el (shift-select-mode): Move declaration from callint.c.

Index: cus-start.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-start.el,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -b -r1.135 -r1.136
--- cus-start.el        21 Mar 2009 13:01:44 -0000      1.135
+++ cus-start.el        27 Mar 2009 16:50:25 -0000      1.136
@@ -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

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.980
retrieving revision 1.981
diff -u -b -r1.980 -r1.981
--- simple.el   26 Mar 2009 17:07:57 -0000      1.980
+++ simple.el   27 Mar 2009 16:50:25 -0000      1.981
@@ -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.''