From 96c1776c805bfa6d4786d2a9c7736226303b0b62 Mon Sep 17 00:00:00 2001 From: Peter Breton Date: Thu, 30 Mar 2000 09:33:17 +0000 Subject: 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 --- lisp/locate.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/locate.el b/lisp/locate.el index 7d044d03a0..410f745bb7 100644 --- a/lisp/locate.el +++ b/lisp/locate.el @@ -170,6 +170,17 @@ Otherwise, that behavior is invoked via a prefix argument." (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 @@ With prefix arg, prompt for the locate command to run." (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 @@ With prefix arg, prompt for the locate command to run." (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) ) ) -- cgit v1.2.3