Fix last change.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 7e6a9a13f937cd95d025555ecf74c6221c53c28b..ce003e4ec7f37ff06d3100fb3e31536968b2e17e 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2534,7 +2534,8 @@ choose a font."
                      (font-face-attributes 
                       (if (eq choice 'x-select-font)
                           (x-select-font)
-                        (symbol-name choice))))))))))
+                        (symbol-name choice))))
+              (force-window-update (current-buffer))))))))
 
 \f
 ;;; Bindings for mouse commands.