Shift-movement selection (was: position on changing defaults?)

[Stefan Monnier]

How 'bout solving the problem of shift-movement selection in a less
sophisticated way.  E.g. provide a function like

   (defun activate-on-shift-selecting-movement ()
     (if (this-command-keys-are-shifted-p)
         (progn
           (setq shift-selecting-movement t)
           (unless mark-active (set-mark)))
       (when shift-selecting-movement
         (setq shift-selecting-movement nil)
         (when mark-active (deactivate-mark)))))

and then call it from wherever it's considered useful
(e.g. forward-char, next-line, ...).


-- Stefan