X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/48c107b0db461e493d3f142be8cac39dda4e23e3..277521fa187f0774a5bb46016adf97e6afd3a6c2:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index 3e8f81d..2128756 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,7 +444,7 @@
       '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
 	    (menu-font . "8.Helv")
 	    (background-color . "lightgrey"))
-	(w32 (font . "fixed 10")
+	(w32 (font . "fixed613 10")
 	     (background-color . "black")
 	     (foreground-color . "white"))
 	(nil (menu-bar-lines . 0))))
@@ -497,6 +498,9 @@
 		  #'(lambda () (interactive)))
   (global-set-key [M-S-mouse-3] 'imenu)
   (global-set-key [XF86WakeUp] "")
+  (global-set-key [?\C-c ?d ?w] 'devhelp-word-at-point)
+  (global-set-key [?\C-c ?d ?a] 'devhelp-assistant-word-at-point)
+  (global-set-key [f11] 'mdw-toggle-full-screen)
   (and (not mdw-fast-startup) (fboundp 'hippie-expand)
        (global-set-key [?\M-/] 'hippie-expand)))
 
@@ -576,6 +580,7 @@
 		("@BASH@" . sh-mode)
 		("@PYTHON@" . python-mode)
 		("@PERL@" . cperl-mode)
+		("/perl" . cperl-mode)
 		("@TCLSH@" . tcl-mode)
 		("@WISH@" . tcl-mode)
 		("/tclsh" . tcl-mode)