From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 4 Oct 2005 20:31:22 +0000 (+0000)
Subject: (widget-file-complete): Get the widget start point the right way.
X-Git-Tag: emacs-pretest-22.0.90~6818
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d315fc0fcb21be42278fc4184a68d5d749e2d537;p=emacs.git

(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 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)