Mercurial > hg > xemacs-beta

diff lisp/subr.el @ 4103:b4f4e0cc90f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-07 23:08:47 by aidan] Eliminate byte compiler warnings, give nicer errors in the absence of packages.
author aidan
date Tue, 07 Aug 2007 23:09:22 +0000
parents 1c2a46ea1f78
children 3660d327399f
line wrap: on
line diff
--- a/lisp/subr.el	Tue Aug 07 21:51:12 2007 +0000
+++ b/lisp/subr.el	Tue Aug 07 23:09:22 2007 +0000
@@ -1326,7 +1326,7 @@
     (let ((newsym (gensym)))
       `(let ((,newsym ,argument))
 	 (if (not (argument-in-range-p ,newsym ,min ,max))
-	     (signal-error 'args-out-of-range ,newsym ,min ,max))))))
+	     (signal-error 'args-out-of-range (list ,newsym ,min ,max)))))))
 
 (defun signal-error (error-symbol data)
   "Signal a non-continuable error.  Args are ERROR-SYMBOL, and associated DATA.