diff options
| author | Richard M. Stallman | 1997-05-01 17:36:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-01 17:36:50 +0000 |
| commit | f8496faab640a7f290e0f64cd30bee60c2ed136d (patch) | |
| tree | 59359bd989a8509a419720778ed057b970099d55 | |
| parent | 888eb98e2fa5bed7793f53877feb72fabc415be4 (diff) | |
| download | emacs-f8496faab640a7f290e0f64cd30bee60c2ed136d.tar.gz emacs-f8496faab640a7f290e0f64cd30bee60c2ed136d.zip | |
(set-variable): Simplify previous change.
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 1 insertions, 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." | |||
| 3035 | 'set-variable-value-history))))) | 3035 | 'set-variable-value-history))))) |
| 3036 | (list var val))) | 3036 | (list var val))) |
| 3037 | 3037 | ||
| 3038 | (let ((type (get var 'custom-type)) | 3038 | (let ((type (get var 'custom-type))) |
| 3039 | widget) | ||
| 3040 | (when type | 3039 | (when type |
| 3041 | ;; Match with custom type. | 3040 | ;; Match with custom type. |
| 3042 | (require 'wid-edit) | 3041 | (require 'wid-edit) |
| 3043 | (unless (listp type) | ||
| 3044 | (setq widget (list type))) | ||
| 3045 | (setq type (widget-convert type)) | 3042 | (setq type (widget-convert type)) |
| 3046 | (unless (widget-apply type :match val) | 3043 | (unless (widget-apply type :match val) |
| 3047 | (error "Value `%S' does not match type %S of %S" | 3044 | (error "Value `%S' does not match type %S of %S" |