From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 28 Dec 2002 21:23:23 +0000 (+0000)
Subject: (repeat-complex-command): Signal real error on failure.
X-Git-Tag: ttn-vms-21-2-B4~11891
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=536b728a07631b54c510a18d6977398c66919247;p=emacs.git

(repeat-complex-command): Signal real error on failure.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 67f0edb2628..6331be18766 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -702,7 +702,9 @@ to get different commands to edit and resubmit."
 	  (or (equal newcmd (car command-history))
 	      (setq command-history (cons newcmd command-history)))
 	  (eval newcmd))
-      (ding))))
+      (if command-history
+	  (error "Argument %d is beyond length of command history" arg)
+	(error "There are no previous complex commands to repeat")))))
 
 (defvar minibuffer-history nil
   "Default minibuffer history list.