(menu-bar-tools-menu): Call read-mail-command

[gnu-emacs] / lisp / mouse-sel.el

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index d2c0a48fde2b6468f1ac6652327289c1e51ac63b..789eb3271f05a039a19dcc4560cd8ff86fb5c1f6 100644 (file)
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -152,7 +152,8 @@
 (defcustom mouse-sel-mode nil
   "Toggle Mouse Sel mode.
 When Mouse Sel mode is enabled, mouse selection is enhanced in various ways.
-You must modify via \\[customize] for this variable to have an effect."
+Setting this variable directly does not take effect;
+use either \\[customize] or the function `mouse-sel-mode'."
   :set (lambda (symbol value)
         (mouse-sel-mode (or value 0)))
   :initialize 'custom-initialize-default
@@ -176,8 +177,8 @@ If nil, point will always be placed at the beginning of the region."
 (defcustom mouse-sel-default-bindings t
   "*Control mouse bindings."
   :type '(choice (const :tag "none" nil)
-                (const :tag "default bindings" t)
-                (const :tag "cut and paste" interprogram-cut-paste))
+                (const :tag "cut and paste" interprogram-cut-paste)
+                (other :tag "default bindings" t))
   :group 'mouse-sel)
 
 ;;=== User Command ========================================================