# HG changeset patch # User Eli Zaretskii # Date 1159609766 0 # Node ID 181f8fa162723e5fa03e27e40963b8149bddcc28 # Parent 20b963c4970312ed0290f9008364c37b9c868b7d (undo-more): When undo information for the region is exhausted, say "No further undo information FOR REGION". diff -r 20b963c49703 -r 181f8fa16272 lisp/simple.el --- a/lisp/simple.el Sat Sep 30 09:39:35 2006 +0000 +++ b/lisp/simple.el Sat Sep 30 09:49:26 2006 +0000 @@ -1501,8 +1501,7 @@ 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)