Mercurial > emacs
comparison lisp/emulation/viper-mous.el @ 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 | 22c1e47f66e1 |
| children | b960ef5a1ecc |
comparison
equal
deleted
inserted
replaced
| 19907:819a01a83872 | 19908:3a37d4348914 |
|---|---|
| 605 (viper-bind-mouse-insert-key 'force)) | 605 (viper-bind-mouse-insert-key 'force)) |
| 606 | 606 |
| 607 | 607 |
| 608 (defcustom viper-mouse-search-key '(meta shift 1) | 608 (defcustom viper-mouse-search-key '(meta shift 1) |
| 609 "*Key used to click-search in Viper. | 609 "*Key used to click-search in Viper. |
| 610 Must be a list that specifies the mouse button and modifiers. The supported | 610 This must be a list that specifies the mouse button and modifiers. |
| 611 modifiers are `meta', `shift', and `control'. For instance, `(meta shift 1)' | 611 The supported modifiers are `meta', `shift', and `control'. |
| 612 means that holding the meta and shift keys down and clicking on a word with | 612 For instance, `(meta shift 1)' means that holding the meta and shift |
| 613 mouse button 1 will initiate search for that word in the buffer that was | 613 keys down and clicking on a word with mouse button 1 |
| 614 current just before the click. This buffer may be different from the one where | 614 will search for that word in the buffer that was current before the click. |
| 615 the click occurred." | 615 This buffer may be different from the one where the click occurred." |
| 616 :type 'list | 616 ;; This does not work |
| 617 ;; :type '(list (set :inline meta shift control) | |
| 618 ;; integer) | |
| 619 ;; This doesn't work either. | |
| 620 ;; :type '(set meta shift control 1 2 3) | |
| 621 :type 'sexp | |
| 617 :set 'viper-reset-mouse-search-key | 622 :set 'viper-reset-mouse-search-key |
| 618 :group 'viper-mouse) | 623 :group 'viper-mouse) |
| 619 | 624 |
| 620 (defcustom viper-mouse-insert-key '(meta shift 2) | 625 (defcustom viper-mouse-insert-key '(meta shift 2) |
| 621 "*Key used to click-insert in Viper. | 626 "*Key used to click-insert in Viper. |
| 622 Must be a list that specifies the mouse button and modifiers. The supported | 627 Must be a list that specifies the mouse button and modifiers. |
| 623 modifiers are `meta', `shift', and `control'. For instance, `(meta shift 2)' | 628 The supported modifiers are `meta', `shift', and `control'. |
| 624 means that holding the meta and shift keys down and clicking on a word with | 629 For instance, `(meta shift 2)' means that holding the meta and shift keys |
| 625 mouse button 2 will insert that word at the cursor in the buffer that was | 630 down, and clicking on a word with mouse button 2, will insert that word |
| 626 current just before the click. This buffer may be different from the one where | 631 at the cursor in the buffer that was current just before the click. |
| 627 the click occurred." | 632 This buffer may be different from the one where the click occurred." |
| 628 :type 'list | 633 ;; This does not work. |
| 634 ;; :type '(list (set :inline meta shift control) | |
| 635 ;; integer) | |
| 636 ;; This doesn't work either. | |
| 637 ;; :type '(set meta shift control 1 2 3) | |
| 638 :type 'sexp | |
| 629 :set 'viper-reset-mouse-insert-key | 639 :set 'viper-reset-mouse-insert-key |
| 630 :group 'viper-mouse) | 640 :group 'viper-mouse) |
| 631 | 641 |
| 632 | 642 |
| 633 | 643 |