;;; Code:
-;; ========== Remove when undo-in-progress is set by emacs ========
-(unless (boundp 'undo-in-progress)
- (message "advising undo...")
- (eval-when-compile (require 'advice))
- (defvar undo-in-progress nil) ;; only undo should change this!
- (defadvice undo (around record-this-is-an-undo activate)
- (let ((undo-in-progress t))
- ad-do-it)))
-;; ================================================================
-
(require 'wid-edit)
;; ====================== Customization =======================
(provide 'hilit-chg)
-;;; hilit-chg.el ends here
+;;; hilit-chg.el ends here