diff --git a/src/sunfns.c b/src/sunfns.c
index 9110c5a9f26..5851d76206e 100644
--- a/src/sunfns.c
+++ b/src/sunfns.c
@@ -186,7 +186,7 @@ DEFUN ("update-display", Fupdate_display, Supdate_display, 0, 0, 0,
        "Perform redisplay.")
      ()
 {
-  DoDsp(1);
+  redisplay_preserving_echo_area ();
   return(Qt);
 }