某所で見かけたので作ってみた

C-x-q で上書き禁止にしたら、
同時に背景色を #cccccc にし、
C-x-q で解除したら背景色を元に戻したんだけど
どうしたらいいんでしょう？

こんな感じ

(defun toggle-read-only2 () 
   (interactive) 
   (if (eq buffer-read-only t) 
     (set-buffer-colors nil) 
       (set-buffer-colors #(0 #xcccccc)) 
     ) 
   (toggle-read-only) 
   ) 
 (global-set-key '(#\C-x #\q) 'toggle-read-only2) 

本当はこの他にread-onlyで開いた時点で背景色を変えたい気がするのですが
hookが分からなかった(ざっと調べたらない?)ので手抜き
ファイルを開いたときのhookは有った気がするのでそれで引っ掛けるかなぁ

その後調べて分かったこれでいいかも・・・併用しないとまずいけど

(defun set-read-only-color ()
  (if (eq buffer-read-only t)
      (set-buffer-colors #(0 #xcccccc))
    (set-buffer-colors nil)
    )
  )
(add-hook '*find-file-hooks* 'set-read-only-color)

ところで「*find-file-read-only-hook*」って
「find-file-read-only」の時だけだったけどtoggle-read-onlyでも何かフックほしいな・・・