Re: Can't use file name completion in Customize for "Program Files" subdir

[Richard M. Stallman]

    The problem seems to be these lines near the top of
    widget-complete-file

    (beg (save-excursion
                    (skip-chars-backward "^ ")
                    (point)))

    Are there actually situations where files are listed in custom
    variables with space seperators? Or is this code attempting to find
    the beginning of the widget? If the latter, there must be a better way
    to do that.

This change works when I try it.  Does it work for you?

*** wid-edit.el 24 Sep 2005 22:42:50 -0400      1.146
--- wid-edit.el 03 Oct 2005 00:50:32 -0400      
***************
*** 2991,2999 ****
    "Perform completion on file name preceding point."
    (interactive)
    (let* ((end (point))
!        (beg (save-excursion
!               (skip-chars-backward "^ ")
!               (point)))
         (pattern (buffer-substring beg end))
         (name-part (file-name-nondirectory pattern))
         (directory (file-name-directory pattern))
--- 2991,2997 ----
    "Perform completion on file name preceding point."
    (interactive)
    (let* ((end (point))
!        (beg (widget-field-start widget))
         (pattern (buffer-substring beg end))
         (name-part (file-name-nondirectory pattern))
         (directory (file-name-directory pattern))