Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 5097:4a6b680a9577

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 04 Mar 2010 07:26:05 -0600
parents ed624ab64583 99f8ebc082d9
children 7be849cb8828
comparison
equal deleted inserted replaced
5096:e0587c615e8b 5097:4a6b680a9577
1571 Lisp_Object arg = POP; 1571 Lisp_Object arg = POP;
1572 TOP_LVALUE = Fstring_lessp (TOP, arg); 1572 TOP_LVALUE = Fstring_lessp (TOP, arg);
1573 break; 1573 break;
1574 } 1574 }
1575 1575
1576 case Bsubstring: 1576 case Bsubseq:
1577 { 1577 {
1578 Lisp_Object arg2 = POP; 1578 Lisp_Object arg2 = POP;
1579 Lisp_Object arg1 = POP; 1579 Lisp_Object arg1 = POP;
1580 TOP_LVALUE = Fsubstring (TOP, arg1, arg2); 1580 TOP_LVALUE = Fsubseq (TOP, arg1, arg2);
1581 break; 1581 break;
1582 } 1582 }
1583 1583
1584 case Bcurrent_column: 1584 case Bcurrent_column:
1585 PUSH (make_int (current_column (current_buffer))); 1585 PUSH (make_int (current_column (current_buffer)));