branch: externals/graphql
commit 1f4f1a61c9cb44e6d98faaf822da25f70fabaad3
Author: Sean Allred <c...@seanallred.com>
Commit: Sean Allred <c...@seanallred.com>
Remove graphql-encode and replace it with graphql--encode
Weird text properties no longer seem to be a problem.
---
graphql.el | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/graphql.el b/graphql.el
index 0eb621bd50..7e6ab60e6b 100644
--- a/graphql.el
+++ b/graphql.el
@@ -72,7 +72,7 @@
(push (pop g) graph)))
(list keys (nreverse graph))))
-(defun graphql--encode (g)
+(defun graphql-encode (g)
"Encode G as a GraphQL string."
(or (graphql--encode-atom g)
(graphql--encode-list g)
@@ -92,14 +92,8 @@
(format " %S" name))
(when fields
(format " { %s }"
- (mapconcat #'graphql--encode fields " ")))))))))
+ (mapconcat #'graphql-encode fields " ")))))))))
-(defun graphql-encode (g)
- "Encode G as a GraphQL string."
- (let ((s (graphql--encode g)))
- ;; clean up
- (set-text-properties 0 (length s) nil s)
- s))
(provide 'graphql)
;;; graphql.el ends here
