Commit 11ff3b67 authored by Andreas Schwab's avatar Andreas Schwab

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

* cus-start.el: Remove shift-select-mode.
parent d347e494
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.
......
......@@ -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
......
......@@ -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.''
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment