Mercurial > emacs
comparison lisp/server.el @ 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 | 0cefc98d243d |
| children | 1fd0ed653ce6 |
comparison
equal
deleted
inserted
replaced
| 16059:ad4cd2505623 | 16060:7e6b741a8b6a |
|---|---|
| 195 (if (string-match "^Client: " request) | 195 (if (string-match "^Client: " request) |
| 196 (progn | 196 (progn |
| 197 (setq request (substring request (match-end 0))) | 197 (setq request (substring request (match-end 0))) |
| 198 (setq client (list (substring request 0 (string-match " " request)))) | 198 (setq client (list (substring request 0 (string-match " " request)))) |
| 199 (setq request (substring request (match-end 0))) | 199 (setq request (substring request (match-end 0))) |
| 200 (setq foofoo request) | |
| 201 (while (string-match "[^ ]+ " request) | 200 (while (string-match "[^ ]+ " request) |
| 202 (let ((arg | 201 (let ((arg |
| 203 (substring request (match-beginning 0) (1- (match-end 0))))) | 202 (substring request (match-beginning 0) (1- (match-end 0))))) |
| 204 (setq request (substring request (match-end 0))) | 203 (setq request (substring request (match-end 0))) |
| 205 (if (string-match "\\`-nowait" arg) | 204 (if (string-match "\\`-nowait" arg) |
| 208 ;; ARG is a line number option. | 207 ;; ARG is a line number option. |
| 209 (setq lineno (read (substring arg 1))) | 208 (setq lineno (read (substring arg 1))) |
| 210 ;; ARG is a file name. | 209 ;; ARG is a file name. |
| 211 ;; Collapse multiple slashes to single slashes. | 210 ;; Collapse multiple slashes to single slashes. |
| 212 (setq arg (command-line-normalize-file-name arg)) | 211 (setq arg (command-line-normalize-file-name arg)) |
| 212 (setq pos 0) | |
| 213 ;; Undo the quoting that emacsclient does | |
| 214 ;; for certain special characters. | |
| 215 (while (string-match "\\\\." arg pos) | |
| 216 (setq pos (1+ (match-beginning 0))) | |
| 217 (let ((nextchar (aref arg pos))) | |
| 218 (cond ((= nextchar ?\\) | |
| 219 (setq arg (replace-match "\\" t t arg))) | |
| 220 ((= nextchar ?-) | |
| 221 (setq arg (replace-match "-" t t arg))) | |
| 222 (t | |
| 223 (setq arg (replace-match " " t t arg)))))) | |
| 213 (setq files | 224 (setq files |
| 214 (cons (list arg lineno) | 225 (cons (list arg lineno) |
| 215 files)) | 226 files)) |
| 216 (setq lineno 1))))) | 227 (setq lineno 1))))) |
| 217 (server-visit-files files client nowait) | 228 (server-visit-files files client nowait) |