diff options
| author | Joseph Arceneaux | 1992-10-01 00:56:11 +0000 |
|---|---|---|
| committer | Joseph Arceneaux | 1992-10-01 00:56:11 +0000 |
| commit | d7e3e52b6ebb938b5ef5935a41f33726eb8d9bff (patch) | |
| tree | adffdaa733b5a8ff0230f77deb6f1eff248cff0f /src | |
| parent | e115a65b13b36c7d9a2c49eb22ed758fbb1356ca (diff) | |
| download | emacs-d7e3e52b6ebb938b5ef5935a41f33726eb8d9bff.tar.gz emacs-d7e3e52b6ebb938b5ef5935a41f33726eb8d9bff.zip | |
Various comment changes.
Diffstat (limited to 'src')
| -rw-r--r-- | src/intervals.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/intervals.c b/src/intervals.c index fc725b5fac8..4a0dde12887 100644 --- a/src/intervals.c +++ b/src/intervals.c | |||
| @@ -1277,9 +1277,7 @@ graft_intervals_into_buffer (source, position, buffer) | |||
| 1277 | an invisible interval which is not displayed with a special glyph, | 1277 | an invisible interval which is not displayed with a special glyph, |
| 1278 | skip intervals until we find one. Point may be at the first | 1278 | skip intervals until we find one. Point may be at the first |
| 1279 | position of an invisible interval, if it is displayed with a | 1279 | position of an invisible interval, if it is displayed with a |
| 1280 | special glyph. | 1280 | special glyph. */ |
| 1281 | |||
| 1282 | This is the only place `PT' is an lvalue in all of emacs. */ | ||
| 1283 | 1281 | ||
| 1284 | void | 1282 | void |
| 1285 | set_point (position, buffer) | 1283 | set_point (position, buffer) |
| @@ -1352,8 +1350,9 @@ set_point (position, buffer) | |||
| 1352 | else | 1350 | else |
| 1353 | buffer->text.pt = to->position; | 1351 | buffer->text.pt = to->position; |
| 1354 | 1352 | ||
| 1355 | /* We should run point-left and point-entered hooks here, iff the | 1353 | /* We run point-left and point-entered hooks here, iff the |
| 1356 | two intervals are not equivalent. */ | 1354 | two intervals are not equivalent. These hooks take |
| 1355 | (old_point, new_point) as arguments. */ | ||
| 1357 | if (! intervals_equal (from, to)) | 1356 | if (! intervals_equal (from, to)) |
| 1358 | { | 1357 | { |
| 1359 | Lisp_Object val; | 1358 | Lisp_Object val; |
| @@ -1549,7 +1548,7 @@ copy_intervals (tree, start, length) | |||
| 1549 | 1548 | ||
| 1550 | /* Give STRING the properties of BUFFER from POSITION to LENGTH. */ | 1549 | /* Give STRING the properties of BUFFER from POSITION to LENGTH. */ |
| 1551 | 1550 | ||
| 1552 | void | 1551 | INLINE void |
| 1553 | copy_intervals_to_string (string, buffer, position, length) | 1552 | copy_intervals_to_string (string, buffer, position, length) |
| 1554 | Lisp_Object string, buffer; | 1553 | Lisp_Object string, buffer; |
| 1555 | int position, length; | 1554 | int position, length; |