From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 26 Apr 2016 17:41:44 +0000 (+0100)
Subject: el/dot-emacs.el: Hook more functions for angry-fruit-salad.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/2c1ccbb91c24b54aee6288204e28b2e7345e0be7

el/dot-emacs.el: Hook more functions for angry-fruit-salad.

Emacs 24.4 has renamed a whole bunch of functions for dealing with
read-onlyness, and it appears that I missed some existing ones, so hook
some more.  Some of these might not exist, but that doesn't matter.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 7d3bc10..4b53771 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -979,10 +979,20 @@ case."
     (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))))
+(defmacro mdw-advise-update-angry-fruit-salad (&rest funcs)
+  `(progn ,@(mapcar (lambda (func)
+		      `(defadvice ,func
+			   (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)))))
+		    funcs)))
+(mdw-advise-update-angry-fruit-salad toggle-read-only
+				     read-only-mode
+				     view-mode
+				     view-mode-enable
+				     view-mode-disable)
 
 (eval-after-load 'gtags
   '(progn