aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHolger Durer <hdurer@google.com>2018-03-02 17:57:44 +0000
committerHolger Dürer <me@hdurer.net>2018-03-02 20:18:22 +0000
commitb1f05c07c8f00e4546b1ff07be47537660a0b5f6 (patch)
treeda489813900e660e5d9460ed1a9c9b13869d344a
parentb774f9e5295341a68171d94765320114d0b5b407 (diff)
Explicity set output variables to "unlimited" when saving plstore.
Alex Griffith reported ellipses in the output which seems to indicate the printing was somehow truncated. I cannot see anywhere in the code path for plstore-save that these variables be set explictly. See https://www.gnu.org/software/emacs/manual/html_node/elisp/Output-Variables.html for an explanation of these variables.
-rw-r--r--lisp/mastodon-client.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mastodon-client.el b/lisp/mastodon-client.el
index f8beb81..cceb70a 100644
--- a/lisp/mastodon-client.el
+++ b/lisp/mastodon-client.el
@@ -74,7 +74,12 @@
Make `mastodon-client--fetch' call to determine client values."
(let ((plstore (plstore-open (mastodon-client--token-file)))
- (client (mastodon-client--fetch)))
+ (client (mastodon-client--fetch))
+ ;; alexgriffith reported seeing ellipses in the saved output
+ ;; which indicate some output truncating. Nothing in `plstore-save'
+ ;; seems to ensure this cannot happen so let's do that ourselves:
+ (print-length nil)
+ (print-level nil))
(plstore-put plstore (concat "mastodon-" mastodon-instance-url) client nil)
(plstore-save plstore)
(plstore-close plstore)