;;;--------------------------------------------------------------------------
;;; Some random initialisation.
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
(setq whitespace-style '(trailing empty indentation face lines-tail
space-before-tab space-after-tab)
whitespace-line-column mdw-text-width)
(setq whitespace-style '(trailing empty indentation face lines-tail
space-before-tab space-after-tab)
whitespace-line-column mdw-text-width)
(w32 (font . "fixed613 10")
(background-color . "black")
(foreground-color . "white"))
(w32 (font . "fixed613 10")
(background-color . "black")
(foreground-color . "white"))
(let ((backg (frame-parameter nil 'background-color)))
(if (and backg window-system)
(push (cons 'background-color backg) default-frame-alist)))
(let ((backg (frame-parameter nil 'background-color)))
(if (and backg window-system)
(push (cons 'background-color backg) default-frame-alist)))
(global-set-key [?\M-#] 'calc-dispatch)
(global-set-key [?\C-x ?/] 'auto-fill-mode)
(global-set-key [?\C-c ?w ?d] 'mdw-divvy-window)
(global-set-key [?\M-#] 'calc-dispatch)
(global-set-key [?\C-x ?/] 'auto-fill-mode)
(global-set-key [?\C-c ?w ?d] 'mdw-divvy-window)
(global-set-key [insertchar] 'overwrite-mode)
(global-set-key [?\C-x ?\C-n] 'skel-create-file)
(global-set-key [?\C-x ?4 ?n] 'skel-create-file-other-window)
(global-set-key [insertchar] 'overwrite-mode)
(global-set-key [?\C-x ?\C-n] 'skel-create-file)
(global-set-key [?\C-x ?4 ?n] 'skel-create-file-other-window)
TeXinfo-mode-hook tex-mode-hook latex-mode-hook
texinfo-mode-hook emacs-lisp-mode-hook scheme-mode-hook
lisp-mode-hook lisp-interaction-mode-hook makefile-mode-hook
TeXinfo-mode-hook tex-mode-hook latex-mode-hook
texinfo-mode-hook emacs-lisp-mode-hook scheme-mode-hook
lisp-mode-hook lisp-interaction-mode-hook makefile-mode-hook
sml-mode-hook haskell-mode-hook erlang-mode-hook
smalltalk-mode-hook rexx-mode-hook lua-mode-hook
arm-assembler-mode-hook))
sml-mode-hook haskell-mode-hook erlang-mode-hook
smalltalk-mode-hook rexx-mode-hook lua-mode-hook
arm-assembler-mode-hook))
(add-hook 'lisp-mode-hook 'mdw-fontify-lispy t)
(add-hook 'inferior-lisp-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-interaction-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-mode-hook 'mdw-fontify-lispy t)
(add-hook 'inferior-lisp-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-interaction-mode-hook 'mdw-fontify-lispy t)
(add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t)
(add-hook 'inferior-lisp-mode-hook
(add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t)
(add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t)
(add-hook 'inferior-lisp-mode-hook