.emacs-my
changeset 735 337d64d4f27b
parent 734 d5281f386f48
child 736 33d4749081b9
equal deleted inserted replaced
734:d5281f386f48 735:337d64d4f27b
   841 
   841 
   842 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   842 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   843 (message "standard hooks")
   843 (message "standard hooks")
   844 
   844 
   845 (add-hook 'write-file-hooks 'time-stamp)
   845 (add-hook 'write-file-hooks 'time-stamp)
       
   846 
       
   847 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
   848 (message "logging, logs")
       
   849 
       
   850 (defun my-auto-revert-tail-mode-hook ()
       
   851   (when (string-match "/var/log/.*\\.log\\'"
       
   852                       (buffer-file-name (current-buffer)))
       
   853     (auto-revert-tail-mode 1)
       
   854     ))
       
   855 (add-hook 'find-file-hook 'my-auto-revert-tail-mode-hook)
   846 
   856 
   847 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   857 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   848 (message "auto-fill")
   858 (message "auto-fill")
   849 
   859 
   850 (setq-default fill-column 78)
   860 (setq-default fill-column 78)