grepとfind-tagのジャンプ先を読み取り専用にする

コードを読むことが多いので、grepとfind-tagのジャンプ先を読み取り専用にする。

;; 読み取り専用にする関数
(defun file-read-only-hook ()
  (toggle-read-only 1))

;; grepのジャンプ先を読み取り専用にする。
;; 正確には、next-error後に、読み取り専用にしている。
(add-hook 'next-error-hook 'file-read-only-hook)
;; find-tagのジャンプ先を読み取り専用にする。
(add-hook 'find-tag-hook 'file-read-only-hook)

grepのジャンプ先を読み取り専用にする処理はgrep以外も読み取り専用になる気がする…

• モダン hook 入門。 - 日々、とんは語る。