Commit f8496faa authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(set-variable): Simplify previous change.

parent 888eb98e
......@@ -3035,13 +3035,10 @@ in the definition is used to check that VALUE is valid."
'set-variable-value-history)))))
(list var val)))
(let ((type (get var 'custom-type))
widget)
(let ((type (get var 'custom-type)))
(when type
;; Match with custom type.
(require 'wid-edit)
(unless (listp type)
(setq widget (list type)))
(setq type (widget-convert type))
(unless (widget-apply type :match val)
(error "Value `%S' does not match type %S of %S"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment