Mercurial > emacs
changeset 17613:7dadfa677617
(set-variable): Simplify previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 May 1997 17:36:50 +0000 |
| parents | beaac591604a |
| children | da246ef7532c |
| files | lisp/simple.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu May 01 06:47:29 1997 +0000 +++ b/lisp/simple.el Thu May 01 17:36:50 1997 +0000 @@ -3035,13 +3035,10 @@ '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"