aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorKenichi Handa1999-12-15 00:15:57 +0000
committerKenichi Handa1999-12-15 00:15:57 +0000
commit0a16479ffe53ff94f987f658018330fedc6ab07c (patch)
treedadc73210a0d86c43e68369c71ee8d46121b1625 /src/keymap.c
parentadf5cb9c38bbe5605720a139a5d1a2cfcdb1831f (diff)
downloademacs-0a16479ffe53ff94f987f658018330fedc6ab07c.tar.gz
emacs-0a16479ffe53ff94f987f658018330fedc6ab07c.zip
(push_key_description): Adjusted for the change of
CHAR_STRING. (Ftext_char_description): Likewise.
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c19
1 files changed, 9 insertions, 10 deletions
diff --git a/src/keymap.c b/src/keymap.c
index 5070fc1d1c8..4b7c6c2a4a0 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1903,10 +1903,7 @@ push_key_description (c, p)
1903 } 1903 }
1904 else 1904 else
1905 { 1905 {
1906 unsigned char work[4], *str; 1906 p += CHAR_STRING (c, p);
1907 int i = CHAR_STRING (c, work, str);
1908 bcopy (str, p, i);
1909 p += i;
1910 } 1907 }
1911 } 1908 }
1912 1909
@@ -1997,21 +1994,23 @@ Control characters turn into \"^char\", etc.")
1997 (character) 1994 (character)
1998 Lisp_Object character; 1995 Lisp_Object character;
1999{ 1996{
2000 char tem[6]; 1997 /* Currently MAX_MULTIBYTE_LENGTH is 4 (< 6). */
1998 unsigned char str[6];
1999 int c;
2001 2000
2002 CHECK_NUMBER (character, 0); 2001 CHECK_NUMBER (character, 0);
2003 2002
2004 if (!SINGLE_BYTE_CHAR_P (XFASTINT (character))) 2003 c = XINT (character);
2004 if (!SINGLE_BYTE_CHAR_P (c))
2005 { 2005 {
2006 unsigned char *str; 2006 int len = CHAR_STRING (c, str);
2007 int len = non_ascii_char_to_string (XFASTINT (character), tem, &str);
2008 2007
2009 return make_multibyte_string (str, 1, len); 2008 return make_multibyte_string (str, 1, len);
2010 } 2009 }
2011 2010
2012 *push_text_char_description (XINT (character) & 0377, tem) = 0; 2011 *push_text_char_description (c & 0377, str) = 0;
2013 2012
2014 return build_string (tem); 2013 return build_string (str);
2015} 2014}
2016 2015
2017/* Return non-zero if SEQ contains only ASCII characters, perhaps with 2016/* Return non-zero if SEQ contains only ASCII characters, perhaps with