]> code.delx.au - gnu-emacs/blobdiff - lisp/wid-edit.el
Update AUCTeX
[gnu-emacs] / lisp / wid-edit.el
index a37f4871bebafe95557769e945fad7dfb1ad5b64..05ef4b95658831b0956d90fc62f5a12982ac34ab 100644 (file)
@@ -1144,7 +1144,7 @@ When not inside a field, move to the previous button or field."
       field)))
 
 (defun widget-field-buffer (widget)
-  "Return the start of WIDGET's editing field."
+  "Return the buffer of WIDGET's editing field."
   (let ((overlay (widget-get widget :field-overlay)))
     (cond ((overlayp overlay)
           (overlay-buffer overlay))
@@ -3153,6 +3153,8 @@ It will read a directory name from the minibuffer when invoked."
                (setq err "Empty sexp -- use `nil'?")
              (unless (widget-apply widget :match (read (current-buffer)))
                (setq err (widget-get widget :type-error))))
+           ;; Allow whitespace after expression.
+           (skip-syntax-forward "\\s-")
            (if (and (not (eobp))
                     (not err))
                (setq err (format "Junk at end of expression: %s"