summaryrefslogtreecommitdiff
path: root/lisp/simple.el
diff options
context:
space:
mode:
authorPhillip Lord <phillip.lord@russet.org.uk>2016-06-10 22:30:49 +0100
committerPhillip Lord <phillip.lord@russet.org.uk>2016-06-11 20:32:31 +0100
commit291fe0aade6560490abbe5c08d231c18edbb4737 (patch)
tree3d6e16d93a94ec251a0eb01781c517d7916e7b23 /lisp/simple.el
parent6921f4a5961fb53f8fb24d1a5a3f94266f990f6e (diff)
downloademacs-291fe0aade6560490abbe5c08d231c18edbb4737.tar.gz
emacs-291fe0aade6560490abbe5c08d231c18edbb4737.tar.bz2
emacs-291fe0aade6560490abbe5c08d231c18edbb4737.zip
Revert "Fix viper undo breakage from undo-boundary changes"
This reverts commit c0139e32f1f3bb287b04e02a69a7848d6a040003.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r--lisp/simple.el23
1 files changed, 5 insertions, 18 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index e38bf70f520..b66827dfa63 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2839,18 +2839,6 @@ buffers that were changed during the last command.")
If set to non-nil, this will effectively disable the timer.")
-(defvar-local undo-auto-disable-boundaries nil
- "Disable the automatic addition of boundaries.
-
-If set to non-nil, `undo-boundary' will not be called
-automatically in a buffer either at the end of a command, or as a
-result of `undo-auto-current-boundary-timer'.
-
-When this is set to non-nil, it is important to ensure that
-`undo-boundary' is called frequently enough. Failure to do so
-will result in user-visible warnings that the situation is
-probably a bug.")
-
(defvar undo-auto--this-command-amalgamating nil
"Non-nil if `this-command' should be amalgamated.
This variable is set to nil by `undo-auto--boundaries' and is set
@@ -2890,8 +2878,7 @@ REASON describes the reason that the boundary is being added; see
(dolist (b undo-auto--undoably-changed-buffers)
(when (buffer-live-p b)
(with-current-buffer b
- (unless undo-auto-disable-boundaries
- (undo-auto--ensure-boundary cause)))))
+ (undo-auto--ensure-boundary cause))))
(setq undo-auto--undoably-changed-buffers nil))
(defun undo-auto--boundary-timer ()
@@ -2916,10 +2903,10 @@ default values.")
"Add an `undo-boundary' in appropriate buffers."
(undo-auto--boundaries
(let ((amal undo-auto--this-command-amalgamating))
- (setq undo-auto--this-command-amalgamating nil)
- (if amal
- 'amalgamate
- 'command))))
+ (setq undo-auto--this-command-amalgamating nil)
+ (if amal
+ 'amalgamate
+ 'command))))
(defun undo-auto-amalgamate ()
"Amalgamate undo if necessary.