* lisp/avoid.el (mouse-avoidance-banish-position): Fix defcustom :options

to allow changing its value with `set-variable'.

Fixes: debbugs:17439

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d72258318c944b47ef4b3ade6407e89b942af2c..2c96eeadfb7a6b72f75435e0b34e6ed8ab51f693 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,9 @@
        Add more modifiers: meta, control, shift, hyper, super, alt.
        (Bug#17439)
 
+       * avoid.el (mouse-avoidance-banish-position): Fix defcustom :options
+       to allow changing its value with `set-variable'.
+
 2014-05-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/scheme.el (scheme-mode-syntax-table): Remove hack for

diff --git a/lisp/avoid.el b/lisp/avoid.el
index de3958745a48d8d789b0109a6669e848d9dd5865..680e509cebab0379e1292c1307a45e619a3700b2 100644 (file)
--- a/lisp/avoid.el
+++ b/lisp/avoid.el
@@ -126,9 +126,9 @@ TOP-OR-BOTTOM: banish the mouse to top or bottom of frame or window.
 TOP-OR-BOTTOM-POS: Distance from top or bottom edge of frame or window."
   :group   'avoid
   :version "24.3"
-  :type    '(alist :key-type symbol :value-type symbol)
-  :options '(frame-or-window side (side-pos integer)
-             top-or-bottom (top-or-bottom-pos integer)))
+  :type    '(alist :key-type symbol :value-type (choice symbol integer))
+  :options '((frame-or-window symbol) (side symbol) (side-pos integer)
+             (top-or-bottom symbol) (top-or-bottom-pos integer)))
 
 ;; Internal variables
 (defvar mouse-avoidance-state nil)