mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-09 15:50:21 +00:00
Code Issues Releases Activity

(indented_beyond_p): Fix mixing of Lisp_Object and int.

Browse Source
This commit is contained in:
Andreas Schwab 1998-04-14 13:00:27 +00:00
parent d4d76014dc
commit d5d6f7060f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/indent.c
View File

@ -792,14 +792,14 @@ int
indented_beyond_p (pos, pos_byte, column) indented_beyond_p (pos, pos_byte, column)
int pos, pos_byte, column; int pos, pos_byte, column;
{ {
Lisp_Object val; int val;
int opoint = PT, opoint_byte = PT_BYTE; int opoint = PT, opoint_byte = PT_BYTE;
SET_PT_BOTH (pos, pos_byte); SET_PT_BOTH (pos, pos_byte);
while (PT > BEGV && FETCH_BYTE (PT_BYTE) == '\n') while (PT > BEGV && FETCH_BYTE (PT_BYTE) == '\n')
scan_newline (PT - 1, PT_BYTE - 1, BEGV, BEGV_BYTE, -1, 0); scan_newline (PT - 1, PT_BYTE - 1, BEGV, BEGV_BYTE, -1, 0);
XSETFASTINT (val, position_indentation (PT_BYTE)); val = position_indentation (PT_BYTE);
SET_PT_BOTH (opoint, opoint_byte); SET_PT_BOTH (opoint, opoint_byte);
return val; return val;
} }