Mercurial > emacs

comparison src/editfns.c @ 109859:68616bb3ae25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged from trunk
author Joakim <joakim@localhost.localdomain>
date Mon, 14 Jun 2010 11:48:51 +0200
parents 81d65beb3ea5
children 2bc9a0c04c87 0e4f6aed76c8
comparison
equal deleted inserted replaced
109858:73108272ef0b 109859:68616bb3ae25
1 /* Lisp functions pertaining to editing. 1 /* Lisp functions pertaining to editing.
2 Copyright (C) 1985, 1986, 1987, 1989, 1993, 1994, 1995, 1996, 2
3 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 3 Copyright (C) 1985, 1986, 1987, 1989, 1993, 1994, 1995, 1996, 1997,
4 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
5 2009, 2010 Free Software Foundation, Inc.
5 6
6 This file is part of GNU Emacs. 7 This file is part of GNU Emacs.
7 8
8 GNU Emacs is free software: you can redistribute it and/or modify 9 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by 10 it under the terms of the GNU General Public License as published by
216 217
217 CHECK_CHARACTER (character); 218 CHECK_CHARACTER (character);
218 219
219 len = CHAR_STRING (XFASTINT (character), str); 220 len = CHAR_STRING (XFASTINT (character), str);
220 return make_string_from_bytes (str, 1, len); 221 return make_string_from_bytes (str, 1, len);
222 }
223
224 DEFUN ("byte-to-string", Fbyte_to_string, Sbyte_to_string, 1, 1, 0,
225 doc: /* Convert arg BYTE to a string containing that byte. */)
226 (byte)
227 Lisp_Object byte;
228 {
229 unsigned char b;
230 CHECK_NUMBER (byte);
231 b = XINT (byte);
232 return make_string_from_bytes (&b, 1, 1);
221 } 233 }
222 234
223 DEFUN ("string-to-char", Fstring_to_char, Sstring_to_char, 1, 1, 0, 235 DEFUN ("string-to-char", Fstring_to_char, Sstring_to_char, 1, 1, 0,
224 doc: /* Convert arg STRING to a character, the first character of that string. 236 doc: /* Convert arg STRING to a character, the first character of that string.
225 A multibyte character is handled correctly. */) 237 A multibyte character is handled correctly. */)
4684 defsubr (&Spropertize); 4696 defsubr (&Spropertize);
4685 defsubr (&Schar_equal); 4697 defsubr (&Schar_equal);
4686 defsubr (&Sgoto_char); 4698 defsubr (&Sgoto_char);
4687 defsubr (&Sstring_to_char); 4699 defsubr (&Sstring_to_char);
4688 defsubr (&Schar_to_string); 4700 defsubr (&Schar_to_string);
4701 defsubr (&Sbyte_to_string);
4689 defsubr (&Sbuffer_substring); 4702 defsubr (&Sbuffer_substring);
4690 defsubr (&Sbuffer_substring_no_properties); 4703 defsubr (&Sbuffer_substring_no_properties);
4691 defsubr (&Sbuffer_string); 4704 defsubr (&Sbuffer_string);
4692 4705
4693 defsubr (&Spoint_marker); 4706 defsubr (&Spoint_marker);