;;; -*- mode: emacs-lisp; coding: utf-8 -*-
;;;
-;;; $Id: .emacs,v 1.11 1997/01/01 18:47:09 mdw Exp $
-;;;
;;; Emacs configuration file
;;;
;;; (c) 1996-1999 Mark Wooding
(setq backup-by-copying-when-linked t)
(setq backup-by-copying-when-mismatch t)
+(setq mdw-backup-disable-regexps
+ '("/\\.git/COMMIT_EDITMSG$"
+ "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"))
+
+;; --- Safe variables ---
+
+(setq safe-local-variable-values
+ '((make-backup-files . nil)))
+
;; --- Calculator fiddling ---
(setq calc-settings-file "~/.emacs-calc")
(setq rmail-display-summary t)
(setq rmail-file-name "~/Mail/rmail")
-;; --- GNUS configuration ---
-
-(setq gnus-select-method '(nntp "tux.nsict.org"))
-(setq gnus-read-active-file 'some)
-(setq gnus-inhibit-startup-message t)
-(setq gnus-large-newsgroup 500)
-
;; --- Internationalization twiddling ---
(trap
(setq-default fill-column 77) ;I use rather narrow windows
(setq-default comment-column 40) ;Set a standard comment column
(setq-default truncate-partial-width-windows nil)
+(setq woman-use-own-frame nil) ;Keep man pages somewhere sensible
(setq diff-switches "-u" ;I like reading unified diffs
cvs-diff-flags (list diff-switches))
(setq echo-keystrokes 10) ;Long delay before keystrokes echo
(trap
(tooltip-mode 0)
(tool-bar-mode 0))
-;;(trap (global-auto-revert-mode t))
+(trap (or mdw-fast-startup (global-auto-revert-mode t)))
(setq psgml-html-build-new-buffer nil)
+(defvar mdw-black-background t)
+
(setq cltl2-root-url (mdw-config 'cltl-url))
(setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url))
(let ((view-diary-entries-initially t))
(calendar))))
-(defvar mdw-black-background t)
+;;;----- MailCrypt ----------------------------------------------------------
;; --- Define more mode hooks for MailCrypt ---
("^pdf$" "." "evince %o")
("^html?$" "." "netscape %o")))
+;;;----- SLIME setup --------------------------------------------------------
+
+(let ((stuff '((cmucl ("cmucl"))
+ (sbcl ("sbcl") :coding-system utf-8-unix)
+ (clisp ("clisp") :coding-system utf-8-unix))))
+ (or (boundp 'slime-lisp-implementations)
+ (setq slime-lisp-implementations nil))
+ (while stuff
+ (let* ((head (car stuff))
+ (found (assq (car head) slime-lisp-implementations)))
+ (setq stuff (cdr stuff))
+ (if found
+ (rplacd found (cdr head))
+ (setq slime-lisp-implementations
+ (cons head slime-lisp-implementations))))))
+(setq slime-default-lisp 'sbcl)
+
;;;----- Shell mode ---------------------------------------------------------
;; --- Make the shell mode aware of my prompt ---