from-cvs/files/emacs_ian-x.el

   1 ; Ian's X initialisations.
   2
   3 (if (not (string-match "^18\." emacs-version))
   4     (require 'ian-x19)
   5
   6   (require 'x-fix-mouse)
   7   (define-key mouse-map x-button-left-up 'x-cut-text-if-moved)
   8   (define-key mouse-map x-button-middle 'x-cut-text)
   9   (define-key mouse-map x-button-c-middle 'x-cut-and-wipe-text)
  10   (define-key mouse-map x-button-right 'x-paste-text))
  11
  12 ; (x-set-cursor-color "white")
  13 ; (x-set-foreground-color "white")
  14 ; (x-set-background-color "black")
  15
  16 (if (boundp 'tool-bar-mode)
  17     (tool-bar-mode -1))
  18
  19 ; End of this file.