Mercurial > emacs

comparison lisp/server.el @ 16075:1fd0ed653ce6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-process-filter): Quote with &, not \.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 Sep 1996 17:43:56 +0000
parents 7e6b741a8b6a
children 85b1a10101ff
comparison
equal deleted inserted replaced
16074:25cfff7ffced 16075:1fd0ed653ce6
210 ;; Collapse multiple slashes to single slashes. 210 ;; Collapse multiple slashes to single slashes.
211 (setq arg (command-line-normalize-file-name arg)) 211 (setq arg (command-line-normalize-file-name arg))
212 (setq pos 0) 212 (setq pos 0)
213 ;; Undo the quoting that emacsclient does 213 ;; Undo the quoting that emacsclient does
214 ;; for certain special characters. 214 ;; for certain special characters.
215 (while (string-match "\\\\." arg pos) 215 (while (string-match "&." arg pos)
216 (setq pos (1+ (match-beginning 0))) 216 (setq pos (1+ (match-beginning 0)))
217 (let ((nextchar (aref arg pos))) 217 (let ((nextchar (aref arg pos)))
218 (cond ((= nextchar ?\\) 218 (cond ((= nextchar ?&)
219 (setq arg (replace-match "\\" t t arg))) 219 (setq arg (replace-match "&" t t arg)))
220 ((= nextchar ?-) 220 ((= nextchar ?-)
221 (setq arg (replace-match "-" t t arg))) 221 (setq arg (replace-match "-" t t arg)))
222 (t 222 (t
223 (setq arg (replace-match " " t t arg)))))) 223 (setq arg (replace-match " " t t arg))))))
224 (setq files 224 (setq files