comparison src/minibuf.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 e813cf16c015
children a48ef26d87ee
comparison
equal deleted inserted replaced
5088:207dad9e74f7 5089:99f8ebc082d9
511 XSTRING_DATA (string), 511 XSTRING_DATA (string),
512 bestmatchsize, 0)) 512 bestmatchsize, 0))
513 return Qt; 513 return Qt;
514 514
515 /* Else extract the part in which all completions agree */ 515 /* Else extract the part in which all completions agree */
516 return Fsubstring (bestmatch, Qzero, make_int (bestmatchsize)); 516 return Fsubseq (bestmatch, Qzero, make_int (bestmatchsize));
517 } 517 }
518 518
519 519
520 DEFUN ("all-completions", Fall_completions, 2, 3, 0, /* 520 DEFUN ("all-completions", Fall_completions, 2, 3, 0, /*
521 Search for partial matches to STRING in COLLECTION. 521 Search for partial matches to STRING in COLLECTION.