Mercurial > emacs
comparison lisp/simple.el @ 38432:4bbb59858499
(set-variable): Require 'cus-edit' instead of
`wid-edit', so that the Custom widgets get defined.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 16 Jul 2001 11:52:56 +0000 |
parents | a18180dc7aa1 |
children | 08dafe901c44 |
comparison
equal
deleted
inserted
replaced
38431:853c3674f20a | 38432:4bbb59858499 |
---|---|
3528 (list var val))) | 3528 (list var val))) |
3529 | 3529 |
3530 (let ((type (get var 'custom-type))) | 3530 (let ((type (get var 'custom-type))) |
3531 (when type | 3531 (when type |
3532 ;; Match with custom type. | 3532 ;; Match with custom type. |
3533 (require 'wid-edit) | 3533 (require 'cus-edit) |
3534 (setq type (widget-convert type)) | 3534 (setq type (widget-convert type)) |
3535 (unless (widget-apply type :match val) | 3535 (unless (widget-apply type :match val) |
3536 (error "Value `%S' does not match type %S of %S" | 3536 (error "Value `%S' does not match type %S of %S" |
3537 val (car type) var)))) | 3537 val (car type) var)))) |
3538 (set var val) | 3538 (set var val) |