# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1179703656 0
# Node ID 337111eac6a6e9e0ade78e8ba55b1411c40f7378
# Parent  ce4352d8bee9544e0fff8827578fc4c08222f7f4
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 -r ce4352d8bee9 -r 337111eac6a6 lisp/ChangeLog.multi-tty
--- a/lisp/ChangeLog.multi-tty	Sat May 19 23:12:46 2007 +0000
+++ b/lisp/ChangeLog.multi-tty	Sun May 20 23:27:36 2007 +0000
@@ -1,3 +1,8 @@
+2007-05-20  L$,1 q(Brentey K,Aa(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 -r ce4352d8bee9 -r 337111eac6a6 lisp/server.el
--- a/lisp/server.el	Sat May 19 23:12:46 2007 +0000
+++ b/lisp/server.el	Sun May 20 23:27:36 2007 +0000
@@ -769,7 +769,6 @@
 
 			  ;; 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 @@
 
 		      ;; 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"))