X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/a0d16e44fe6acd44350922958f063a7598cd8b36..17fca6742101a0425549e6ed270fa59212fbc637:/dot/emacs?ds=sidebyside

diff --git a/dot/emacs b/dot/emacs
index 583cb96..c6c8de9 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -125,7 +125,8 @@
 
 (setq mdw-backup-disable-regexps
       '("/\\.git/COMMIT_EDITMSG$"
-	"/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"))
+	"/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"
+	"^/tmp/" "^/var/tmp/"))
 
 ;; Safe variables.
 
@@ -443,6 +444,9 @@
       '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
 	    (menu-font . "8.Helv")
 	    (background-color . "lightgrey"))
+	(w32 (font . "fixed613 10")
+	     (background-color . "black")
+	     (foreground-color . "white"))
 	(nil (menu-bar-lines . 0))))
 
 ;; Other frame fiddling.
@@ -530,7 +534,7 @@
 ;; Recognising types of files.
 
 (setq auto-mode-alist
-      (append `(("\\.p[lm]$" . perl-mode)
+      (append `(("\\.p[lm]$" . cperl-mode)
 		("\\.m$" . objc-mode)
 		("\\.mxd$" . c-mode)
 		("\\.cs$" . csharp-mode)
@@ -572,7 +576,8 @@
       (append `(("runlisp" . lisp-mode)
 		("@BASH@" . sh-mode)
 		("@PYTHON@" . python-mode)
-		("@PERL@" . perl-mode)
+		("@PERL@" . cperl-mode)
+		("/perl" . cperl-mode)
 		("@TCLSH@" . tcl-mode)
 		("@WISH@" . tcl-mode)
 		("/tclsh" . tcl-mode)
@@ -610,7 +615,6 @@
 	arm-assembler-mode-hook))
 
 (global-font-lock-mode t)
-(defalias 'perl-mode 'cperl-mode)
 
 ;;;--------------------------------------------------------------------------
 ;;; Rootly editingness.