aboutsummaryrefslogtreecommitdiffstats
path: root/src/abbrev.c
diff options
context:
space:
mode:
authorKarl Heuer1996-09-01 19:15:05 +0000
committerKarl Heuer1996-09-01 19:15:05 +0000
commit6ec8bbd20d14dadb850f993d828b42bb97deba32 (patch)
tree19f01d5251cd6d478933a5f562ba985bf5c3b117 /src/abbrev.c
parent7003b258300d0e575da8009e6f017b6c19aabacb (diff)
downloademacs-6ec8bbd20d14dadb850f993d828b42bb97deba32.tar.gz
emacs-6ec8bbd20d14dadb850f993d828b42bb97deba32.zip
Change all references from point to PT.
Diffstat (limited to 'src/abbrev.c')
-rw-r--r--src/abbrev.c22
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\
350is not undone.") 350is 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);