From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 28 Dec 2015 14:25:04 +0000 (+0000)
Subject: Merge branch 'master' of us:git/staging/profile
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/0a7f6970608262f399c9c6ec6eea16576eaf3290?hp=-c

Merge branch 'master' of us:git/staging/profile

* 'master' of us:git/staging/profile:
  el/dot-emacs.el: Don't highlight bad whitespace in read-only buffers.
---

0a7f6970608262f399c9c6ec6eea16576eaf3290
diff --combined el/dot-emacs.el
index e898597,1b0e350..0967471
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@@ -837,11 -837,17 +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]))
@@@ -1230,7 -1236,7 +1236,7 @@@ doesn't match any of the regular expres
  (mdw-define-face mdw-ellipsis-face
    (((type tty)) :foreground "blue") (t :foreground "grey60"))
  (let ((dollar (make-glyph-code ?$ 'mdw-ellipsis-face))
 -      (backslash (make-glyph-code ?\ 'mdw-ellipsis-face))
 +      (backslash (make-glyph-code ?\\ 'mdw-ellipsis-face))
        (dot (make-glyph-code ?. 'mdw-ellipsis-face))
        (bar (make-glyph-code ?| mdw-ellipsis-face)))
    (set-display-table-slot standard-display-table 0 dollar)