el/dot-emacs.el: Don't highlight bad whitespace in read-only buffers.

It's not like I'm planning to do anything about them.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 7e55329adc13a9e40b499c00a47a4186d0a05303..1b0e3507f9972f2f7e78660ca28d220680b263bd 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -837,11 +837,17 @@ (defun mdw-misc-mode-config ()
   (trap (turn-on-font-lock)))
 
 (defun mdw-post-local-vars-misc-mode-config ()
   (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)
 
     (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]))
 (eval-after-load 'gtags
   '(progn
      (dolist (key '([mouse-2] [mouse-3]))