misc/xemacs.scripts/init.el

   1 ;; .emacs
   2
   3 ;;; uncomment this line to disable loading of "default.el" at startup
   4 ;; (setq inhibit-default-init t)
   5
   6 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
   7
   8 ;; turn on font-lock mode
   9 (when (fboundp 'global-font-lock-mode)
  10   (global-font-lock-mode t))
  11
  12 ;; enable visual feedback on selections
  13 ;(setq transient-mark-mode t)
  14
  15 ;; default to better frame titles
  16 ;;(setq frame-title-format
  17 ;;      (concat  "%b - emacs@" system-name))
  18 ;; stop at the end of the file, not just add lines
  19 (setq next-line-add-newlines nil)
  20
  21
  22 (cond ((not running-xemacs)
  23        (global-font-lock-mode t)
  24 ))
  25
  26
  27 (when window-system
  28   ;; enable wheelmouse support by default
  29   (mwheel-install))
  30
  31 (global-set-key "%" 'match-paren)
  32
  33       (defun match-paren (arg)
  34         "Go to the matching parenthesis if on parenthesis otherwise insert %."
  35         (interactive "p")
  36         (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
  37               ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
  38               (t (self-insert-command (or arg 1)))))
  39
  40
  41 (c-set-offset 'case-label 4)
  42 (setq c-basic-offset 4)
  43
  44 (custom-set-variables
  45  '(paren-mode (quote sexp) nil (paren))
  46  '(column-number-mode t)
  47  '(line-number-mode t)
  48  '(font-lock-mode t nil (font-lock))
  49 )
  50 (custom-set-faces)
  51
  52
  53
  54 (set-face-background 'default   "Black")
  55 (set-face-foreground 'default   "green")
  56 ;;(set-face-foreground 'highlight                    "LightSeaGreen")
  57 ;;(set-face-background 'highlight                    "blue")
  58
  59 (set-face-foreground 'font-lock-function-name-face      "White")
  60 (set-face-foreground 'font-lock-keyword-face    "Red")
  61 (set-face-background 'font-lock-keyword-face    "black")
  62 (set-face-foreground 'font-lock-string-face     "LightGoldenRod")
  63 (set-face-foreground 'font-lock-comment-face    "Grey")
  64
  65
  66 (set-face-background 'modeline  "CadetBlue")
  67 (set-face-foreground 'modeline  "black");
  68