Mercurial > emacs

changeset 71988:8d894204c732

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scan_lists): Use xsignal3.
author Kim F. Storm <storm@cua.dk>
date Tue, 18 Jul 2006 13:29:00 +0000
parents 6dd00de34fff
children 3a19c23d7c59
files src/syntax.c
diffstat 1 files changed, 9 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/src/syntax.c	Tue Jul 18 13:28:53 2006 +0000
+++ b/src/syntax.c	Tue Jul 18 13:29:00 2006 +0000
@@ -2347,10 +2347,9 @@
 	    close1:
 	      if (!--depth) goto done;
 	      if (depth < min_depth)
-		Fsignal (Qscan_error,
-			 Fcons (build_string ("Containing expression ends prematurely"),
-				Fcons (make_number (last_good),
-				       Fcons (make_number (from), Qnil))));
+		xsignal3 (Qscan_error,
+			  build_string ("Containing expression ends prematurely"),
+			  make_number (last_good), make_number (from));
 	      break;
 
 	    case Sstring:
@@ -2499,10 +2498,9 @@
 	    open2:
 	      if (!--depth) goto done2;
 	      if (depth < min_depth)
-		Fsignal (Qscan_error,
-			 Fcons (build_string ("Containing expression ends prematurely"),
-				Fcons (make_number (last_good),
-				       Fcons (make_number (from), Qnil))));
+		xsignal3 (Qscan_error,
+			  build_string ("Containing expression ends prematurely"),
+			  make_number (last_good), make_number (from));
 	      break;
 
 	    case Sendcomment:
@@ -2571,12 +2569,9 @@
   return val;
 
  lose:
-  Fsignal (Qscan_error,
-	   Fcons (build_string ("Unbalanced parentheses"),
-		  Fcons (make_number (last_good),
-			 Fcons (make_number (from), Qnil))));
-  abort ();
-  /* NOTREACHED */
+  xsignal3 (Qscan_error,
+	    build_string ("Unbalanced parentheses"),
+	    make_number (last_good), make_number (from));
 }
 
 DEFUN ("scan-lists", Fscan_lists, Sscan_lists, 3, 3, 0,