Lines Matching defs:search
34 (defvar viper-search-start-marker)
35 (defvar viper-local-search-start-marker)
36 (defvar viper-search-history)
38 (defvar viper-re-search)
97 ;; Local variable used to toggle wraparound search on click.
98 (viper-deflocalvar viper-mouse-click-search-noerror t)
100 ;; Local variable used to delimit search after wraparound.
101 (viper-deflocalvar viper-mouse-click-search-limit nil)
111 (defvar viper-mouse-up-search-key-parsed nil)
112 (defvar viper-mouse-down-search-key-parsed nil)
354 (defun viper-mouse-click-search-word (click arg)
356 With prefix argument, N, search for N-th occurrence.
365 (or (not (eq (key-binding viper-mouse-down-search-key-parsed)
367 (not (eq (key-binding viper-mouse-up-search-key-parsed)
368 'viper-mouse-click-search-word))
371 (let ((previous-search-string viper-s-string)
401 (not (markerp viper-search-start-marker))
402 (not (equal (marker-buffer viper-search-start-marker)
404 (not (eq last-command 'viper-mouse-click-search-word)))
406 (setq viper-search-start-marker (point-marker)
407 viper-local-search-start-marker viper-search-start-marker
408 viper-mouse-click-search-noerror t
409 viper-mouse-click-search-limit nil)
411 ;; make search string known to Viper
412 (setq viper-s-string (if viper-re-search
415 (if (not (string= viper-s-string (car viper-search-history)))
416 (setq viper-search-history
417 (cons viper-s-string viper-search-history)))
425 (if (not (search-forward
426 click-word viper-mouse-click-search-limit
427 viper-mouse-click-search-noerror))
429 (setq viper-mouse-click-search-noerror nil)
430 (setq viper-mouse-click-search-limit
433 (markerp viper-local-search-start-marker)
434 (marker-buffer viper-local-search-start-marker))
435 (goto-char viper-local-search-start-marker))
439 (search-forward click-word
440 viper-mouse-click-search-limit nil)))
446 (viper-flash-search-pattern)))
449 (if (or (not (string= click-word previous-search-string))
450 (not (eq last-command 'viper-mouse-click-search-word)))
454 "`%s': Last occurrence in %s. Back to beginning of search"
458 (setq viper-mouse-click-search-noerror t)
459 (setq viper-mouse-click-search-limit nil)
460 (if (and (markerp viper-local-search-start-marker)
461 (marker-buffer viper-local-search-start-marker))
462 (goto-char viper-local-search-start-marker))))
472 ;; pass prefix arg along to viper-mouse-click-search/insert-word
556 (defun viper-unbind-mouse-search-key ()
557 (if viper-mouse-up-search-key-parsed
558 (global-unset-key viper-mouse-up-search-key-parsed))
559 (if viper-mouse-down-search-key-parsed
560 (global-unset-key viper-mouse-down-search-key-parsed))
561 (setq viper-mouse-up-search-key-parsed nil
562 viper-mouse-down-search-key-parsed nil))
573 (defun viper-bind-mouse-search-key (&optional force)
574 (setq viper-mouse-up-search-key-parsed
575 (viper-parse-mouse-key 'viper-mouse-search-key 'up)
576 viper-mouse-down-search-key-parsed
577 (viper-parse-mouse-key 'viper-mouse-search-key 'down))
578 (cond ((or (null viper-mouse-up-search-key-parsed)
579 (null viper-mouse-down-search-key-parsed))
582 (key-binding viper-mouse-up-search-key-parsed)
583 (not (eq (key-binding viper-mouse-up-search-key-parsed)
584 'viper-mouse-click-search-word)))
586 "%S already bound to a mouse event. Viper mouse-search feature disabled"
587 viper-mouse-up-search-key-parsed))
589 (key-binding viper-mouse-down-search-key-parsed)
590 (not (eq (key-binding viper-mouse-down-search-key-parsed)
593 "%S already bound to a mouse event. Viper mouse-search feature disabled"
594 viper-mouse-down-search-key-parsed))
596 (global-set-key viper-mouse-up-search-key-parsed
597 'viper-mouse-click-search-word)
598 (global-set-key viper-mouse-down-search-key-parsed
630 (defun viper-reset-mouse-search-key (symb val)
631 (viper-unbind-mouse-search-key)
633 (viper-bind-mouse-search-key 'force))
641 (defcustom viper-mouse-search-key '(meta shift 1)
642 "*Key used to click-search in Viper.
647 will search for that word in the buffer that was current before the click.
654 :set 'viper-reset-mouse-search-key