diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-05-02 04:33:11 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-05-02 04:33:11 +0200 |
| commit | 84621b7162b84bffeb5e46bf975ccd7318ad7cfb (patch) | |
| tree | 761f6b56e99db404d5b876087e7a3d462ca9eb48 /lisp/server.el | |
| parent | e793a9404da8d8cb0d318f5ba87998e2be6ecb50 (diff) | |
| download | emacs-84621b7162b84bffeb5e46bf975ccd7318ad7cfb.tar.gz | |
Decode &_ => SPC in the reply.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/server.el b/lisp/server.el index ab7dd409736..c421ee09812 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1487,8 +1487,8 @@ only these files will be asked to be saved." (defun server-eval-at (server form) "Eval FORM on Emacs Server SERVER." (let ((auth-file (expand-file-name server server-auth-dir)) - ;;(coding-system-for-read 'binary) - ;;(coding-system-for-write 'binary) + (coding-system-for-read 'binary) + (coding-system-for-write 'binary) address port secret process) (unless (file-exists-p auth-file) (error "No such server definition: %s" auth-file)) @@ -1516,8 +1516,12 @@ only these files will be asked to be saved." (goto-char (point-min)) ;; If the result is nil, there's nothing in the buffer. If the ;; result is non-nil, it's after "-print ". - (and (search-forward "\n-print" nil t) - (read (current-buffer)))))) + (when (search-forward "\n-print" nil t) + (let ((start (point))) + (while (search-forward "&_" nil t) + (replace-match " " t t)) + (goto-char start) + (read (current-buffer))))))) (provide 'server) |