home/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
  13 ; (x-set-cursor-color "white")
  14 ; (x-set-foreground-color "white")
  15 ; (x-set-background-color "black")
  16
  17 (if (boundp 'tool-bar-mode)
  18     (tool-bar-mode -1))
  19
  20 ; End of this file.