mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(viper-mouse-search-key): Fix custom type.

Browse Source 
(viper-mouse-insert-key): Likewise.
This commit is contained in:
Richard M. Stallman 1997-09-15 23:21:03 +00:00
parent ce2f921ee5
commit f0f90cfddf
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/emulation/viper-mous.el
View File

@ -613,12 +613,11 @@ 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
: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 @@ 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
: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)