diff options
| author | Richard M. Stallman <[email protected]> | 2002-07-23 19:25:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-07-23 19:25:27 +0000 |
| commit | fa1735d766e667ee34aadf7acea422acb9f1bfc4 (patch) | |
| tree | 4dc0db7fa275aabf2ff90cdc01c2d3bc8c1284a8 /lisp/simple.el | |
| parent | 993397a67efd802a5053bc265706844e87213fd7 (diff) | |
(undo, undo-more): Adjust messages when undoing in a region.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index d1026e6ff6..2b3193ced2 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -932,7 +932,9 @@ as an argument limits undo to changes within the current region." (let ((modified (buffer-modified-p)) (recent-save (recent-auto-save-p))) (or (eq (selected-window) (minibuffer-window)) - (message "Undo!")) + (message (if (and transient-mark-mode mark-active) + "Undo in region!" + "Undo!"))) (unless (eq last-command 'undo) (if (if transient-mark-mode mark-active (and arg (not (numberp arg)))) (undo-start (region-beginning) (region-end)) @@ -979,7 +981,9 @@ Some change-hooks test this variable to do something different.") Call `undo-start' to get ready to undo recent changes, then call `undo-more' one or more times to undo them." (or pending-undo-list - (error "No further undo information")) + (error (format "No further undo information%s" + (if (and transient-mark-mode mark-active) + " for region" "")))) (let ((undo-in-progress t)) (setq pending-undo-list (primitive-undo count pending-undo-list)))) |