From 2c1ccbb91c24b54aee6288204e28b2e7345e0be7 Mon Sep 17 00:00:00 2001 Message-Id: <2c1ccbb91c24b54aee6288204e28b2e7345e0be7.1718465186.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 26 Apr 2016 18:41:44 +0100 Subject: [PATCH] el/dot-emacs.el: Hook more functions for angry-fruit-salad. Organization: Straylight/Edgeware From: Mark Wooding 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. --- el/dot-emacs.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) 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 @@ (defun mdw-post-local-vars-misc-mode-config () (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 -- [mdw]