diff options
| author | Richard M. Stallman | 1997-09-15 23:21:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-15 23:21:03 +0000 |
| commit | f0f90cfddf26c142604377904049c9070038cb9a (patch) | |
| tree | 9feb4e8a4f318e7c9f0de8bd08846d727bd6f120 /lisp | |
| parent | ce2f921ee50d54e0cf7ba269ef3811f27b1d4418 (diff) | |
| download | emacs-f0f90cfddf26c142604377904049c9070038cb9a.tar.gz emacs-f0f90cfddf26c142604377904049c9070038cb9a.zip | |
(viper-mouse-search-key): Fix custom type.
(viper-mouse-insert-key): Likewise.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/viper-mous.el | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index 75879dcb973..7a10f42a5a5 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el | |||
| @@ -613,12 +613,11 @@ For instance, `(meta shift 1)' means that holding the meta and shift | |||
| 613 | keys down and clicking on a word with mouse button 1 | 613 | keys down and clicking on a word with mouse button 1 |
| 614 | will search for that word in the buffer that was current before the click. | 614 | will search for that word in the buffer that was current before the click. |
| 615 | This buffer may be different from the one where the click occurred." | 615 | This buffer may be different from the one where the click occurred." |
| 616 | ;; This does not work | 616 | :type '(list (set :inline t :tag "Modifiers" :format "%t: %v" |
| 617 | ;; :type '(list (set :inline meta shift control) | 617 | (const :format "%v " meta) |
| 618 | ;; integer) | 618 | (const :format "%v " shift) |
| 619 | ;; This doesn't work either. | 619 | (const control)) |
| 620 | ;; :type '(set meta shift control 1 2 3) | 620 | (integer :tag "Button")) |
| 621 | :type 'sexp | ||
| 622 | :set 'viper-reset-mouse-search-key | 621 | :set 'viper-reset-mouse-search-key |
| 623 | :group 'viper-mouse) | 622 | :group 'viper-mouse) |
| 624 | 623 | ||
| @@ -630,12 +629,11 @@ For instance, `(meta shift 2)' means that holding the meta and shift keys | |||
| 630 | down, and clicking on a word with mouse button 2, will insert that word | 629 | down, and clicking on a word with mouse button 2, will insert that word |
| 631 | at the cursor in the buffer that was current just before the click. | 630 | at the cursor in the buffer that was current just before the click. |
| 632 | This buffer may be different from the one where the click occurred." | 631 | This buffer may be different from the one where the click occurred." |
| 633 | ;; This does not work. | 632 | :type '(list (set :inline t :tag "Modifiers" :format "%t: %v" |
| 634 | ;; :type '(list (set :inline meta shift control) | 633 | (const :format "%v " meta) |
| 635 | ;; integer) | 634 | (const :format "%v " shift) |
| 636 | ;; This doesn't work either. | 635 | (const control)) |
| 637 | ;; :type '(set meta shift control 1 2 3) | 636 | (integer :tag "Button")) |
| 638 | :type 'sexp | ||
| 639 | :set 'viper-reset-mouse-insert-key | 637 | :set 'viper-reset-mouse-insert-key |
| 640 | :group 'viper-mouse) | 638 | :group 'viper-mouse) |
| 641 | 639 | ||