From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 May 1997 17:36:50 +0000 (+0000)
Subject: (set-variable): Simplify previous change.
X-Git-Tag: emacs-20.1~2332
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8496faab640a7f290e0f64cd30bee60c2ed136d;p=emacs.git

(set-variable): Simplify previous change.
---

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"