# HG changeset patch # User Glenn Morris # Date 1288594549 25200 # Node ID 9c78ac7dcdf088c09feb734209d47d77cb085882 # Parent 83594fbec156250501f41b847741b859afc5a8c2 * lisp/locate.el (locate, locate-mode): Doc fixes. diff -r 83594fbec156 -r 9c78ac7dcdf0 lisp/ChangeLog --- a/lisp/ChangeLog Sun Oct 31 23:35:06 2010 -0400 +++ b/lisp/ChangeLog Sun Oct 31 23:55:49 2010 -0700 @@ -1,3 +1,7 @@ +2010-11-01 Glenn Morris + + * locate.el (locate, locate-mode): Doc fixes. + 2010-11-01 Chong Yidong * server.el (server-start): New arg INHIBIT-PROMPT prevents asking diff -r 83594fbec156 -r 9c78ac7dcdf0 lisp/locate.el --- a/lisp/locate.el Sun Oct 31 23:35:06 2010 -0400 +++ b/lisp/locate.el Sun Oct 31 23:55:49 2010 -0700 @@ -270,7 +270,7 @@ (defun locate (search-string &optional filter arg) "Run the program `locate', putting results in `*Locate*' buffer. Pass it SEARCH-STRING as argument. Interactively, prompt for SEARCH-STRING. -With prefix arg, prompt for the exact shell command to run instead. +With prefix arg ARG, prompt for the exact shell command to run instead. This program searches for those file names in a database that match SEARCH-STRING and normally outputs all matching absolute file names, @@ -286,7 +286,8 @@ The main use of FILTER is to implement `locate-with-filter'. See the docstring of that function for its meaning. -ARG is the interactive prefix arg." +After preparing the results buffer, this runs `dired-mode-hook' and +then `locate-post-command-hook'." (interactive (list (locate-prompt-for-search-string) @@ -300,8 +301,7 @@ (locate-cmd-args (cdr locate-cmd-list)) (run-locate-command (or (and arg (not locate-prompt-for-command)) - (and (not arg) locate-prompt-for-command))) - ) + (and (not arg) locate-prompt-for-command)))) ;; Find the Locate buffer (save-window-excursion @@ -323,16 +323,13 @@ (and filter (locate-filter-output filter)) - (locate-do-setup search-string) - )) + (locate-do-setup search-string))) (and (not (string-equal (buffer-name) locate-buffer-name)) (switch-to-buffer-other-window locate-buffer-name)) (run-hooks 'dired-mode-hook) (dired-next-line 3) ;move to first matching file. - (run-hooks 'locate-post-command-hook) - ) - ) + (run-hooks 'locate-post-command-hook))) ;;;###autoload (defun locate-with-filter (search-string filter &optional arg) @@ -447,6 +444,7 @@ \\\ In that buffer, you can use almost all the usual dired bindings. \\[locate-find-directory] visits the directory of the file on the current line. +This function runs `locate-mode-hook' before returning. Operating on listed files works, but does not always automatically update the buffer as in ordinary Dired. @@ -687,5 +685,4 @@ (provide 'locate) -;; arch-tag: 60c4d098-b5d5-4b3c-a3e0-51a2e9f43898 ;;; locate.el ends here