# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 874131367 0
# Node ID 3a37d434891485c6abf879a28b74181341387b99
# Parent  819a01a83872a3ff6e67c7e3cee680caca118531
(viper-mouse-search-key, viper-mouse-insert-key): Fix customize type.

diff -r 819a01a83872 -r 3a37d4348914 lisp/emulation/viper-mous.el
--- a/lisp/emulation/viper-mous.el	Sat Sep 13 06:13:10 1997 +0000
+++ b/lisp/emulation/viper-mous.el	Sat Sep 13 06:16:07 1997 +0000
@@ -607,25 +607,35 @@
 
 (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)