Mercurial > emacs
changeset 16060:7e6b741a8b6a
(server-process-filter): Undo the quoting with
backslashes that emacsclient now does for special characters.
Delete some debugging code accidentally left in.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 02 Sep 1996 00:03:28 +0000 |
| parents | ad4cd2505623 |
| children | a1290c4159b5 |
| files | lisp/server.el |
| diffstat | 1 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/server.el Sun Sep 01 23:18:22 1996 +0000 +++ b/lisp/server.el Mon Sep 02 00:03:28 1996 +0000 @@ -197,7 +197,6 @@ (setq request (substring request (match-end 0))) (setq client (list (substring request 0 (string-match " " request)))) (setq request (substring request (match-end 0))) - (setq foofoo request) (while (string-match "[^ ]+ " request) (let ((arg (substring request (match-beginning 0) (1- (match-end 0))))) @@ -210,6 +209,18 @@ ;; ARG is a file name. ;; Collapse multiple slashes to single slashes. (setq arg (command-line-normalize-file-name arg)) + (setq pos 0) + ;; Undo the quoting that emacsclient does + ;; for certain special characters. + (while (string-match "\\\\." arg pos) + (setq pos (1+ (match-beginning 0))) + (let ((nextchar (aref arg pos))) + (cond ((= nextchar ?\\) + (setq arg (replace-match "\\" t t arg))) + ((= nextchar ?-) + (setq arg (replace-match "-" t t arg))) + (t + (setq arg (replace-match " " t t arg)))))) (setq files (cons (list arg lineno) files))