mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-11 18:31:17 -08:00
Code Issues Projects Releases Wiki Activity

(set-variable): Simplify previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-01 17:36:50 +00:00
parent 888eb98e2f
commit f8496faab6
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/simple.el
View file

@ -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"