diff options
| author | Aaron Ecay <aaronecay@gmail.com> | 2013-04-21 23:30:54 -0400 |
|---|---|---|
| committer | Aaron Ecay <aaronecay@gmail.com> | 2013-04-21 23:44:53 -0400 |
| commit | 8993a2f7a96fa6aaf0129cec622d48deed5ac7f1 (patch) | |
| tree | 4dce9aee9d06a89dde0bcb671636d415e02e237e | |
| parent | 4be6832fdff697af649acc10fafd688e8a19a35a (diff) | |
| download | org-mode-8993a2f7a96fa6aaf0129cec622d48deed5ac7f1.tar.gz | |
org-id.el (org-id-locations-save): Bind print-(level,length) to nil
* lisp/org-id.el (org-id-locations-save): Bind print-(level,length) to
nil in this function.
Having these variables set to non-nil values results in an unreadable
result being written to `org-id-locations-file'.
| -rw-r--r-- | lisp/org-id.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-id.el b/lisp/org-id.el index 32c05e6..c171bfe 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -527,7 +527,9 @@ When CHECK is given, prepare detailed information about duplicate IDs." (org-id-hash-to-alist org-id-locations) org-id-locations))) (with-temp-file org-id-locations-file - (print out (current-buffer)))))) + (let ((print-level nil) + (print-length nil)) + (print out (current-buffer))))))) (defun org-id-locations-load () "Read the data from `org-id-locations-file'." |