From f8496faab640a7f290e0f64cd30bee60c2ed136d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 May 1997 17:36:50 +0000 Subject: [PATCH] (set-variable): Simplify previous change. --- lisp/simple.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 2d8cffe9c52..eb49bdd7d58 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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" -- 2.39.5