# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1128457873 0
# Node ID 3a0debccbfeabec9d80dd554ee8d25ce1a2fb208
# Parent  c502b2c18f4715130324354dfaabfcd7de821206
(widget-file-complete): Get the widget start point the right way.
Default directory to `/' if file has none.

diff -r c502b2c18f47 -r 3a0debccbfea lisp/wid-edit.el
--- a/lisp/wid-edit.el	Tue Oct 04 20:29:50 2005 +0000
+++ b/lisp/wid-edit.el	Tue Oct 04 20:31:13 2005 +0000
@@ -2991,12 +2991,12 @@
   "Perform completion on file name preceding point."
   (interactive)
   (let* ((end (point))
-	 (beg (save-excursion
-		(skip-chars-backward "^ ")
-		(point)))
+	 (beg (widget-field-start widget))
 	 (pattern (buffer-substring beg end))
 	 (name-part (file-name-nondirectory pattern))
-	 (directory (file-name-directory pattern))
+	 ;; I think defaulting to root is right
+	 ;; because these really should be absolute file names.
+	 (directory (or (file-name-directory pattern) "/"))
 	 (completion (file-name-completion name-part directory)))
     (cond ((eq completion t))
 	  ((null completion)