[elpa] externals/doc-toc 1602e353b0 49/84: Improve parsing djvu outline (prin1-to-string)

[ELPA Syncer]

branch: externals/doc-toc
commit 1602e353b06e95172e8a67c2f132e80a6f8e67cf
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Improve parsing djvu outline (prin1-to-string)
---
 toc-mode.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/toc-mode.el b/toc-mode.el
index e5f15c3d62..3ce807deb5 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -590,6 +590,7 @@ to `pdfoutline' shell command."
 ;;; djvu parse tablist to outline
 (defun toc--tablist-to-djvused ()
   "Parse and prepare djvused outline source form tablist."
+  (interactive)
   (let ((source-buffer doc-buffer)
         (buff (get-buffer-create
                (concat
@@ -607,11 +608,11 @@ to `pdfoutline' shell command."
         (if level-next
             (with-current-buffer buff
               (cond ((= level-next level-current)
-                     (insert (format "(\"%s\" \"%s\") " (car sexp) (nth 1 
sexp))))
+                     (insert (format "(%s \"%s\") " (prin1-to-string (car 
sexp)) (nth 1 sexp))))
                     ((> level-next level-current)
-                     (insert (format "(\"%s\" \"%s\" " (car sexp) (nth 1 
sexp))))
+                     (insert (format "(%s \"%s\" " (prin1-to-string (car 
sexp)) (nth 1 sexp))))
                     ((< level-next level-current)
-                     (insert (format "(\"%s\" \"%s\")" (car sexp) (nth 1 
sexp)))
+                     (insert (format "(%s \"%s\")" (prin1-to-string (car 
sexp)) (nth 1 sexp)))
                      (let ((level-diff (- level-current level-next)))
                        (while (> level-diff 0)
                          (insert ") ")