3187 |
(setq err "Empty sexp -- use `nil'?") |
(setq err "Empty sexp -- use `nil'?") |
3188 |
(unless (widget-apply widget :match (read (current-buffer))) |
(unless (widget-apply widget :match (read (current-buffer))) |
3189 |
(setq err (widget-get widget :type-error)))) |
(setq err (widget-get widget :type-error)))) |
3190 |
|
;; Allow whitespace after expression. |
3191 |
|
(skip-syntax-forward "\\s-") |
3192 |
(if (and (not (eobp)) |
(if (and (not (eobp)) |
3193 |
(not err)) |
(not err)) |
3194 |
(setq err (format "Junk at end of expression: %s" |
(setq err (format "Junk at end of expression: %s" |