1033 |
(if (eq arg 'passive) |
(if (eq arg 'passive) |
1034 |
(setq highlight-changes-global-initial-state 'passive))) |
(setq highlight-changes-global-initial-state 'passive))) |
1035 |
(setq global-highlight-changes t) |
(setq global-highlight-changes t) |
1036 |
(message "turning ON Global Highlight Changes mode in %s state" |
(message "Turning ON Global Highlight Changes mode in %s state" |
1037 |
highlight-changes-global-initial-state) |
highlight-changes-global-initial-state) |
1038 |
(add-hook 'hilit-chg-major-mode-hook 'hilit-chg-major-mode-hook) |
(add-hook 'hilit-chg-major-mode-hook 'hilit-chg-major-mode-hook) |
1039 |
(add-hook 'find-file-hooks 'hilit-chg-check-global) |
(add-hook 'find-file-hooks 'hilit-chg-check-global) |
1041 |
(hilit-chg-update-all-buffers |
(hilit-chg-update-all-buffers |
1042 |
highlight-changes-global-initial-state))) |
highlight-changes-global-initial-state))) |
1043 |
|
|
1044 |
(message "turning OFF global Highlight Changes mode") |
(message "Turning OFF global Highlight Changes mode") |
1045 |
(remove-hook 'hilit-chg-major-mode-hook 'hilit-chg-major-mode-hook) |
(remove-hook 'hilit-chg-major-mode-hook 'hilit-chg-major-mode-hook) |
1046 |
(remove-hook 'find-file-hooks 'hilit-chg-check-global) |
(remove-hook 'find-file-hooks 'hilit-chg-check-global) |
1047 |
(remove-hook 'post-command-hook |
(remove-hook 'post-command-hook |