Mercurial > emacs
changeset 19908:3a37d4348914
(viper-mouse-search-key, viper-mouse-insert-key): Fix customize type.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 13 Sep 1997 06:16:07 +0000 |
| parents | 819a01a83872 |
| children | c62c4684f0b7 |
| files | lisp/emulation/viper-mous.el |
| diffstat | 1 files changed, 24 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- 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)