標準拡張は view-mode で読みたい

find-library とか describe-function でライブラリのファイルに飛ぶときに、view-mode になっているといいなあと思って設定した。

地味にありがたい存在。

(add-hook 'find-function-after-hook 'view-mode-when-el)
(add-hook 'xref-after-jump-hook 'view-mode-when-el)

(defun view-mode-when-el ()
  (when (or (string-suffix-p ".el.gz" (buffer-file-name))
            (string-suffix-p ".el" (buffer-file-name)))
    (view-mode 1)))