Mercurial > emacs
comparison src/intervals.c @ 18743:1c1a002339a5
(set_point): Convert call2 arguments to Lisp_Integer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 12 Jul 1997 06:42:44 +0000 |
| parents | 614b916ff5bf |
| children | f62a4f83537e |
comparison
equal
deleted
inserted
replaced
| 18742:a56124aa2164 | 18743:1c1a002339a5 |
|---|---|
| 1830 enter_before = textget (to->plist, Qpoint_entered); | 1830 enter_before = textget (to->plist, Qpoint_entered); |
| 1831 else | 1831 else |
| 1832 enter_before = Qnil; | 1832 enter_before = Qnil; |
| 1833 | 1833 |
| 1834 if (! EQ (leave_before, enter_before) && !NILP (leave_before)) | 1834 if (! EQ (leave_before, enter_before) && !NILP (leave_before)) |
| 1835 call2 (leave_before, old_position, position); | 1835 call2 (leave_before, make_number (old_position), |
| 1836 make_number (position)); | |
| 1836 if (! EQ (leave_after, enter_after) && !NILP (leave_after)) | 1837 if (! EQ (leave_after, enter_after) && !NILP (leave_after)) |
| 1837 call2 (leave_after, old_position, position); | 1838 call2 (leave_after, make_number (old_position), |
| 1839 make_number (position)); | |
| 1838 | 1840 |
| 1839 if (! EQ (enter_before, leave_before) && !NILP (enter_before)) | 1841 if (! EQ (enter_before, leave_before) && !NILP (enter_before)) |
| 1840 call2 (enter_before, old_position, position); | 1842 call2 (enter_before, make_number (old_position), |
| 1843 make_number (position)); | |
| 1841 if (! EQ (enter_after, leave_after) && !NILP (enter_after)) | 1844 if (! EQ (enter_after, leave_after) && !NILP (enter_after)) |
| 1842 call2 (enter_after, old_position, position); | 1845 call2 (enter_after, make_number (old_position), |
| 1846 make_number (position)); | |
| 1843 } | 1847 } |
| 1844 } | 1848 } |
| 1845 | 1849 |
| 1846 /* Set point temporarily, without checking any text properties. */ | 1850 /* Set point temporarily, without checking any text properties. */ |
| 1847 | 1851 |