aboutsummaryrefslogtreecommitdiffstats
path: root/src/syntax.c
diff options
context:
space:
mode:
authorKaroly Lorentey2006-07-29 09:59:12 +0000
committerKaroly Lorentey2006-07-29 09:59:12 +0000
commit251bc578cc636223d618d06cf2a2bb7d07db9cce (patch)
tree58e1c6b0a35bb4a77e6cb77876e4bc6a9d3f2ab2 /src/syntax.c
parent99715bbc447eb633e45ffa23b87284771ce3ac74 (diff)
parent0ed0527cb02180a50f6744086ce3a487740c73e4 (diff)
downloademacs-251bc578cc636223d618d06cf2a2bb7d07db9cce.tar.gz
emacs-251bc578cc636223d618d06cf2a2bb7d07db9cce.zip
Merged from emacs@sv.gnu.org
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-351 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-352 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-353 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-354 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-355 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-356 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-357 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-358 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-359 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-360 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-361 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-362 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-363 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-364 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-365 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-366 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-367 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-368 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-369 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-370 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-115 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-116 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-117 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-118 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-119 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-120 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-573
Diffstat (limited to 'src/syntax.c')
-rw-r--r--src/syntax.c23
1 files changed, 9 insertions, 14 deletions
diff --git a/src/syntax.c b/src/syntax.c
index 9959c17ad47..eee9151f878 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -2347,10 +2347,9 @@ scan_lists (from, count, depth, sexpflag)
2347 close1: 2347 close1:
2348 if (!--depth) goto done; 2348 if (!--depth) goto done;
2349 if (depth < min_depth) 2349 if (depth < min_depth)
2350 Fsignal (Qscan_error, 2350 xsignal3 (Qscan_error,
2351 Fcons (build_string ("Containing expression ends prematurely"), 2351 build_string ("Containing expression ends prematurely"),
2352 Fcons (make_number (last_good), 2352 make_number (last_good), make_number (from));
2353 Fcons (make_number (from), Qnil))));
2354 break; 2353 break;
2355 2354
2356 case Sstring: 2355 case Sstring:
@@ -2499,10 +2498,9 @@ scan_lists (from, count, depth, sexpflag)
2499 open2: 2498 open2:
2500 if (!--depth) goto done2; 2499 if (!--depth) goto done2;
2501 if (depth < min_depth) 2500 if (depth < min_depth)
2502 Fsignal (Qscan_error, 2501 xsignal3 (Qscan_error,
2503 Fcons (build_string ("Containing expression ends prematurely"), 2502 build_string ("Containing expression ends prematurely"),
2504 Fcons (make_number (last_good), 2503 make_number (last_good), make_number (from));
2505 Fcons (make_number (from), Qnil))));
2506 break; 2504 break;
2507 2505
2508 case Sendcomment: 2506 case Sendcomment:
@@ -2571,12 +2569,9 @@ scan_lists (from, count, depth, sexpflag)
2571 return val; 2569 return val;
2572 2570
2573 lose: 2571 lose:
2574 Fsignal (Qscan_error, 2572 xsignal3 (Qscan_error,
2575 Fcons (build_string ("Unbalanced parentheses"), 2573 build_string ("Unbalanced parentheses"),
2576 Fcons (make_number (last_good), 2574 make_number (last_good), make_number (from));
2577 Fcons (make_number (from), Qnil))));
2578 abort ();
2579 /* NOTREACHED */
2580} 2575}
2581 2576
2582DEFUN ("scan-lists", Fscan_lists, Sscan_lists, 3, 3, 0, 2577DEFUN ("scan-lists", Fscan_lists, Sscan_lists, 3, 3, 0,