comparison src/console-x.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 2ade80e8c640
children 308d34e9f07d
comparison
equal deleted inserted replaced
5088:207dad9e74f7 5089:99f8ebc082d9
238 { 238 {
239 int hostname_length, display_length, screen_length; 239 int hostname_length, display_length, screen_length;
240 240
241 split_up_display_spec (connection, &hostname_length, &display_length, 241 split_up_display_spec (connection, &hostname_length, &display_length,
242 &screen_length); 242 &screen_length);
243 hostname = Fsubstring (connection, Qzero, make_int (hostname_length)); 243 hostname = Fsubseq (connection, Qzero, make_int (hostname_length));
244 hostname = canonicalize_host_name (hostname); 244 hostname = canonicalize_host_name (hostname);
245 connection = concat2 (hostname, 245 connection = concat2 (hostname,
246 make_string (XSTRING_DATA (connection) 246 make_string (XSTRING_DATA (connection)
247 + hostname_length, display_length)); 247 + hostname_length, display_length));
248 } 248 }