binding S-mouse-1

[Tak Kunihiro <tkk@misasa.okayama-u.ac.jp>]

Keys <S-right> and <S-left> extend region.  I think that [S-mouse-1]
should behave similar by default.

I propose to bind mouse-appearance-menu to super instead of shift,
  (global-set-key [S-down-mouse-1] 'mouse-appearance-menu)
and bind following to let shift click to extend region on mouse.el.
  (global-set-key [S-down-mouse-1] 'ignore)
  (global-set-key [S-mouse-1] 'mouse-save-then-kill)


diff --git a/mouse.26.el b/mouse.el
index 9b6b169..fdca439 100755
--- a/mouse.26.el
+++ b/mouse.el
@@ -2046,7 +2046,7 @@ is copied instead of being cut."
 ;; event to make the selection, saving a click.
 (global-set-key [C-down-mouse-1] 'mouse-buffer-menu)
 (if (not (eq system-type 'ms-dos))
-    (global-set-key [S-down-mouse-1] 'mouse-appearance-menu))
+    (global-set-key [s-down-mouse-1] 'mouse-appearance-menu))
 ;; C-down-mouse-2 is bound in facemenu.el.
 (global-set-key [C-down-mouse-3]
   `(menu-item ,(purecopy "Menu Bar") ignore
@@ -2055,6 +2055,10 @@ is copied instead of being cut."
                   (mouse-menu-bar-map)
                 (mouse-menu-major-mode-map)))))
 
+;; Binding mouse-1 to extend region when `shift' is pressed.
+(global-set-key [S-down-mouse-1] 'ignore)
+(global-set-key [S-mouse-1] 'mouse-save-then-kill)
+
 ;; Binding mouse-1 to mouse-select-window when on mode-, header-, or
 ;; vertical-line prevents Emacs from signaling an error when the mouse
 ;; button is released after dragging these lines, on non-toolkit