Mercurial > emacs
changeset 102745:364aae6e6402
* simple.el (shift-select-mode): Make it a defcustom.
* cus-start.el: Remove shift-select-mode.
| author | Andreas Schwab <schwab@linux-m68k.org> |
|---|---|
| date | Fri, 27 Mar 2009 16:50:14 +0000 |
| parents | d69c45eb83b1 |
| children | 9e4328a0286b |
| files | lisp/ChangeLog lisp/cus-start.el lisp/simple.el |
| diffstat | 3 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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
--- 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.''