Delete the undo-in-progress compatibility code.

1 files changed, 1 insertions, 11 deletions

diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el
index 132d8f81b10..eae732b8d3f 100644
--- a/lisp/hilit-chg.el
+++ b/lisp/hilit-chg.el
@@ -195,16 +195,6 @@
 
 ;;; 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 =======================
@@ -1198,5 +1188,5 @@ from `global-highlight-changes' when turning on global Highlight Changes mode.
 
 
 (provide 'hilit-chg)
-;;; hilit-chg.el ends here
 
+;;; hilit-chg.el ends here