branch: externals/futur
commit d320357774b675034b35e99ea350f8e901bf0a15
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
(futur-elisp-server): Use a prompt on which `read` would choke
* futur-server.el (futur-elisp-server): Tweak the SID so as to
make it more "naturally synchronizing".
---
futur-server.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/futur-server.el b/futur-server.el
index 0a91c8ee63..4bd13211fe 100644
--- a/futur-server.el
+++ b/futur-server.el
@@ -48,15 +48,15 @@
;; SWP aren't currently printed in a `read'able way, so we may
;; as well print them bare.
(print-symbols-bare t))
- (terpri t)
(princ sid t)
(prin1 sexp t)
(terpri t)))
(defun futur-elisp-server ()
;; We don't need a cryptographically secure ID, but just something that's
- ;; *very* unlikely to occur by accident elsewhere.
- (let ((sid (format "fes:%s "
+ ;; *very* unlikely to occur by accident elsewhere and which `read' wouldn't
+ ;; process without signaling an error.
+ (let ((sid (format "\n # \" # fes:%s "
(secure-hash 'sha1
(format "%S:%S:%S"
(random t) (current-time)
