diff options
| author | Karl Heuer | 1996-09-01 19:15:05 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-09-01 19:15:05 +0000 |
| commit | 6ec8bbd20d14dadb850f993d828b42bb97deba32 (patch) | |
| tree | 19f01d5251cd6d478933a5f562ba985bf5c3b117 /src/abbrev.c | |
| parent | 7003b258300d0e575da8009e6f017b6c19aabacb (diff) | |
| download | emacs-6ec8bbd20d14dadb850f993d828b42bb97deba32.tar.gz emacs-6ec8bbd20d14dadb850f993d828b42bb97deba32.zip | |
Change all references from point to PT.
Diffstat (limited to 'src/abbrev.c')
| -rw-r--r-- | src/abbrev.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/abbrev.c b/src/abbrev.c index 6d88dad7716..d6acfe289ba 100644 --- a/src/abbrev.c +++ b/src/abbrev.c | |||
| @@ -246,7 +246,7 @@ Returns t if expansion took place.") | |||
| 246 | del_range (wordstart, wordstart + 1); | 246 | del_range (wordstart, wordstart + 1); |
| 247 | } | 247 | } |
| 248 | if (!wordstart) | 248 | if (!wordstart) |
| 249 | wordstart = scan_words (point, -1); | 249 | wordstart = scan_words (PT, -1); |
| 250 | 250 | ||
| 251 | if (!wordstart) | 251 | if (!wordstart) |
| 252 | return value; | 252 | return value; |
| @@ -255,9 +255,9 @@ Returns t if expansion took place.") | |||
| 255 | if (!wordend) | 255 | if (!wordend) |
| 256 | return value; | 256 | return value; |
| 257 | 257 | ||
| 258 | if (wordend > point) | 258 | if (wordend > PT) |
| 259 | wordend = point; | 259 | wordend = PT; |
| 260 | whitecnt = point - wordend; | 260 | whitecnt = PT - wordend; |
| 261 | if (wordend <= wordstart) | 261 | if (wordend <= wordstart) |
| 262 | return value; | 262 | return value; |
| 263 | 263 | ||
| @@ -304,7 +304,7 @@ Returns t if expansion took place.") | |||
| 304 | 304 | ||
| 305 | expansion = XSYMBOL (sym)->value; | 305 | expansion = XSYMBOL (sym)->value; |
| 306 | insert_from_string (expansion, 0, XSTRING (expansion)->size, 1); | 306 | insert_from_string (expansion, 0, XSTRING (expansion)->size, 1); |
| 307 | SET_PT (point + whitecnt); | 307 | SET_PT (PT + whitecnt); |
| 308 | 308 | ||
| 309 | if (uccount && !lccount) | 309 | if (uccount && !lccount) |
| 310 | { | 310 | { |
| @@ -313,14 +313,14 @@ Returns t if expansion took place.") | |||
| 313 | /* This used to be if (!... && ... >= ...) Fcapitalize; else Fupcase | 313 | /* This used to be if (!... && ... >= ...) Fcapitalize; else Fupcase |
| 314 | but Megatest 68000 compiler can't handle that */ | 314 | but Megatest 68000 compiler can't handle that */ |
| 315 | if (!abbrev_all_caps) | 315 | if (!abbrev_all_caps) |
| 316 | if (scan_words (point, -1) > scan_words (wordstart, 1)) | 316 | if (scan_words (PT, -1) > scan_words (wordstart, 1)) |
| 317 | { | 317 | { |
| 318 | Fupcase_initials_region (make_number (wordstart), | 318 | Fupcase_initials_region (make_number (wordstart), |
| 319 | make_number (point)); | 319 | make_number (PT)); |
| 320 | goto caped; | 320 | goto caped; |
| 321 | } | 321 | } |
| 322 | /* If expansion is one word, or if user says so, upcase it all. */ | 322 | /* If expansion is one word, or if user says so, upcase it all. */ |
| 323 | Fupcase_region (make_number (wordstart), make_number (point)); | 323 | Fupcase_region (make_number (wordstart), make_number (PT)); |
| 324 | caped: ; | 324 | caped: ; |
| 325 | } | 325 | } |
| 326 | else if (uccount) | 326 | else if (uccount) |
| @@ -329,7 +329,7 @@ Returns t if expansion took place.") | |||
| 329 | int pos = wordstart; | 329 | int pos = wordstart; |
| 330 | 330 | ||
| 331 | /* Find the initial. */ | 331 | /* Find the initial. */ |
| 332 | while (pos < point | 332 | while (pos < PT |
| 333 | && SYNTAX (*BUF_CHAR_ADDRESS (current_buffer, pos)) != Sword) | 333 | && SYNTAX (*BUF_CHAR_ADDRESS (current_buffer, pos)) != Sword) |
| 334 | pos++; | 334 | pos++; |
| 335 | 335 | ||
| @@ -350,7 +350,7 @@ This differs from ordinary undo in that other editing done since then\n\ | |||
| 350 | is not undone.") | 350 | is not undone.") |
| 351 | () | 351 | () |
| 352 | { | 352 | { |
| 353 | int opoint = point; | 353 | int opoint = PT; |
| 354 | int adjust = 0; | 354 | int adjust = 0; |
| 355 | if (last_abbrev_point < BEGV | 355 | if (last_abbrev_point < BEGV |
| 356 | || last_abbrev_point > ZV) | 356 | || last_abbrev_point > ZV) |
| @@ -365,7 +365,7 @@ is not undone.") | |||
| 365 | if (!STRINGP (val)) | 365 | if (!STRINGP (val)) |
| 366 | error ("value of abbrev-symbol must be a string"); | 366 | error ("value of abbrev-symbol must be a string"); |
| 367 | adjust = XSTRING (val)->size; | 367 | adjust = XSTRING (val)->size; |
| 368 | del_range (point, point + adjust); | 368 | del_range (PT, PT + adjust); |
| 369 | /* Don't inherit properties here; just copy from old contents. */ | 369 | /* Don't inherit properties here; just copy from old contents. */ |
| 370 | insert_from_string (Vlast_abbrev_text, 0, | 370 | insert_from_string (Vlast_abbrev_text, 0, |
| 371 | XSTRING (Vlast_abbrev_text)->size, 0); | 371 | XSTRING (Vlast_abbrev_text)->size, 0); |