Sun / sunpro-keys.el

;;; sunpro-keys.el --- SunPro-specific key bindings

;; Copyright (C) 1993, 1994 Sun Microsystems, Inc

(define-key global-map 'find 'x-isearch-maybe-with-region)

(define-key isearch-mode-map 'f18 'isearch-yank-x-clipboard)
(add-hook 'isearch-mode-hook 'sunpro-set-isearch-direction)
(define-key isearch-mode-map 'f19 'isearch-repeat-forward)

(defun x-isearch-maybe-with-region (&optional backward-p)
  "Enter isearch mode.  If the region is active, find the selected text."
  (interactive "P")
  (let ((sunpro-isearch-direction
	 (if backward-p 'backward 'forward)))
    (if (and zmacs-regions (mark))
	(progn (isearch-mode (not backward-p)) (isearch-yank-x-selection))
      (if backward-p (isearch-backward) (isearch-forward)))))

(defun sunpro-set-isearch-direction ()
  (if (or (eq this-command 'isearch-backward)
	  (eq this-command 'isearch-backward-regexp)
	  (and (boundp 'sunpro-isearch-direction)
	       (eq sunpro-isearch-direction 'backward)))
      (define-key isearch-mode-map 'f19 'isearch-repeat-backward)
    (define-key isearch-mode-map 'f19 'isearch-repeat-forward)))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.