From a27f97ee156cb33cafb6c7d3c0f1f052058f761f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 13 Sep 1997 06:16:07 +0000 Subject: (viper-mouse-search-key, viper-mouse-insert-key): Fix customize type. --- lisp/emulation/viper-mous.el | 38 ++++++++++++++++++++++++-------------- 1 file changed, 24 insertions(+), 14 deletions(-) (limited to 'lisp/emulation') diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index 3b3fa94a6f..75879dcb97 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) -- cgit v1.2.3