diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-09-01 19:15:05 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-09-01 19:15:05 +0000 |
| commit | 6ec8bbd20d14dadb850f993d828b42bb97deba32 (patch) | |
| tree | 19f01d5251cd6d478933a5f562ba985bf5c3b117 /src/casefiddle.c | |
| parent | 7003b258300d0e575da8009e6f017b6c19aabacb (diff) | |
| download | emacs-6ec8bbd20d14dadb850f993d828b42bb97deba32.tar.gz | |
Change all references from point to PT.
Diffstat (limited to 'src/casefiddle.c')
| -rw-r--r-- | src/casefiddle.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c index 1e3856100a0..f4400814778 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c @@ -227,11 +227,11 @@ operate_on_word (arg, newpoint) CHECK_NUMBER (arg, 0); iarg = XINT (arg); - farend = scan_words (point, iarg); + farend = scan_words (PT, iarg); if (!farend) farend = iarg > 0 ? ZV : BEGV; - *newpoint = point > farend ? point : farend; + *newpoint = PT > farend ? PT : farend; XSETFASTINT (val, farend); return val; @@ -246,7 +246,7 @@ See also `capitalize-word'.") { Lisp_Object beg, end; int newpoint; - XSETFASTINT (beg, point); + XSETFASTINT (beg, PT); end = operate_on_word (arg, &newpoint); casify_region (CASE_UP, beg, end); SET_PT (newpoint); @@ -261,7 +261,7 @@ With negative argument, convert previous words but do not move.") { Lisp_Object beg, end; int newpoint; - XSETFASTINT (beg, point); + XSETFASTINT (beg, PT); end = operate_on_word (arg, &newpoint); casify_region (CASE_DOWN, beg, end); SET_PT (newpoint); @@ -278,7 +278,7 @@ With negative argument, capitalize previous words but do not move.") { Lisp_Object beg, end; int newpoint; - XSETFASTINT (beg, point); + XSETFASTINT (beg, PT); end = operate_on_word (arg, &newpoint); casify_region (CASE_CAPITALIZE, beg, end); SET_PT (newpoint); |