From 3c28868aeb2d445830019837294e96f432456754 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 20 May 2007 23:27:36 +0000 Subject: [PATCH] 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 --- lisp/ChangeLog.multi-tty | 5 +++++ lisp/server.el | 2 -- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog.multi-tty b/lisp/ChangeLog.multi-tty index bdcd367a195..c5b6013fa39 100644 --- a/lisp/ChangeLog.multi-tty +++ b/lisp/ChangeLog.multi-tty @@ -1,3 +1,8 @@ +2007-05-20 L$,1 q(Brentey K,Aa(Broly + + * lisp/server.el (server-process-filter): Don't change + default-directory in *scratch*. + 2007-05-19 Dan Nicolaescu * term/mac-win.el: Provide mac-win. diff --git a/lisp/server.el b/lisp/server.el index 15721d1af1c..01acabf1ec8 100644 --- 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")) -- 2.39.5