diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2009-03-27 16:50:14 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2009-03-27 16:50:14 +0000 |
| commit | 11ff3b6711269495d70f771f20fbc3fcffba4661 (patch) | |
| tree | 6e46ab430490f85628081078c2b014b4ae56cea5 | |
| parent | d347e4943a371d278f479db89d932f136d6ee659 (diff) | |
| download | emacs-11ff3b6711269495d70f771f20fbc3fcffba4661.tar.gz | |
* simple.el (shift-select-mode): Make it a defcustom.
* cus-start.el: Remove shift-select-mode.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/cus-start.el | 1 | ||||
| -rw-r--r-- | lisp/simple.el | 6 |
3 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bae35e3974c..00e5df9f5e9 100644 --- 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 10b352f0e46..d8d3cc5d3ac 100644 --- 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 8664634196e..999809e6bd8 100644 --- 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.'' |