cgit.sxemacs.org Git - packages/blob - xemacs-packages/Sun/sunpro-keys.el

   1 ;;; sunpro-keys.el --- SunPro-specific key bindings
   2
   3 ;; Copyright (C) 1993, 1994 Sun Microsystems, Inc
   4
   5 (define-key global-map 'find 'x-isearch-maybe-with-region)
   6
   7 (define-key isearch-mode-map 'f18 'isearch-yank-x-clipboard)
   8 (add-hook 'isearch-mode-hook 'sunpro-set-isearch-direction)
   9 (define-key isearch-mode-map 'f19 'isearch-repeat-forward)
  10
  11 (defun x-isearch-maybe-with-region (&optional backward-p)
  12   "Enter isearch mode.  If the region is active, find the selected text."
  13   (interactive "P")
  14   (let ((sunpro-isearch-direction
  15          (if backward-p 'backward 'forward)))
  16     (if (and zmacs-regions (mark))
  17         (progn (isearch-mode (not backward-p)) (isearch-yank-x-selection))
  18       (if backward-p (isearch-backward) (isearch-forward)))))
  19
  20 (defun sunpro-set-isearch-direction ()
  21   (if (or (eq this-command 'isearch-backward)
  22           (eq this-command 'isearch-backward-regexp)
  23           (and (boundp 'sunpro-isearch-direction)
  24                (eq sunpro-isearch-direction 'backward)))
  25       (define-key isearch-mode-map 'f19 'isearch-repeat-backward)
  26     (define-key isearch-mode-map 'f19 'isearch-repeat-forward)))