diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-20 07:11:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-20 07:11:00 +0000 |
| commit | 880dd36f1d27cfb08d89b351f2890d78a09cbc96 (patch) | |
| tree | 2b6660a5ff956c1a964cd656cdbc3f83b99376fd | |
| parent | 6375e8d9925860f8ee4c42462c21a7b3e2e96c3f (diff) | |
| download | emacs-880dd36f1d27cfb08d89b351f2890d78a09cbc96.tar.gz | |
(widget-alist-convert-option): Delete spurious comma.
(widget-plist-convert-option): Delete spurious comma.
| -rw-r--r-- | lisp/wid-edit.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 232c2f8deb0..d7cf8cd210b 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3324,7 +3324,7 @@ To use this type, you must define :match or :match-alternatives." (let ((key (nth 0 option))) (setq value-type (nth 1 option)) (if (listp key) - (setq key-type ,key) + (setq key-type key) (setq key-type `(const ,key)))) (setq key-type `(const ,option) value-type widget-plist-value-type)) @@ -3370,7 +3370,7 @@ To use this type, you must define :match or :match-alternatives." (let ((key (nth 0 option))) (setq value-type (nth 1 option)) (if (listp key) - (setq key-type ,key) + (setq key-type key) (setq key-type `(const ,key)))) (setq key-type `(const ,option) value-type widget-alist-value-type)) |