X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/ee5598ca7f13962784323ab4625d44412f3f3de6..e2a5501224824d6b1b9a9e452e7168842442cd9d:/dot-emacs.el

diff --git a/dot-emacs.el b/dot-emacs.el
index 1b1a71c..3b7af3f 100644
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -541,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
@@ -737,7 +703,6 @@ the regular expressions in `mdw-backup-disable-regexps'."
 (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)
@@ -993,7 +958,6 @@ the regular expressions in `mdw-backup-disable-regexps'."
 (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 . +)
@@ -1068,7 +1032,6 @@ the regular expressions in `mdw-backup-disable-regexps'."
 (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 . +)
@@ -1156,7 +1119,6 @@ the regular expressions in `mdw-backup-disable-regexps'."
 (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 . +)))
@@ -1217,8 +1179,6 @@ the regular expressions in `mdw-backup-disable-regexps'."
 
 ;; --- 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)
@@ -1467,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)