# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 874365663 0
# Node ID b960ef5a1eccc53c22886d676027a8a99455058a
# Parent  d21ea4b5978e68bc0a4a69c313e58453be0a2b98
(viper-mouse-search-key): Fix custom type.
(viper-mouse-insert-key): Likewise.

diff -r d21ea4b5978e -r b960ef5a1ecc lisp/emulation/viper-mous.el
--- a/lisp/emulation/viper-mous.el	Mon Sep 15 23:19:58 1997 +0000
+++ b/lisp/emulation/viper-mous.el	Mon Sep 15 23:21:03 1997 +0000
@@ -613,12 +613,11 @@
 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
+  :type '(list (set :inline t :tag "Modifiers" :format "%t: %v"
+		     (const :format "%v " meta)
+		     (const :format "%v " shift)
+		     (const control))
+	       (integer :tag "Button"))
   :set 'viper-reset-mouse-search-key
   :group 'viper-mouse)
 
@@ -630,12 +629,11 @@
 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
+  :type '(list (set :inline t :tag "Modifiers" :format "%t: %v"
+		     (const :format "%v " meta)
+		     (const :format "%v " shift)
+		     (const control))
+	       (integer :tag "Button"))
   :set 'viper-reset-mouse-insert-key
   :group 'viper-mouse)