(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]))