Mercurial > hg > xemacs-beta

comparison src/editfns.c @ 2828:a25c824ed558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-06-26 18:04:49 by aidan] Rename the ascii-character property, support more keysyms.
author aidan
date Sun, 26 Jun 2005 18:05:05 +0000
parents ab71ad6ff3dd
children b95fe16005fd
comparison
equal deleted inserted replaced
2827:936a6576c655 2828:a25c824ed558
108 Bytecount len; 108 Bytecount len;
109 Ibyte str[MAX_ICHAR_LEN]; 109 Ibyte str[MAX_ICHAR_LEN];
110 110
111 if (EVENTP (character)) 111 if (EVENTP (character))
112 { 112 {
113 Lisp_Object ch2 = Fevent_to_character (character, Qt, Qnil, Qnil); 113 Lisp_Object ch2 = Fevent_to_character (character, Qt, Qnil);
114 if (NILP (ch2)) 114 if (NILP (ch2))
115 invalid_argument 115 invalid_argument
116 ("character has no ASCII equivalent:", Fcopy_event (character, Qnil)); 116 ("key has no character equivalent:", Fcopy_event (character, Qnil));
117 character = ch2; 117 character = ch2;
118 } 118 }
119 119
120 CHECK_CHAR_COERCE_INT (character); 120 CHECK_CHAR_COERCE_INT (character);
121 121