X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/fe8c7212711d93d339a08abd64ffc357e9d5aff7..052ca4d1d2fffca52c6e69c4f8cd480ca547463e:/lisp/locate.el

diff --git a/lisp/locate.el b/lisp/locate.el
index 6d5967a575..eb8074c9f6 100644
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -200,7 +200,7 @@ With prefix arg, prompt for the locate command to run."
 		       (+ 2 (length (car locate-cmd))))
 	      nil nil 'locate-history-list))
 	 (let* ((default (locate-word-at-point))
-	       (input 
+	       (input
 		(read-from-minibuffer
 		 (if  (> (length default) 0)
 		     (format "Locate (default `%s'): " default)
@@ -210,7 +210,7 @@ With prefix arg, prompt for the locate command to run."
 		    (setq input default))
 	       input))))
   (if (equal search-string "")
-      (error "Please specify a filename to search for."))
+      (error "Please specify a filename to search for"))
   (let* ((locate-cmd-list (funcall locate-make-command-line search-string))
 	 (locate-cmd (car locate-cmd-list))
 	 (locate-cmd-args (cdr locate-cmd-list))
@@ -240,6 +240,7 @@ With prefix arg, prompt for the locate command to run."
 	(switch-to-buffer-other-window locate-buffer-name))
 
     (run-hooks 'dired-mode-hook)
+    (dired-next-line 2)			;move to first matching file.
     (run-hooks 'locate-post-command-hook)
     )
   )
@@ -515,4 +516,5 @@ Database is updated using the shell command in `locate-update-command'."
 
 (provide 'locate)
 
+;;; arch-tag: 60c4d098-b5d5-4b3c-a3e0-51a2e9f43898
 ;;; locate.el ends here