server.el: Don't change the default directory in the *scratch* buffer.

* lisp/server.el (server-process-filter): Don't change default-directory
  in *scratch*.

Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-11
Creator:  Karoly Lorentey <karoly@lorentey.hu>

diff --git a/lisp/ChangeLog.multi-tty b/lisp/ChangeLog.multi-tty
index bdcd367a195bfd370433f39db5584999e54dd16f..c5b6013fa39dabf97485abdbcb1f777e85637d1b 100644 (file)
--- a/lisp/ChangeLog.multi-tty
+++ b/lisp/ChangeLog.multi-tty
@@ -1,3 +1,8 @@
+2007-05-20  L\e$,1 q\e(Brentey K\e,Aa\e(Broly  <lorentey@elte.hu>
+
+       * lisp/server.el (server-process-filter): Don't change
+       default-directory in *scratch*.
+
 2007-05-19  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * term/mac-win.el: Provide mac-win.

diff --git a/lisp/server.el b/lisp/server.el
index 15721d1af1c69b7b159a911023b20b110930f96a..01acabf1ec8a45668ce8adba55b53900e4391df8 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -769,7 +769,6 @@ The following commands are accepted by the client:
 
                          ;; Display *scratch* by default.
                          (switch-to-buffer (get-buffer-create "*scratch*") 'norecord)
-                         (if dir (setq default-directory dir))
 
                          (setq dontkill t))
                      ;; This emacs does not support X.
@@ -826,7 +825,6 @@ The following commands are accepted by the client:
 
                      ;; Display *scratch* by default.
                      (switch-to-buffer (get-buffer-create "*scratch*") 'norecord)
-                     (if dir (setq default-directory dir))
 
                      ;; Reply with our pid.
                      (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n"))