branch: master
commit cb1f51fa9808be5533946a8e903992d62dfcbaa5
Author: Ian D <du...@gnu.org>
Commit: Ian D <du...@gnu.org>
Don't assume arguments will be symbols or strings
* org-edna.el (org-edna-parse-form): Use `prin1-to-string' instead of
`symbol-name'.
---
org-edna.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/org-edna.el b/org-edna.el
index 485c5ae..9416aa0 100644
--- a/org-edna.el
+++ b/org-edna.el
@@ -31,7 +31,7 @@
(pcase-let* ((`(,arg . ,new-pos) (read-from-string form pos)))
(unless arg
(signal 'invalid-read-syntax (substring form pos)))
- (let ((new-arg (if (stringp arg) arg (symbol-name arg))))
+ (let ((new-arg (if (stringp arg) arg (prin1-to-string arg))))
(push new-arg args))
(setq pos new-pos)
;; Move past whitespace
