# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 979139401 0
# Node ID dcf1f0621dbb26c31cfbbe8baaada3a59870cb8d
# Parent  6e2eb31f08680b4cc97b7ebe67b25851a35a8476
(set-variable): Force a thorough redisplay for the
case that the variable has an effect on the display, like
`tab-width' has.

diff -r 6e2eb31f0868 -r dcf1f0621dbb lisp/simple.el
--- a/lisp/simple.el	Wed Jan 10 14:45:48 2001 +0000
+++ b/lisp/simple.el	Wed Jan 10 15:10:01 2001 +0000
@@ -3491,7 +3491,11 @@
       (unless (widget-apply type :match val)
 	(error "Value `%S' does not match type %S of %S"
 	       val (car type) var))))
-  (set var val))
+  (set var val)
+
+  ;; Force a thorough redisplay for the case that the variable
+  ;; has an effect on the display, like `tab-width' has.
+  (force-mode-line-update))
 
 ;; Define the major mode for lists of completions.