# HG changeset patch
# User Peter Breton <pbreton@attbi.com>
# Date 954408797 0
# Node ID abd1f2362ae0c89f79c42d90ead219d4f51a4e7d
# Parent  1a817fd04b3168a4e655748d7e88be31d31d20a8
Add locate-word-at-point function
In locate function, default to using locate-word-at-point as input
Run dired-mode-hook in locate function

diff -r 1a817fd04b31 -r abd1f2362ae0 lisp/locate.el
--- a/lisp/locate.el	Thu Mar 30 09:32:14 2000 +0000
+++ b/lisp/locate.el	Thu Mar 30 09:33:17 2000 +0000
@@ -170,6 +170,17 @@
 (defun locate-default-make-command-line (search-string)
   (list locate-command search-string))
 
+(defun locate-word-at-point ()
+  (let ((pt (point)))
+    (buffer-substring-no-properties
+     (save-excursion
+       (skip-chars-backward "-a-zA-Z0-9.")
+       (point))
+     (save-excursion
+       (skip-chars-forward "-a-zA-Z0-9.")
+       (skip-chars-backward "." pt)
+       (point)))))
+
 ;;;###autoload
 (defun locate (arg search-string &optional filter)
   "Run the program `locate', putting results in `*Locate*' buffer.
@@ -181,7 +192,7 @@
 	       (and (not current-prefix-arg) locate-prompt-for-command))
 	   (read-from-minibuffer "Run locate command: "
 				 nil nil nil 'locate-history-list)
-	 (read-from-minibuffer "Locate: " nil nil
+	 (read-from-minibuffer "Locate: " (locate-word-at-point) nil
 			       nil 'locate-history-list)
 	 )))
   (let* ((locate-cmd-list (funcall locate-make-command-line search-string))
@@ -212,6 +223,7 @@
     (and (not (string-equal (buffer-name) locate-buffer-name))
 	(switch-to-buffer-other-window locate-buffer-name))
 
+    (run-hooks 'dired-mode-hook)
     (run-hooks 'locate-post-command-hook)
     )
   )