X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/499a48f31a6b81c695b7270fc474299c029669c1..e2a5501224824d6b1b9a9e452e7168842442cd9d:/dot-emacs.el?ds=inline

diff --git a/dot-emacs.el b/dot-emacs.el
index 704f37d..3b7af3f 100644
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -1,7 +1,5 @@
 ;;; -*- mode: emacs-lisp; coding: utf-8 -*-
 ;;;
-;;; $Id$
-;;;
 ;;; Functions and macros for .emacs
 ;;;
 ;;; (c) 2004 Mark Wooding
@@ -543,40 +541,6 @@ doesn't cope with anything approximating a complicated case."
 
 ;;;----- Other common declarations ------------------------------------------
 
-(defun mdw-set-frame-transparency (&optional n)
-  (interactive "P")
-  (let* ((alist (frame-parameters))
-	 (trans (assq 'transparency alist)))
-    (if trans
-	(rplacd trans (not (if n (zerop n) (cdr trans))))
-      (setq trans (cons 'transparency (not (equal 0 n)))))
-    (modify-frame-parameters (selected-frame) (list trans))))
-
-;; --- Mouse wheel support ---
-
-(defconst mdw-wheel-scroll-amount 15)
-(defun mdw-wheel-up (click)
-  (interactive "@e")
-  (mdw-wheel-scroll click (function scroll-down)))
-(defun mdw-wheel-down (click)
-  (interactive "@e")
-  (mdw-wheel-scroll click (function scroll-up)))
-
-(defun mdw-wheel-scroll (click func)
-  (let ((win (selected-window)))
-    (unwind-protect
-	(progn
-	  (select-window (posn-window (event-start click)))
-	  (let ((arg 2))
-	    (funcall func (/ (window-height) 2))))
-      (select-window win))))
-
-;; --- Going backwards ---
-
-(defun other-window-backwards (arg)
-  (interactive "p")
-  (other-window (- arg)))
-
 ;; --- Common mode settings ---
 
 (defvar mdw-auto-indent t
@@ -611,6 +575,26 @@ doesn't cope with anything approximating a complicated case."
 (defvar mdw-number-face 'mdw-number-face "Face to use for numbers")
 (make-face 'mdw-number-face)
 
+;; --- Backup file handling ---
+
+(defvar mdw-backup-disable-regexps nil
+  "*List of regular expressions: if a file name matches any of these then the
+file is not backed up.")
+
+(defun mdw-backup-enable-predicate (name)
+  "[mdw]'s default backup predicate: allows a backup if the
+standard predicate would allow it, and it doesn't match any of
+the regular expressions in `mdw-backup-disable-regexps'."
+  (and (normal-backup-enable-predicate name)
+       (let ((answer t) (list mdw-backup-disable-regexps))
+	 (save-match-data
+	   (while list
+	     (if (string-match (car list) name)
+		 (setq answer nil))
+	     (setq list (cdr list)))
+	   answer))))
+(setq backup-enable-predicate 'mdw-backup-enable-predicate)
+
 ;;;----- General fontification ----------------------------------------------
 
 (defun mdw-set-fonts (frame faces)
@@ -719,7 +703,6 @@ doesn't cope with anything approximating a complicated case."
 (defun mdw-c-style ()
   (c-add-style "[mdw] C and C++ style"
 	       '((c-basic-offset . 2)
-		 (c-tab-always-indent . nil)
 		 (comment-column . 40)
 		 (c-class-key . "class")
 		 (c-offsets-alist (substatement-open . 0)
@@ -975,7 +958,6 @@ doesn't cope with anything approximating a complicated case."
 (defun mdw-java-style ()
   (c-add-style "[mdw] Java style"
 	       '((c-basic-offset . 2)
-		 (c-tab-always-indent . nil)
 		 (c-offsets-alist (substatement-open . 0)
 				  (label . +)
 				  (case-label . +)
@@ -1050,7 +1032,6 @@ doesn't cope with anything approximating a complicated case."
 (defun mdw-csharp-style ()
   (c-add-style "[mdw] C# style"
 	       '((c-basic-offset . 2)
-		 (c-tab-always-indent . nil)
 		 (c-offsets-alist (substatement-open . 0)
 				  (label . 0)
 				  (case-label . +)
@@ -1138,7 +1119,6 @@ doesn't cope with anything approximating a complicated case."
 (defun mdw-awk-style ()
   (c-add-style "[mdw] Awk style"
 	       '((c-basic-offset . 2)
-		 (c-tab-always-indent . nil)
 		 (c-offsets-alist (substatement-open . 0)
 				  (statement-cont . 0)
 				  (statement-case-intro . +)))
@@ -1199,8 +1179,6 @@ doesn't cope with anything approximating a complicated case."
 
 ;; --- Perl indentation style ---
 
-(setq cperl-tab-always-indent nil)
-
 (setq cperl-indent-level 2)
 (setq cperl-continued-statement-offset 2)
 (setq cperl-continued-brace-offset 0)
@@ -1449,7 +1427,6 @@ strip numbers instead."
 
   (setq rexx-indent 2)
   (setq rexx-end-indent rexx-indent)
-  (setq rexx-tab-always-indent nil)
   (setq rexx-cont-indent rexx-indent)
 
   (make-local-variable 'font-lock-keywords)