Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
84621b71
Commit
84621b71
authored
May 02, 2011
by
Lars Magne Ingebrigtsen
Browse files
Decode &_ => SPC in the reply.
parent
e793a940
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
4 deletions
+8
-4
lisp/server.el
lisp/server.el
+8
-4
No files found.
lisp/server.el
View file @
84621b71
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment