From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 30 Sep 2006 09:50:07 +0000 (+0000)
Subject: (undo-more): When undo information for the region is exhausted, say
X-Git-Tag: emacs-pretest-22.0.90~281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00fa402402044dac8314b50d1608a24c45b6bb3a;p=emacs.git

(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 04e75485297..c32f4231b87 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-30  Johan Bockg,Ae(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 53c9c680cc9..105c5a9afce 100644
--- 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)