diff options
| author | Alex Branham | 2019-06-14 10:00:29 -0500 |
|---|---|---|
| committer | Alex Branham | 2019-06-27 19:56:40 -0500 |
| commit | cb182ce6f8d2fa6e1509252fecc2b0e504e36d63 (patch) | |
| tree | 074fa8493973063f01386c601531a25618a61d4f | |
| parent | fa3af359df8754423a197682d31245ad88c02033 (diff) | |
| download | emacs-cb182ce6f8d2fa6e1509252fecc2b0e504e36d63.tar.gz emacs-cb182ce6f8d2fa6e1509252fecc2b0e504e36d63.zip | |
* lisp/simple.el (undo): Make message less enthusiastic
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 5ef5d3dc2ea..766cb017b7d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2530,7 +2530,7 @@ as an argument limits undo to changes within the current region." | |||
| 2530 | ;; so, ask the user whether she wants to skip the redo/undo pair. | 2530 | ;; so, ask the user whether she wants to skip the redo/undo pair. |
| 2531 | (let ((equiv (gethash pending-undo-list undo-equiv-table))) | 2531 | (let ((equiv (gethash pending-undo-list undo-equiv-table))) |
| 2532 | (or (eq (selected-window) (minibuffer-window)) | 2532 | (or (eq (selected-window) (minibuffer-window)) |
| 2533 | (setq message (format "%s%s!" | 2533 | (setq message (format "%s%s" |
| 2534 | (if (or undo-no-redo (not equiv)) | 2534 | (if (or undo-no-redo (not equiv)) |
| 2535 | "Undo" "Redo") | 2535 | "Undo" "Redo") |
| 2536 | (if undo-in-region " in region" "")))) | 2536 | (if undo-in-region " in region" "")))) |