Mercurial > emacs
comparison src/minibuf.c @ 21529:8c50610fbb99
(Fself_insert_and_exit): Fix mixing of Lisp_Object and
int.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Tue, 14 Apr 1998 13:03:30 +0000 |
| parents | 50929073a0ba |
| children | 79703e781c0a |
comparison
equal
deleted
inserted
replaced
| 21528:cabecb23d48c | 21529:8c50610fbb99 |
|---|---|
| 1911 DEFUN ("self-insert-and-exit", Fself_insert_and_exit, Sself_insert_and_exit, 0, 0, "", | 1911 DEFUN ("self-insert-and-exit", Fself_insert_and_exit, Sself_insert_and_exit, 0, 0, "", |
| 1912 "Terminate minibuffer input.") | 1912 "Terminate minibuffer input.") |
| 1913 () | 1913 () |
| 1914 { | 1914 { |
| 1915 if (INTEGERP (last_command_char)) | 1915 if (INTEGERP (last_command_char)) |
| 1916 internal_self_insert (last_command_char, 0); | 1916 internal_self_insert (XINT (last_command_char), 0); |
| 1917 else | 1917 else |
| 1918 bitch_at_user (); | 1918 bitch_at_user (); |
| 1919 | 1919 |
| 1920 Fthrow (Qexit, Qnil); | 1920 Fthrow (Qexit, Qnil); |
| 1921 } | 1921 } |