(locate-current-search): New variable.

(locate): Set buffer local value.  Use current buffer if it is in Locate mode.
(locate-mode): Disable undo here.
(locate-do-setup): Use locate-current-filter from buffer to be killed.
(locate-update): Use locate-current-search and locate-current-filter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c5c97d195a7cee408517f18fe8551d403182e9f..7f7c3c747a0c8396f25a1b951b880124c74c6d2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2006-09-09  Matt Hodges  <MPHodges@member.fsf.org>
+
+       * locate.el (locate-current-search): New variable.
+       (locate): Set buffer local value.  Use current buffer if it is
+       in Locate mode.
+       (locate-mode): Disable undo here.
+       (locate-do-setup): Use locate-current-filter from buffer to be
+       killed. 
+       (locate-update): Use locate-current-search and
+       locate-current-filter.
+
 2006-09-08  David Kastrup  <dak@gnu.org>
 
        * desktop.el (desktop-read): when loading a desktop, disable

diff --git a/lisp/locate.el b/lisp/locate.el
index 5df695d59b97f768c55a97a74e8e35a92293f911..9cf37e89ee17b7a24fe29dd7096abb8f70b866a1 100644 (file)
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -114,6 +114,7 @@
 
 ;; Variables
 
+(defvar locate-current-search nil)
 (defvar locate-current-filter nil)
 
 (defgroup locate nil
@@ -289,29 +290,36 @@ the docstring of that function for its meaning."
         (run-locate-command
          (or (and current-prefix-arg (not locate-prompt-for-command))
              (and (not current-prefix-arg) locate-prompt-for-command)))
+         locate-buffer
         )
 
     ;; Find the Locate buffer
-    (save-window-excursion
-      (set-buffer (get-buffer-create locate-buffer-name))
+    (setq locate-buffer (if (eq major-mode 'locate-mode)
+                            (current-buffer)
+                          (get-buffer-create locate-buffer-name)))
+
+    (save-excursion
+      (set-buffer locate-buffer)
       (locate-mode)
+
       (let ((inhibit-read-only t)
-           (buffer-undo-list t))
-       (erase-buffer)
+            (buffer-undo-list t))
+        (erase-buffer)
+
+        (set (make-local-variable 'locate-current-search) search-string)
+        (set (make-local-variable 'locate-current-filter) filter)
 
-       (setq locate-current-filter filter)
+        (if run-locate-command
+            (shell-command search-string)
+          (apply 'call-process locate-cmd nil t nil locate-cmd-args))
 
-       (if run-locate-command
-           (shell-command search-string locate-buffer-name)
-         (apply 'call-process locate-cmd nil t nil locate-cmd-args))
+        (and filter
+             (locate-filter-output filter))
 
-       (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))
+    (unless (eq (current-buffer) locate-buffer)
+      (switch-to-buffer-other-window locate-buffer))
 
     (run-hooks 'dired-mode-hook)
     (dired-next-line 3)                        ;move to first matching file.
@@ -461,6 +469,7 @@ do not work in subdirectories.
         default-directory   "/"
        buffer-read-only    t
        selective-display   t)
+  (buffer-disable-undo)
   (dired-alist-add-1 default-directory (point-min-marker))
   (set (make-local-variable 'dired-directory) "/")
   (set (make-local-variable 'dired-subdir-switches) locate-ls-subdir-switches)
@@ -492,11 +501,12 @@ do not work in subdirectories.
     ;; Nothing returned from locate command?
     (and (eobp)
         (progn
-          (kill-buffer locate-buffer-name)
-          (if locate-current-filter
-              (error "Locate: no match for %s in database using filter %s"
-                     search-string locate-current-filter)
-            (error "Locate: no match for %s in database" search-string))))
+           (let ((filter locate-current-filter)) ; local
+             (kill-buffer (current-buffer))
+             (if filter
+                 (error "Locate: no match for %s in database using filter %s"
+                        search-string filter)
+               (error "Locate: no match for %s in database" search-string)))))
 
     (locate-insert-header search-string)
 
@@ -580,15 +590,14 @@ do not work in subdirectories.
   "Revert the *Locate* buffer.
 If `locate-update-when-revert' is non-nil, offer to update the
 locate database using the shell command in `locate-update-command'."
-  (let ((str (car locate-history-list)))
-    (and locate-update-when-revert
-        (yes-or-no-p "Update locate database (may take a few seconds)? ")
-        ;; `expand-file-name' is used in order to autoload Tramp if
-        ;; necessary.  It cannot be loaded when `default-directory'
-        ;; is remote.
-        (let ((default-directory (expand-file-name locate-update-path)))
-          (shell-command locate-update-command)))
-    (locate str)))
+  (and locate-update-when-revert
+       (yes-or-no-p "Update locate database (may take a few seconds)? ")
+       ;; `expand-file-name' is used in order to autoload Tramp if
+       ;; necessary.  It cannot be loaded when `default-directory'
+       ;; is remote.
+       (let ((default-directory (expand-file-name locate-update-path)))
+         (shell-command locate-update-command)))
+  (locate locate-current-search locate-current-filter))
 
 ;;; Modified three functions from `dired.el':
 ;;;   dired-find-directory,