mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(casify_object, operate_on_word, Fupcase_word, Fdowncase_word,

Browse source 
Fcapitalize_word): Don't use XFASTINT as an lvalue.
This commit is contained in:
Karl Heuer 1994-10-04 15:41:33 +00:00
parent acab6442ab
commit 18e23fd0bb
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/casefiddle.c
View file

@ -42,9 +42,9 @@ casify_object (flag, obj)
if (c >= 0 && c <= 0400)
{
if (inword)
XFASTINT (obj) = DOWNCASE (c);
XSETFASTINT (obj, DOWNCASE (c));
else if (!UPPERCASEP (c))
XFASTINT (obj) = UPCASE1 (c);
XSETFASTINT (obj, UPCASE1 (c));
}
return obj;
}
@ -235,7 +235,7 @@ operate_on_word (arg, newpoint)
farend = XINT (arg) > 0 ? ZV : BEGV;
*newpoint = point > farend ? point : farend;
XFASTINT (val) = farend;
XSETFASTINT (val, farend);
return val;
}
@ -249,7 +249,7 @@ See also `capitalize-word'.")
{
Lisp_Object beg, end;
int newpoint;
XFASTINT (beg) = point;
XSETFASTINT (beg, point);
end = operate_on_word (arg, &newpoint);
casify_region (CASE_UP, beg, end);
SET_PT (newpoint);
@ -264,7 +264,7 @@ With negative argument, convert previous words but do not move.")
{
Lisp_Object beg, end;
int newpoint;
XFASTINT (beg) = point;
XSETFASTINT (beg, point);
end = operate_on_word (arg, &newpoint);
casify_region (CASE_DOWN, beg, end);
SET_PT (newpoint);
@ -281,7 +281,7 @@ With negative argument, capitalize previous words but do not move.")
{
Lisp_Object beg, end;
int newpoint;
XFASTINT (beg) = point;
XSETFASTINT (beg, point);
end = operate_on_word (arg, &newpoint);
casify_region (CASE_CAPITALIZE, beg, end);
SET_PT (newpoint);