comparison lisp/server.el @ 83499:0fe580113f72

Set `default-directory' in *scratch* to the current directory of emacsclient. * lib-src/emacsclient.c (get_current_dir_name): New function, copied here from sysdep.c. (main): Use it to send over the current directory. * lisp/server.el (server-process-filter): Accept `-dir' command. Set `default-directory' of the *scratch* buffer on connect, if applicable. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-539

83498:f0987e2f27e2

  `-good-version' to confirm the match.

`-env NAME=VALUE'
  An environment variable on the client side.

`-current-frame'
  Forbid the creation of new frames.

`-nowait'
  Request that the next frame created should not be

`-window-system'
  Open a new X frame.

`-tty DEVICENAME TYPE'
  Open a new tty frame at the client.

`-resume'
  Resume this tty frame. The client sends this string when it
  gets the SIGCONT signal and it is the foreground process on its
  controlling tty.

`-suspend'
  Suspend this tty frame.  The client sends this string in
  response to SIGTSTP and SIGTTOU.  The server must cease all I/O
  on this tty until it gets a -resume command.

`-ignore COMMENT'
  Do nothing, but put the comment in the server
  log.  Useful for debugging.

		nowait ; t if emacsclient does not want to wait for us.
		frame ; The frame that was opened for the client (if any).
		display		     ; Open the frame on this display.
		dontkill       ; t if the client should not be killed.
		env
		(files nil)
		(lineno 1)
		(columnno 0))
	    ;; Remove this line from STRING.
	    (setq string (substring string (match-end 0)))

			  (server-client-set client 'frame frame)
			  (server-client-set client 'terminal (frame-terminal frame))

			  ;; Display *scratch* by default.
			  (switch-to-buffer (get-buffer-create "*scratch*") 'norecord)

			  (setq dontkill t))
		      ;; This emacs does not support X.
		      (server-log "Window system unsupported" proc)
		      (server-send-string proc "-window-system-unsupported \n")

		      (server-client-set client 'tty (terminal-name frame))
		      (server-client-set client 'terminal (frame-terminal frame))

		      ;; Display *scratch* by default.
		      (switch-to-buffer (get-buffer-create "*scratch*") 'norecord)

		      ;; Reply with our pid.
		      (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n"))
		      (setq dontkill t))))

		 ((and (equal "-env" arg) (string-match "\\([^ ]+\\) " request))
		  (let ((var (server-unquote-arg (match-string 1 request))))
		    ;; XXX Variables should be encoded as in getenv/setenv.
		    (setq request (substring request (match-end 0)))
		    (setq env (cons var env))))

		 ;; Unknown command.
		 (t (error "Unknown command: %s" arg)))))

	    (let (buffers)

83499:0fe580113f72

  `-good-version' to confirm the match.

`-env NAME=VALUE'
  An environment variable on the client side.

`-dir DIRNAME'
  The current working directory of the client process.

`-current-frame'
  Forbid the creation of new frames.

`-nowait'
  Request that the next frame created should not be

`-window-system'
  Open a new X frame.

`-tty DEVICENAME TYPE'
  Open a new tty frame at the client.

`-suspend'
  Suspend this tty frame.  The client sends this string in
  response to SIGTSTP and SIGTTOU.  The server must cease all I/O
  on this tty until it gets a -resume command.

`-resume'
  Resume this tty frame. The client sends this string when it
  gets the SIGCONT signal and it is the foreground process on its
  controlling tty.

`-ignore COMMENT'
  Do nothing, but put the comment in the server
  log.  Useful for debugging.

		nowait ; t if emacsclient does not want to wait for us.
		frame ; The frame that was opened for the client (if any).
		display		     ; Open the frame on this display.
		dontkill       ; t if the client should not be killed.
		env
		dir
		(files nil)
		(lineno 1)
		(columnno 0))
	    ;; Remove this line from STRING.
	    (setq string (substring string (match-end 0)))

			  (server-client-set client 'frame frame)
			  (server-client-set client 'terminal (frame-terminal frame))

			  ;; 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.
		      (server-log "Window system unsupported" proc)
		      (server-send-string proc "-window-system-unsupported \n")

		      (server-client-set client 'tty (terminal-name frame))
		      (server-client-set client 'terminal (frame-terminal frame))

		      ;; 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"))
		      (setq dontkill t))))

		 ((and (equal "-env" arg) (string-match "\\([^ ]+\\) " request))
		  (let ((var (server-unquote-arg (match-string 1 request))))
		    ;; XXX Variables should be encoded as in getenv/setenv.
		    (setq request (substring request (match-end 0)))
		    (setq env (cons var env))))

		 ;; -dir DIRNAME:  The cwd of the emacsclient process.
		 ((and (equal "-dir" arg) (string-match "\\([^ ]+\\) " request))
		  (setq dir (server-unquote-arg (match-string 1 request)))
		  (setq request (substring request (match-end 0)))
		  (if coding-system
		      (setq dir (decode-coding-string dir coding-system)))
		  (setq dir (command-line-normalize-file-name dir)))

		 ;; Unknown command.
		 (t (error "Unknown command: %s" arg)))))

	    (let (buffers)