Mercurial > emacs
changeset 83621:337111eac6a6
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 | ce4352d8bee9 |
| children | 0a3247aa24a4 |
| files | lisp/ChangeLog.multi-tty lisp/server.el |
| diffstat | 2 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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"))