X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/a8a7976a2e808307de201c7f14be012d241614a4..5e504acc7931c1abf3bb487d4137158ba4196f5e:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index e898597..2fb1520 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -837,11 +837,17 @@ case."
   (trap (turn-on-font-lock)))
 
 (defun mdw-post-local-vars-misc-mode-config ()
-  (when mdw-do-misc-mode-hacking
+  (when (and mdw-do-misc-mode-hacking
+	     (not buffer-read-only))
     (setq show-trailing-whitespace t)
     (mdw-whitespace-mode 1)))
 (add-hook 'hack-local-variables-hook 'mdw-post-local-vars-misc-mode-config)
 
+(defadvice toggle-read-only (after mdw-angry-fruit-salad activate)
+  (when mdw-do-misc-mode-hacking
+    (setq show-trailing-whitespace (not buffer-read-only))
+    (mdw-whitespace-mode (if buffer-read-only 0 1))))
+
 (eval-after-load 'gtags
   '(progn
      (dolist (key '([mouse-2] [mouse-3]))
@@ -2110,6 +2116,8 @@ doesn't match any of the regular expressions in
 
 ;; Perl indentation style.
 
+(setq perl-indent-level 2)
+
 (setq cperl-indent-level 2)
 (setq cperl-continued-statement-offset 2)
 (setq cperl-continued-brace-offset 0)