comparison src/bytecode.c @ 5089:99f8ebc082d9

Make #'substring an alias of #'subseq; give the latter the byte code. src/ChangeLog addition: 2010-03-03 Aidan Kehoe <kehoea@parhasard.net> * fns.c (Fsubstring): Removed. * search.c (Freplace_match): * minibuf.c (Ftry_completion): * lisp.h: * keymap.c (ensure_meta_prefix_char_keymapp): * dired.c (user_name_completion, file_name_completion): * console-x.c (x_canonicalize_console_connection): * bytecode.c (Bsubseq): * bytecode-ops.h (subseq): Move #'substring to Lisp, as an alias for #'subseq; change all C Fsubstring() calls to Fsubseq(), change the Bsubstring bytecode to Bsubseq. Motivation; not accepting vectors in #'substring is incompatible with GNU, and Common Lisp prefers #'subseq, it has no #'substring. lisp/ChangeLog addition: 2010-03-03 Aidan Kehoe <kehoea@parhasard.net> Move byte code #o117 to #'subseq, not #'substring. Make #'substring available as an alias for #'subseq in Lisp. * bytecomp.el (79, subseq, substring): * bytecomp.el (byte-compile-subseq): New. * update-elc.el (update-elc-chop-extension): Use #'subseq, not #'substring, the latter is not yet available. * subr.el (substring): New alias, to #'subseq. man/ChangeLog addition: 2010-03-03 Aidan Kehoe <kehoea@parhasard.net> * lispref/tips.texi (Comment Tips): * lispref/text.texi (Text Properties): * lispref/strings.texi (Creating Strings): * lispref/processes.texi (Input to Processes): * lispref/functions.texi (Argument List): * lispref/extents.texi (Duplicable Extents): Move examples that used substring to using subseq; in strings.texi, do not change the examples, but document that in this XEmacs, it is an alias for subseq, and that there may be some incompatibilities if you depend on that.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 03 Mar 2010 18:40:12 +0000
parents fe0d3106cc36
children 4a6b680a9577
comparison
equal deleted inserted replaced
5088:207dad9e74f7 5089:99f8ebc082d9
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)));