From: Stefan Monnier Date: Fri, 1 Feb 2008 01:38:32 +0000 (+0000) Subject: (grep-compute-defaults): X-Git-Tag: emacs-pretest-23.0.90~8307 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85e7298f9044d2eb5b704c9d840d2dda040d04ce;p=emacs.git (grep-compute-defaults): Don't mix up defaults for different connections to the same host. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 41308840b0b..9e27ef462a6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-02-01 Stefan Monnier + + * progmodes/grep.el (grep-compute-defaults): + Don't mix up defaults for different connections to the same host. + 2008-01-31 Vinicius Jose Latorre * blank-mode.el: Renamed to whitespace.el. diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index e3ddb392582..0c7cb358f4a 100644 --- 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