diff options
| -rw-r--r-- | lisp/hilit-chg.el | 12 |
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 @@ | |||
| 195 | 195 | ||
| 196 | ;;; Code: | 196 | ;;; Code: |
| 197 | 197 | ||
| 198 | ;; ========== Remove when undo-in-progress is set by emacs ======== | ||
| 199 | (unless (boundp 'undo-in-progress) | ||
| 200 | (message "advising undo...") | ||
| 201 | (eval-when-compile (require 'advice)) | ||
| 202 | (defvar undo-in-progress nil) ;; only undo should change this! | ||
| 203 | (defadvice undo (around record-this-is-an-undo activate) | ||
| 204 | (let ((undo-in-progress t)) | ||
| 205 | ad-do-it))) | ||
| 206 | ;; ================================================================ | ||
| 207 | |||
| 208 | (require 'wid-edit) | 198 | (require 'wid-edit) |
| 209 | 199 | ||
| 210 | ;; ====================== Customization ======================= | 200 | ;; ====================== Customization ======================= |
| @@ -1198,5 +1188,5 @@ from `global-highlight-changes' when turning on global Highlight Changes mode. | |||
| 1198 | 1188 | ||
| 1199 | 1189 | ||
| 1200 | (provide 'hilit-chg) | 1190 | (provide 'hilit-chg) |
| 1201 | ;;; hilit-chg.el ends here | ||
| 1202 | 1191 | ||
| 1192 | ;;; hilit-chg.el ends here | ||