(undo-more): When undo information for the region is exhausted, say

"No further undo information FOR REGION".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04e754852976f6bc0c65f1a2bdd9d7f193a6cc53..c32f4231b876b9c9475014e92c8f0a616d093438 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-30  Johan Bockg\e,Ae\e(Brd  <bojohan@dd.chalmers.se>
+
+       * simple.el (undo-more): When undo information for the region is
+       exhausted, say "No further undo information FOR REGION".
+
 2006-09-30  Michael Welsh Duggan  <md5i@cs.cmu.edu>
 
        * progmodes/sh-script.el (sh-prev-thing): Take

diff --git a/lisp/simple.el b/lisp/simple.el
index 53c9c680cc979fae4b34baf925223685c2602a83..105c5a9afcef41c00a100ce72808105bd572a0be 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1501,8 +1501,7 @@ Call `undo-start' to get ready to undo recent changes,
 then call `undo-more' one or more times to undo them."
   (or (listp pending-undo-list)
       (error (concat "No further undo information"
-                     (and transient-mark-mode mark-active
-                          " for region"))))
+                    (and undo-in-region " for region"))))
   (let ((undo-in-progress t))
     (setq pending-undo-list (primitive-undo n pending-undo-list))
     (if (null pending-undo-list)