My .emacs file for use with GNU Emacs 23.3 on Microsoft Windows

My favourite editor is no doubt GNU Emacs. I spend most of my time at work using Microsoft Windows, so why shouldn’t I use this excellent editor on that OS?

;;;; Trond's .emacs for GNU Emacs 23.3 on MS Windows.
;;;; Last touched on 2011-07-15.

(defun tronds-tetris-update-speed-function (shapes rows)
  1.0)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(TeX-auto-save t)
 '(TeX-close-quote "»")
 '(TeX-open-quote "«")
 '(TeX-parse-self t)
 '(backup-by-copying t)
 '(blink-cursor-mode nil)
 '(cal-tex-24 t)
 '(calendar-week-start-day 1)
 '(column-number-mode t)
 '(display-time-24hr-format t)
 '(display-time-day-and-date t)
 '(display-time-format "%Y-%m-%dT%H:%M")
 '(display-time-mode t)
 '(global-font-lock-mode t nil (font-lock))
 '(global-hl-line-mode t)
 '(gnus-inhibit-startup-message t)
 '(gnus-interactive-exit nil)
 '(gnus-nntp-server "nntp-oslo.uninett.no")
 '(indicate-empty-lines t)
 '(kill-whole-line t)
 '(mail-interactive nil)
 '(mail-signature t)
 '(mail-signature-file "~/.signature")
 '(make-backup-files nil)
 '(message-default-charset (quote ISO-8859-1))
 '(message-signature-file "~/.signature")
 '(mouse-avoidance-mode (quote animate) nil (avoid))
 '(mouse-wheel-mode t nil (mwheel))
 '(next-line-add-newlines nil)
 '(ruler-mode-show-tab-stops t)
 '(show-paren-mode t nil (paren))
 '(tetris-update-speed-function (quote tronds-tetris-update-speed-function))
 '(transient-mark-mode t)
 '(user-full-name "=?ISO-8859-1?Q?Trond_Endrest=F8l?="))

;;; Mode settings stored by Calc on Thu Jul  5 13:06:23 2001
(setq calc-prefer-frac t)
(setq calc-complex-mode 'polar)
(setq calc-angle-mode 'rad)
(setq calc-symbolic-mode t)
(setq calc-full-mode t)
(setq calc-display-trail nil)
;;; End of mode settings

(if (not window-system)
  (menu-bar-mode nil))

; height are measured in 1/10 pt.
; 13 point type is written as 130, because 130*pt/10 = 13pt.
(if (and (boundp 'window-system) (eq window-system 'w32))
  (custom-set-faces
    ;; custom-set-faces was added by Custom.
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
   '(default ((t (:stipple nil :background "SystemWindow" :foreground "SystemWindowText" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :family "outline-courier new")))))
)

(load "auctex.el" nil t t)