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 } |