(widget-file-complete): Get the widget start point the right way.

Default directory to `/' if file has none.

2 files changed, 29 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe0e1a74c9a..1137e1dac54 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,27 @@
+2005-10-04  Richard M. Stallman  <rms@gnu.org>
+
+        * wid-edit.el (widget-file-complete): Get the widget start point
+        the right way.  Default directory to `/' if file has none.
+
+        * x-dnd.el (x-dnd-drop-data): Check for dedicated windows.
+
+        * textmodes/flyspell.el (flyspell-mode-on):
+        Call ispell-maybe-find-aspell-dictionaries.
+
+        * textmodes/ispell.el (ispell-word, ispell-region):
+        Call ispell-maybe-find-aspell-dictionaries.
+        (ispell-accept-buffer-local-defs):
+        Don't call ispell-maybe-find-aspell-dictionaries
+        
+2005-10-04  Richard M. Stallman  <rms@gnu.org>
+
+        * iswitchb.el (iswitchb-buffer-ignore): Label it risky.
+
+2005-10-04  Emilio C. Lopes  <eclig@gmx.net>
+
+        * iswitchb.el (iswitchb-ignore-buffername-p): Use `functionp'
+        instead of `fboundp' in order to allow for anonymous functions.
+
 2005-10-04  Chong Yidong  <cyd@stupidchicken.com>
 
         * info.el (Info-next, Info-prev, Info-up): Select info buffer, in
@@ -50,6 +74,7 @@
 
         * ido.el (ido-mode): Use custom-initialize-set.
 
+>>>>>>> 1.8276
 2005-10-02  Richard M. Stallman  <rms@gnu.org>
 
         * progmodes/ebnf2ps.el (ebnf-eps-production-list):
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 55e50b7faec..bcaa1318fdf 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2991,12 +2991,12 @@ It will read a file name from the minibuffer when invoked."
   "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)