46 	register TLispManager*	pLispMgr ;  in lispMachineState_SelfInsertCommand()  local
57 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_SelfInsertCommand()
58 	assert (pLispMgr != NULL) ;  in lispMachineState_SelfInsertCommand()
64 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_SelfInsertCommand()
65 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum)))   in lispMachineState_SelfInsertCommand()
73 	pEntLastCmdEvent	= lispMgr_GetReservedEntity (pLispMgr, LISPMGR_INDEX_LAST_COMMAND_EVENT) ;  in lispMachineState_SelfInsertCommand()
76 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pLastKey, &lValue))) {  in lispMachineState_SelfInsertCommand()
85 	lispBuffer_Point (pLispMgr, pEntBuffer, &nPosition) ;  in lispMachineState_SelfInsertCommand()
105 	register TLispManager*	pLispMgr ;  in lispMachineState_DeleteChar()  local
111 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_DeleteChar()
112 	assert (pLispMgr != NULL) ;  in lispMachineState_DeleteChar()
116 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_DeleteChar()
117 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum)) ||  in lispMachineState_DeleteChar()
130 	register TLispManager*	pLispMgr ;  in lispMachineState_BackwardChar()  local
136 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_BackwardChar()
137 	assert (pLispMgr != NULL) ;  in lispMachineState_BackwardChar()
141 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_BackwardChar()
142 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum)))   in lispMachineState_BackwardChar()
157 	register TLispManager*	pLispMgr ;  in lispMachineState_ForwardChar()  local
164 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_ForwardChar()
165 	assert (pLispMgr != NULL) ;  in lispMachineState_ForwardChar()
169 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_ForwardChar()
170 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum)))   in lispMachineState_ForwardChar()
176 	lispMgr_CreateNil (pLispMgr, &pEntRetval) ;  in lispMachineState_ForwardChar()
187 	register TLispManager*	pLispMgr ;  in lispMachineState_ForwardWord()  local
195 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_ForwardWord()
196 	assert (pLispMgr != NULL) ;  in lispMachineState_ForwardWord()
200 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_ForwardWord()
201 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum))) {  in lispMachineState_ForwardWord()
207 	lispEntity_Print (pLispMgr, pArglist) ;  in lispMachineState_ForwardWord()
214 		lispMgr_CreateT   (pLispMgr, &pRetEntity) ;  in lispMachineState_ForwardWord()
216 		lispMgr_CreateNil (pLispMgr, &pRetEntity) ;  in lispMachineState_ForwardWord()
229 	register TLispManager*	pLispMgr ;  in lispMachineState_BeginningOfLine()  local
235 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_BeginningOfLine()
236 	assert (pLispMgr != NULL) ;  in lispMachineState_BeginningOfLine()
240 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_BeginningOfLine()
241 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum)))   in lispMachineState_BeginningOfLine()
256 	register TLispManager*	pLispMgr ;  in lispMachineState_EndOfLine()  local
262 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_EndOfLine()
263 	assert (pLispMgr != NULL) ;  in lispMachineState_EndOfLine()
267 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_EndOfLine()
268 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum)))   in lispMachineState_EndOfLine()
290 	register TLispManager*	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_ForwardLine()  local
300 	lispEntity_GetCar (pLispMgr, pEntArglist, &pEntN) ;  in lispMachineState_ForwardLine()
301 	if (TFAILED (lispEntity_GetIntegerValue (pLispMgr, pEntN, &lN))) {  in lispMachineState_ForwardLine()
302 		if (TFAILED (lispEntity_Nullp (pLispMgr, pEntN))) {  in lispMachineState_ForwardLine()
310 	lispMachine_forwardLineN (pLispMgr, pEntBuffer, lN, &nRetval) ;  in lispMachineState_ForwardLine()
311 	if (TFAILED (lispMgr_CreateInteger (pLispMgr, nRetval, &pEntRetval)))  in lispMachineState_ForwardLine()
324 	register TLispManager*	pLispMgr ;  in lispMachineState_DeleteBackwardChar()  local
330 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_DeleteBackwardChar()
331 	assert (pLispMgr != NULL) ;  in lispMachineState_DeleteBackwardChar()
335 	if (TFAILED (lispEntity_GetCar (pLispMgr, pArglist, &pNum)) ||  in lispMachineState_DeleteBackwardChar()
336 		TFAILED (lispEntity_GetIntegerValue (pLispMgr, pNum, &lNum)) ||  in lispMachineState_DeleteBackwardChar()
353 	register TLispManager*	pLispMgr ;  in lispMachineState_DeleteRegion()  local
362 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_DeleteRegion()
363 	assert (pLispMgr != NULL) ;  in lispMachineState_DeleteRegion()
367 	if (TFAILED (lispEntity_GetCar (pLispMgr, pEntArglist, &pEntCar)) ||  in lispMachineState_DeleteRegion()
368 		TFAILED (lispEntity_GetNumberValueOrMarkerPosition (pLispMgr, pEntCar, &numStart)) ||  in lispMachineState_DeleteRegion()
370 		TFAILED (lispEntity_GetCdr (pLispMgr, pEntArglist, &pEntArglist)) ||  in lispMachineState_DeleteRegion()
371 		TFAILED (lispEntity_GetCar (pLispMgr, pEntArglist, &pEntCar)) ||  in lispMachineState_DeleteRegion()
372 		TFAILED (lispEntity_GetNumberValueOrMarkerPosition (pLispMgr, pEntCar, &numEnd)) ||  in lispMachineState_DeleteRegion()
377 	lispBuffer_PointBufferTop (pLispMgr, pEntBuffer, &nPointBTop) ;  in lispMachineState_DeleteRegion()
388 		lispBuffer_Point    (pLispMgr, pEntBuffer, &nPoint) ;  in lispMachineState_DeleteRegion()
389 		lispBuffer_PointMin (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachineState_DeleteRegion()
390 		lispBuffer_PointMax (pLispMgr, pEntBuffer, &nPointMax) ;  in lispMachineState_DeleteRegion()
396 	if (TFAILED (lispBuffer_DeleteChar (pLispMgr, pEntBuffer, nPosition, nCount))) {  in lispMachineState_DeleteRegion()
400 		lispMgr_CreateNil (pLispMgr, &pEntNil) ;  in lispMachineState_DeleteRegion()
419 	register TLispManager*	pLispMgr	= pLM->m_pLispMgr ;  in lispMachineState_GotoChar()  local
431 	lispEntity_GetCar (pLispMgr, pEntArglist, &pEntPOSITION) ;  in lispMachineState_GotoChar()
432 	if (TFAILED (lispEntity_GetNumberValueOrMarkerPosition (pLispMgr, pEntPOSITION, &num)) ||  in lispMachineState_GotoChar()
438 	lispBuffer_PointMin (pLispMgr, pEntCurBuffer, &nPointMin) ;  in lispMachineState_GotoChar()
439 	lispBuffer_PointMax (pLispMgr, pEntCurBuffer, &nPointMax) ;  in lispMachineState_GotoChar()
445 	lispBuffer_PointMarker (pLispMgr, pEntCurBuffer, &pMkPoint) ;  in lispMachineState_GotoChar()
446 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntCurBuffer, nPoint) ;  in lispMachineState_GotoChar()
457 	register TLispManager*	pLispMgr ;  in lispMachine_backwardCharN()  local
464 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachine_backwardCharN()
465 	assert (pLispMgr != NULL) ;  in lispMachine_backwardCharN()
472 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_backwardCharN()
473 	lispBuffer_PointMin (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachine_backwardCharN()
474 	lispMarker_GetBufferPosition (pLispMgr, pMkPoint, &pEntBuffer, &nPoint) ;  in lispMachine_backwardCharN()
481 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_backwardCharN()
490 	register TLispManager*	pLispMgr ;  in lispMachine_forwardCharN()  local
500 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachine_forwardCharN()
501 	assert (pLispMgr != NULL) ;  in lispMachine_forwardCharN()
504 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_forwardCharN()
505 	lispBuffer_PointMax (pLispMgr, pEntBuffer, &nPointMax) ;  in lispMachine_forwardCharN()
506 	lispMarker_GetBufferPosition (pLispMgr, pMkPoint, &pEntBuffer, &nPoint) ;  in lispMachine_forwardCharN()
514 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_forwardCharN()
523 	register TLispManager*	pLispMgr ;  in lispMachine_beginningOfLineN()  local
530 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachine_beginningOfLineN()
531 	assert (pLispMgr != NULL) ;  in lispMachine_beginningOfLineN()
535 	lispBuffer_GetString   (pLispMgr, pEntBuffer, &mkBuffer, &nLength) ;  in lispMachine_beginningOfLineN()
536 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_beginningOfLineN()
537 	lispBuffer_PointMax    (pLispMgr, pEntBuffer, &nPointMax) ;  in lispMachine_beginningOfLineN()
538 	lispBuffer_PointMin    (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachine_beginningOfLineN()
539 	lispBuffer_PointBufferTop (pLispMgr, pEntBuffer, &nPointBTop) ;  in lispMachine_beginningOfLineN()
540 	lispMarker_GetBufferPosition (pLispMgr, pMkPoint, &pEntBuffer, &nPoint) ;  in lispMachine_beginningOfLineN()
577 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_beginningOfLineN()
586 	register TLispManager*	pLispMgr ;  in lispMachine_endOfLineN()  local
593 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachine_endOfLineN()
594 	assert (pLispMgr != NULL) ;  in lispMachine_endOfLineN()
598 	lispBuffer_GetString   (pLispMgr, pEntBuffer, &mkBuffer, &nLength) ;  in lispMachine_endOfLineN()
599 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_endOfLineN()
600 	lispBuffer_PointMax    (pLispMgr, pEntBuffer, &nPointMax) ;  in lispMachine_endOfLineN()
601 	lispBuffer_PointMin    (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachine_endOfLineN()
602 	lispBuffer_PointBufferTop (pLispMgr, pEntBuffer, &nPointBTop) ;  in lispMachine_endOfLineN()
603 	lispMarker_GetBufferPosition (pLispMgr, pMkPoint, &pEntBuffer, &nPoint) ;  in lispMachine_endOfLineN()
629 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_endOfLineN()
638 	register TLispManager*	pLispMgr ;  in lispMachine_deleteCharN()  local
644 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachine_deleteCharN()
645 	assert (pLispMgr != NULL) ;  in lispMachine_deleteCharN()
649 	lispBuffer_Point    (pLispMgr, pEntBuffer, &nPoint) ;  in lispMachine_deleteCharN()
650 	lispBuffer_PointMin (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachine_deleteCharN()
651 	lispBuffer_PointMax (pLispMgr, pEntBuffer, &nPointMax) ;  in lispMachine_deleteCharN()
664 	lispBuffer_DeleteChar (pLispMgr, pEntBuffer, nPoint, nNum) ;  in lispMachine_deleteCharN()
665 	lispMgr_CreateNil (pLispMgr, &pNil) ;  in lispMachine_deleteCharN()
677 	register TLispManager*	pLispMgr ;  in lispMachine_forwardWordN()  local
690 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachine_forwardWordN()
691 	assert (pLispMgr != NULL) ;  in lispMachine_forwardWordN()
695 	lispBuffer_GetString   (pLispMgr, pEntBuffer, &mkBuffer, &nLength) ;  in lispMachine_forwardWordN()
696 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_forwardWordN()
697 	lispBuffer_PointMax    (pLispMgr, pEntBuffer, &nPointMax) ;  in lispMachine_forwardWordN()
698 	lispBuffer_PointBufferTop (pLispMgr, pEntBuffer, &nPointBTop) ;  in lispMachine_forwardWordN()
699 	lispMarker_GetBufferPosition (pLispMgr, pMkPoint, &pEntBuffer, &nPoint) ;  in lispMachine_forwardWordN()
727 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_forwardWordN()
738 	register TLispManager*	pLispMgr ;  in lispMachine_backwardWordN()  local
751 	pLispMgr	= pLM->m_pLispMgr ;  in lispMachine_backwardWordN()
752 	assert (pLispMgr != NULL) ;  in lispMachine_backwardWordN()
756 	lispBuffer_GetString   (pLispMgr, pEntBuffer, &mkBuffer, &nLength) ;  in lispMachine_backwardWordN()
757 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_backwardWordN()
758 	lispBuffer_PointMin    (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachine_backwardWordN()
759 	lispBuffer_PointBufferTop (pLispMgr, pEntBuffer, &nPointBTop) ;  in lispMachine_backwardWordN()
760 	lispMarker_GetBufferPosition (pLispMgr, pMkPoint, &pEntBuffer, &nPoint) ;  in lispMachine_backwardWordN()
806 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_backwardWordN()
812 	register TLispManager*	pLispMgr,   in lispMachine_forwardLineN()  argument
824 		return	lispMachine_backwardLineN (pLispMgr, pEntBuffer, nCount, pnLeftCount) ;  in lispMachine_forwardLineN()
826 	lispBuffer_GetString   (pLispMgr, pEntBuffer, &mkBuffer, &nLength) ;  in lispMachine_forwardLineN()
827 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_forwardLineN()
828 	lispBuffer_Point       (pLispMgr, pEntBuffer, &nPoint) ;  in lispMachine_forwardLineN()
829 	lispBuffer_PointMin    (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachine_forwardLineN()
830 	lispBuffer_PointMax    (pLispMgr, pEntBuffer, &nPointMax) ;  in lispMachine_forwardLineN()
855 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_forwardLineN()
862 	register TLispManager*	pLispMgr,   in lispMachine_backwardLineN()  argument
873 		return	lispMachine_forwardLineN (pLispMgr, pEntBuffer, nCount, pnLeftCount) ;  in lispMachine_backwardLineN()
875 	lispBuffer_GetString   (pLispMgr, pEntBuffer, &mkBuffer, &nLength) ;  in lispMachine_backwardLineN()
876 	lispBuffer_PointMarker (pLispMgr, pEntBuffer, &pMkPoint) ;  in lispMachine_backwardLineN()
877 	lispBuffer_Point       (pLispMgr, pEntBuffer, &nPoint) ;  in lispMachine_backwardLineN()
878 	lispBuffer_PointMin    (pLispMgr, pEntBuffer, &nPointMin) ;  in lispMachine_backwardLineN()
913 	lispMarker_SetBufferPosition (pLispMgr, pMkPoint, pEntBuffer, nPoint) ;  in lispMachine_backwardLineN()