Mercurial > emacs
comparison src/buffer.c @ 6493:33a461f14903
(sort_overlays, Fmake_overlay): Use assignment, not initialization.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 23 Mar 1994 22:25:50 +0000 |
| parents | 95a4c1f81d0c |
| children | 60f70854e73f |
comparison
equal
deleted
inserted
replaced
| 6492:8372dce85f8a | 6493:33a461f14903 |
|---|---|
| 1425 /* Put the valid and relevant overlays into sortvec. */ | 1425 /* Put the valid and relevant overlays into sortvec. */ |
| 1426 | 1426 |
| 1427 for (i = 0, j = 0; i < noverlays; i++) | 1427 for (i = 0, j = 0; i < noverlays; i++) |
| 1428 { | 1428 { |
| 1429 Lisp_Object tem; | 1429 Lisp_Object tem; |
| 1430 Lisp_Object overlay = overlay_vec[i]; | 1430 Lisp_Object overlay; |
| 1431 | 1431 |
| 1432 overlay = overlay_vec[i]; | |
| 1432 if (OVERLAY_VALID (overlay) | 1433 if (OVERLAY_VALID (overlay) |
| 1433 && OVERLAY_POSITION (OVERLAY_START (overlay)) > 0 | 1434 && OVERLAY_POSITION (OVERLAY_START (overlay)) > 0 |
| 1434 && OVERLAY_POSITION (OVERLAY_END (overlay)) > 0) | 1435 && OVERLAY_POSITION (OVERLAY_END (overlay)) > 0) |
| 1435 { | 1436 { |
| 1436 /* If we're interested in a specific window, then ignore | 1437 /* If we're interested in a specific window, then ignore |
| 1662 CHECK_NUMBER_COERCE_MARKER (beg, 1); | 1663 CHECK_NUMBER_COERCE_MARKER (beg, 1); |
| 1663 CHECK_NUMBER_COERCE_MARKER (end, 1); | 1664 CHECK_NUMBER_COERCE_MARKER (end, 1); |
| 1664 | 1665 |
| 1665 if (XINT (beg) > XINT (end)) | 1666 if (XINT (beg) > XINT (end)) |
| 1666 { | 1667 { |
| 1667 Lisp_Object temp = beg; | 1668 Lisp_Object temp; |
| 1668 beg = end; end = temp; | 1669 temp = beg; beg = end; end = temp; |
| 1669 } | 1670 } |
| 1670 | 1671 |
| 1671 b = XBUFFER (buffer); | 1672 b = XBUFFER (buffer); |
| 1672 | 1673 |
| 1673 beg = Fset_marker (Fmake_marker (), beg, buffer); | 1674 beg = Fset_marker (Fmake_marker (), beg, buffer); |
| 1723 | 1724 |
| 1724 specbind (Qinhibit_quit, Qt); | 1725 specbind (Qinhibit_quit, Qt); |
| 1725 | 1726 |
| 1726 if (XINT (beg) > XINT (end)) | 1727 if (XINT (beg) > XINT (end)) |
| 1727 { | 1728 { |
| 1728 Lisp_Object temp = beg; | 1729 Lisp_Object temp; |
| 1729 beg = end; end = temp; | 1730 temp = beg; beg = end; end = temp; |
| 1730 } | 1731 } |
| 1731 | 1732 |
| 1732 obuffer = Fmarker_buffer (OVERLAY_START (overlay)); | 1733 obuffer = Fmarker_buffer (OVERLAY_START (overlay)); |
| 1733 b = XBUFFER (buffer); | 1734 b = XBUFFER (buffer); |
| 1734 ob = XBUFFER (obuffer); | 1735 ob = XBUFFER (obuffer); |
