patch for locate.el when called with prefix arg

[Francesco Potorti`]

Calling C-u M-x locate RET gives no results, whatever the command line.

A bug was apparently introduced in locate.el, but I did not check when
and why.  I found the problem in 22.0.96, but, by looking at the source,
it is still there in 22.0.98.

Here is a patch and Changelog entry:

2007-04-20  Francesco Potort=8ec  <address@hidden>

        * locate.el (locate): Output from shell-command should go in the
        current buffer rather than *Shell Command Output*.


--- /home/pot/gnu/emacs-22.0.96/lisp/locate.el~ 2007-01-21 04:53:11.000000000 
+0100
+++ /home/pot/gnu/emacs-22.0.96/lisp/locate.el  2007-04-20 13:40:35.000000000 
+0200
@@ -310,7 +310,7 @@ the docstring of that function for its m
         (set (make-local-variable 'locate-current-filter) filter)
 
         (if run-locate-command
-            (shell-command search-string)
+            (shell-command search-string (current-buffer))
           (apply 'call-process locate-cmd nil t nil locate-cmd-args))
 
         (and filter

Diff finished.  Fri Apr 20 13:40:55 2007


================================================================
In GNU Emacs 22.0.96.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.8.20)
 of 2007-04-02 on tucano.isti.cnr.it
configured using `configure  '--with-gtk''

Important settings:
  value of $LC_ALL: C
  value of $LC_COLLATE: address@hidden
  value of $LC_CTYPE: address@hidden
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: C
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Diff

Minor modes in effect:
  display-time-mode: t
  shell-dirtrack-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t

Recent input:
x ESC O A RET - i SPC e i f f e l RET c C-x b * S h 
e TAB RET C-c C-g C-x k RET ESC O B C-h f RET ESC O 
C ESC O C ESC O C ESC O C ESC O C ESC O C ESC O C C-h 
f RET ESC O A ESC O A ESC O A C-a C-k ESC O B ESC O 
B C-e ESC O D SPC ( c u r r e n t - b u f f e r ) ESC 
O D ESC O D C-h f C-g C-h v C-g C-h f RET ESC O A ESC 
O A ESC C-x C-u ESC x l o c a t e RET - i SPC E I F 
F E L RET RET n C-x k RET q C-x 0 C-x C-s ESC x b y 
t e SPC c o m RET RET C-x C-j ESC O B ESC O B C-@ ESC 
O A ESC O A = RET C-x k RET C-x C-v ESC O D ESC O D 
ESC O D ESC O D ESC O D ESC O D DEL 8 RET ESC x r e 
v e r t RET y e s RET C-s s h e l l - c o m m RET C-x 
k RET C-x k RET C-x o C-x h ESC w ESC x r e p o TAB 
ESC DEL C-g C-h a p r e t e s t RET C-x 4 m C-u ESC 
x r m a RET M a i SPC DEL TAB C-g C-x o ESC x r e p 
o r t SPC e m a c s SPC b u SPC RET

Recent messages:
Compiling /home/pot/gnu/emacs-22.0.96/lisp/locate.el...done
Wrote /home/pot/gnu/emacs-22.0.96/lisp/locate.elc
Mark set
Loading diff-mode...done
Use M-x make-directory RET RET to create the directory and its parents
Mark saved where search started
Mark set [2 times]
Making completion list...
Quit
No apropos matches for `pretest'
Quit