lisp/emulation/viper-mous.el

111 (defvar viper-mouse-up-search-key-parsed nil)
113 (defvar viper-mouse-up-insert-key-parsed nil)
182 		(or (save-excursion (viper-backward-char-carefully)
208 	 (cond ((> click-count 1) (viper-skip-nonseparators 'backward))
210 		(viper-skip-alpha-backward modifiers))
212 		(viper-skip-nonalphasep-backward))
214 		      (viper-skip-nonseparators 'backward)
215 		    (viper-skip-alpha-backward modifiers))))
276 	    (not (eq (key-binding viper-mouse-up-insert-key-parsed)
282 	  ;; prefix arg is a list when one hits C-u then command
367 	    (not (eq (key-binding viper-mouse-up-search-key-parsed)
502 ;; Emacs.  EVENT-TYPE is either `up' or `down'.  Up returns button-up key; down
513 		       (if (eq 'up event-type)
515 		     (if (eq 'up event-type)
519 		       (if (eq 'up event-type)
521 		     (if (eq 'up event-type)
525 		       (if (eq 'up event-type)
527 		     (if (eq 'up event-type)
552 			 (list
557   (if viper-mouse-up-search-key-parsed
558       (global-unset-key viper-mouse-up-search-key-parsed))
561   (setq viper-mouse-up-search-key-parsed nil
565   (if viper-mouse-up-insert-key-parsed
566       (global-unset-key viper-mouse-up-insert-key-parsed))
569   (setq viper-mouse-up-insert-key-parsed nil
574   (setq viper-mouse-up-search-key-parsed
575 	(viper-parse-mouse-key 'viper-mouse-search-key 'up)
578   (cond ((or (null viper-mouse-up-search-key-parsed)
582 	      (key-binding viper-mouse-up-search-key-parsed)
583 	      (not (eq (key-binding viper-mouse-up-search-key-parsed)
587 	  viper-mouse-up-search-key-parsed))
596 	 (global-set-key viper-mouse-up-search-key-parsed
603   (setq viper-mouse-up-insert-key-parsed
604 	(viper-parse-mouse-key 'viper-mouse-insert-key 'up)
607   (cond ((or (null viper-mouse-up-insert-key-parsed)
611 	      (key-binding viper-mouse-up-insert-key-parsed)
612 	      (not (eq (key-binding viper-mouse-up-insert-key-parsed)
616 	  viper-mouse-up-insert-key-parsed))
625 	 (global-set-key viper-mouse-up-insert-key-parsed
643 This must be a list that specifies the mouse button and modifiers.
649   :type '(list (set :inline t :tag "Modifiers" :format "%t: %v"
659 Must be a list that specifies the mouse button and modifiers.
665   :type '(list (set :inline t :tag "Modifiers" :format "%t: %v"