comparison src/bytecode.c @ 35711:f17e8743925c

(Fbyte_code) <Bcurrent_column>: Add BEFORE_POTENTIAL_GC and AFTER_POTENTIAL_GC.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 29 Jan 2001 20:44:42 +0000
parents 583cd327d7b5
children 91fee7514fc7
comparison
equal deleted inserted replaced
35710:1bee5b46a604 35711:f17e8743925c
1339 } 1339 }
1340 1340
1341 case Bcurrent_column: 1341 case Bcurrent_column:
1342 { 1342 {
1343 Lisp_Object v1; 1343 Lisp_Object v1;
1344 BEFORE_POTENTIAL_GC ();
1344 XSETFASTINT (v1, current_column ()); 1345 XSETFASTINT (v1, current_column ());
1346 AFTER_POTENTIAL_GC ();
1345 PUSH (v1); 1347 PUSH (v1);
1346 break; 1348 break;
1347 } 1349 }
1348 1350
1349 case Bindent_to: 1351 case Bindent_to: