diff src/fns.c @ 5360:46b53e84ea7a

#'substring-no-properties: check STRING's type, get_string_range_char won't. src/ChangeLog addition: 2011-02-24 Aidan Kehoe <kehoea@parhasard.net> * fns.c (Fsubstring_no_properties): Sigh, get_string_range_char checks the type of its START and END arguments, but doesn't check the type of its STRING argument. Thank you Raymond Toy! tests/ChangeLog addition: 2011-02-24 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el (substring-no-properties): Make sure this function checks its arguments' types, the absence of which was revealed by Raymond Toy's bug report of http://mid.gmane.org/4D65D413.5050103@gmail.com .
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 24 Feb 2011 09:36:19 +0000
parents f5a5501814f5
children d967d96ca043
line wrap: on
line diff
--- a/src/fns.c	Sat Feb 19 11:03:46 2011 +0000
+++ b/src/fns.c	Thu Feb 24 09:36:19 2011 +0000
@@ -2095,6 +2095,7 @@
   Bytecount bstart, blen;
   Lisp_Object val;
 
+  CHECK_STRING (string);
   get_string_range_char (string, start, end, &ccstart, &ccend,
                          GB_HISTORICAL_STRING_BEHAVIOR);
   bstart = string_index_char_to_byte (string, ccstart);