(grep-compute-defaults):

Don't mix up defaults for different connections to the same host.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41308840b0ba1be3d565435d0dc71184741b560e..9e27ef462a6dfea284026df3bc10eb108fa29bb3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-01  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/grep.el (grep-compute-defaults):
+       Don't mix up defaults for different connections to the same host.
+
 2008-01-31  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
        * blank-mode.el: Renamed to whitespace.el.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index e3ddb392582b12693c1261fcd25449e705d6a8ea..0c7cb358f4a8135a3a99a2d0a2eac34a3f1b26fd 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -408,7 +408,7 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
             (grep-find-use-xargs ,grep-find-use-xargs)
             (grep-highlight-matches ,grep-highlight-matches)))))
   (let* ((host-id
-         (intern (or (file-remote-p default-directory 'host) "localhost")))
+         (intern (or (file-remote-p default-directory) "localhost")))
         (host-defaults (assq host-id grep-host-defaults-alist))
         (defaults (assq nil grep-host-defaults-alist)))
     ;; There are different defaults on different hosts.  They must be