diff options
| author | Karoly Lorentey | 2006-07-29 09:59:12 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-07-29 09:59:12 +0000 |
| commit | 251bc578cc636223d618d06cf2a2bb7d07db9cce (patch) | |
| tree | 58e1c6b0a35bb4a77e6cb77876e4bc6a9d3f2ab2 /src/syntax.c | |
| parent | 99715bbc447eb633e45ffa23b87284771ce3ac74 (diff) | |
| parent | 0ed0527cb02180a50f6744086ce3a487740c73e4 (diff) | |
| download | emacs-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.c | 23 |
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 | ||
| 2582 | DEFUN ("scan-lists", Fscan_lists, Sscan_lists, 3, 3, 0, | 2577 | DEFUN ("scan-lists", Fscan_lists, Sscan_lists, 3, 3, 0, |