mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases 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
Show Stats 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"