(set_internal): Properly compare lisp objects.

[gnu-emacs] / src / print.c

diff --git a/src/print.c b/src/print.c
index 8bfefe0508c2217eca5017b3ffebf9606a1d62cd..49a0610860e7e6e873fe1f47ef83158a59def864 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -683,7 +683,7 @@ temp_output_buffer_setup (bufname)
 Lisp_Object
 internal_with_output_to_temp_buffer (bufname, function, args)
      char *bufname;
-     Lisp_Object (*function) ();
+     Lisp_Object (*function) P_ ((Lisp_Object));
      Lisp_Object args;
 {
   int count = specpdl_ptr - specpdl;