/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.119.2.4 by miles, Sun Jul 11 22:07:45 2004 UTC revision 1.119.2.5 by miles, Tue Aug 10 07:46:38 2004 UTC
# Line 3187  It will read a directory name from the m Line 3187  It will read a directory name from the m
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"

Legend:
Removed from v.1.119.2.4  
changed lines
  Added in v.1.119.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26