Mercurial > emacs

diff lisp/server.el @ 83621:337111eac6a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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>
author Miles Bader <miles@gnu.org>
date Sun, 20 May 2007 23:27:36 +0000
parents 2716535391b7
children 3c43b53861c8
line wrap: on
line diff
--- 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"))