.emacs-my
changeset 1608 9c9e7f91f4f3
parent 1607 dd180a2be151
child 1611 0e2a32718f00
equal deleted inserted replaced
1607:dd180a2be151 1608:9c9e7f91f4f3
  2642   )
  2642   )
  2643 (add-hook 'log-edit-mode-hook 'my-log-edit-mode-hook t)
  2643 (add-hook 'log-edit-mode-hook 'my-log-edit-mode-hook t)
  2644 
  2644 
  2645 (eval-after-load 'log-edit
  2645 (eval-after-load 'log-edit
  2646   '(remove-hook 'log-edit-hook 'log-edit-insert-message-template))
  2646   '(remove-hook 'log-edit-hook 'log-edit-insert-message-template))
  2647 
       
  2648 (mapatoms
       
  2649  (lambda (sym)
       
  2650    (when (and
       
  2651           (boundp sym)
       
  2652           (sequencep (symbol-value sym))
       
  2653           (string-suffix-p "-hook" (symbol-name sym))
       
  2654           (cl-some
       
  2655            (lambda (hook)
       
  2656              (and (symbolp hook)
       
  2657                   (cl-search "git" (symbol-name hook))))
       
  2658            (symbol-value sym)))
       
  2659      (message "sym: %s" sym))))
       
  2660 
       
  2661 after-change-major-mode-hook
       
  2662 
       
  2663 (with-eval-after-load 'vc-hooks
       
  2664   (remove-hook 'find-file-hook 'vc-refresh-state))
       
  2665 
  2647 
  2666 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2648 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2667 (message "magit")
  2649 (message "magit")
  2668 
  2650 
  2669 (when (eq window-system 'w32)
  2651 (when (eq window-system 'w32)