(viper-mouse-search-key, viper-mouse-insert-key): Fix customize type.

1 files changed, 24 insertions, 14 deletions

diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el
index 3b3fa94a6fe..75879dcb973 100644
--- a/lisp/emulation/viper-mous.el
+++ b/lisp/emulation/viper-mous.el
@@ -607,25 +607,35 @@ bindings in the Viper manual."
 
 (defcustom viper-mouse-search-key '(meta shift 1)
   "*Key used to click-search in Viper.
-Must be a list that specifies the mouse button and modifiers. The supported
-modifiers are `meta', `shift', and `control'. For instance, `(meta shift 1)'
-means that holding the meta and shift keys down and clicking on a word with
-mouse button 1 will initiate search for that word in the buffer that was
-current just before the click. This buffer may be different from the one where
-the click occurred."
-  :type 'list
+This must be a list that specifies the mouse button and modifiers.
+The supported modifiers are `meta', `shift', and `control'.
+For instance, `(meta shift 1)' means that holding the meta and shift
+keys down and clicking on a word with mouse button 1
+will search for that word in the buffer that was current before the click.
+This buffer may be different from the one where the click occurred."
+  ;; This does not work
+  ;; :type '(list (set :inline meta shift control)
+  ;;           integer)
+  ;; This doesn't work either.
+  ;; :type '(set meta shift control 1 2 3)
+  :type 'sexp
   :set 'viper-reset-mouse-search-key
   :group 'viper-mouse)
 
 (defcustom viper-mouse-insert-key '(meta shift 2)
   "*Key used to click-insert in Viper.
-Must be a list that specifies the mouse button and modifiers. The supported
-modifiers are `meta', `shift', and `control'. For instance, `(meta shift 2)'
-means that holding the meta and shift keys down and clicking on a word with
-mouse button 2 will insert that word at the cursor in the buffer that was
-current just before the click. This buffer may be different from the one where 
-the click occurred."
-  :type 'list
+Must be a list that specifies the mouse button and modifiers.
+The supported modifiers are `meta', `shift', and `control'.
+For instance, `(meta shift 2)' means that holding the meta and shift keys
+down, and clicking on a word with mouse button 2, will insert that word
+at the cursor in the buffer that was current just before the click.
+This buffer may be different from the one where the click occurred."
+  ;; This does not work.
+  ;; :type '(list (set :inline meta shift control)
+  ;;           integer)
+  ;; This doesn't work either.
+  ;; :type '(set meta shift control 1 2 3)
+  :type 'sexp
   :set 'viper-reset-mouse-insert-key
   :group 'viper-mouse)