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

Default directory to `/' if file has none.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe0e1a74c9a53f72d764b84253dfe4dbdca68475..1137e1dac54ab2dd925bbc49bf9575e1ee598722 100644 (file)
--- 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 55e50b7faec6516b17f793b2a17b6719c54f3179..bcaa1318fdf10f1e35d0321380bb4216af4397b0 100644 (file)
--- 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)