.emacs-my
changeset 1751 e09dfac4baf9
parent 1748 e9610d83f4ff
child 1752 c3345b0bcad0
equal deleted inserted replaced
1750:166bb76ea63f 1751:e09dfac4baf9
  1658 (message "logging, logs")
  1658 (message "logging, logs")
  1659 
  1659 
  1660 (defun my-auto-revert-tail-mode-hook ()
  1660 (defun my-auto-revert-tail-mode-hook ()
  1661   (when (string-match "/logs?/\\|\\.\\(?:log\\|out\\|log\\.[0-9]\\)\\'\\|/.xsession-errors\\'"
  1661   (when (string-match "/logs?/\\|\\.\\(?:log\\|out\\|log\\.[0-9]\\)\\'\\|/.xsession-errors\\'"
  1662                       (buffer-file-name (current-buffer)))
  1662                       (buffer-file-name (current-buffer)))
  1663     (fundamental-mode)
  1663     (if (fboundp #'so-long-mode)
       
  1664         (so-long-mode)
       
  1665       (fundamental-mode))
  1664     (auto-revert-tail-mode 1)
  1666     (auto-revert-tail-mode 1)
  1665     (log4-hi-mode 1)
  1667     (log4-hi-mode 1)
  1666     (setq scroll-margin my-scroll-margin)
  1668     (setq scroll-margin my-scroll-margin)
  1667     ))
  1669     ))
  1668 (add-hook 'find-file-hook 'my-auto-revert-tail-mode-hook)
  1670 (add-hook 'find-file-hook 'my-auto-revert-tail-mode-hook)