Mercurial > emacs
comparison lisp/simple.el @ 35203:dcf1f0621dbb
(set-variable): Force a thorough redisplay for the
case that the variable has an effect on the display, like
`tab-width' has.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 10 Jan 2001 15:10:01 +0000 |
| parents | 421a33797ea8 |
| children | 9c153544050c |
comparison
equal
deleted
inserted
replaced
| 35202:6e2eb31f0868 | 35203:dcf1f0621dbb |
|---|---|
| 3489 (require 'wid-edit) | 3489 (require 'wid-edit) |
| 3490 (setq type (widget-convert type)) | 3490 (setq type (widget-convert type)) |
| 3491 (unless (widget-apply type :match val) | 3491 (unless (widget-apply type :match val) |
| 3492 (error "Value `%S' does not match type %S of %S" | 3492 (error "Value `%S' does not match type %S of %S" |
| 3493 val (car type) var)))) | 3493 val (car type) var)))) |
| 3494 (set var val)) | 3494 (set var val) |
| 3495 | |
| 3496 ;; Force a thorough redisplay for the case that the variable | |
| 3497 ;; has an effect on the display, like `tab-width' has. | |
| 3498 (force-mode-line-update)) | |
| 3495 | 3499 |
| 3496 ;; Define the major mode for lists of completions. | 3500 ;; Define the major mode for lists of completions. |
| 3497 | 3501 |
| 3498 (defvar completion-list-mode-map nil | 3502 (defvar completion-list-mode-map nil |
| 3499 "Local map for completion list buffers.") | 3503 "Local map for completion list buffers.") |