From fdbd749a3fc1663bc0db36f63be5430de08bae39 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 8 Aug 1998 22:22:56 +0000 Subject: [PATCH] Delete the undo-in-progress compatibility code. --- lisp/hilit-chg.el | 12 +----------- 1 file changed, 1 insertion(+), 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 -- 2.39.2