From: Juri Linkov <juri@jurta.org>
Date: Tue, 20 May 2014 21:20:36 +0000 (+0300)
Subject: * lisp/avoid.el (mouse-avoidance-banish-position): Fix defcustom :options
X-Git-Tag: emacs-24.3.92~183
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2614b25fd5bbbdbc1740b4b7d43dc1f010571fab;p=emacs.git

* 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 7d72258318c..2c96eeadfb7 100644
--- 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 de3958745a4..680e509ceba 100644
--- 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)