[elpa] externals/doc-toc 05cd1287f1 42/84: Fix toc--add-to-djvu. Don't ask save location.

[ELPA Syncer]

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

    Fix toc--add-to-djvu. Don't ask save location.
---
 toc-mode.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/toc-mode.el b/toc-mode.el
index 9f40b28110..f98eb7c13a 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -617,7 +617,7 @@ to `pdfoutline' shell command."
                      (insert (format "(\"%s\" \"%s\")" (car sexp) (nth 1 
sexp)))
                      (let ((level-diff (- level-current level-next)))
                        (while (> level-diff 0)
-                         (insert ")")
+                         (insert ") ")
                          (setq level-diff (1- level-diff)))))))
           (forward-line))))
     (forward-line -1)
@@ -632,7 +632,7 @@ to `pdfoutline' shell command."
   (interactive)
   (let ((ext (url-file-extension (buffer-file-name doc-buffer))))
     (cond ((string= ".pdf" ext) (toc--tablist-to-pdfoutline))
-          ((string= ".djvu" ext) (print "this is DJVU") 
(toc--tablist-to-djvused))
+          ((string= ".djvu" ext) (toc--tablist-to-djvused))
           (t (error "Buffer-source-file does not have pdf or djvu 
extension")))))
 
 
@@ -651,13 +651,18 @@ to `pdfoutline' shell command."
 (defun toc--add-to-djvu ()
   "Combine with add-toc-to-djvu in add-toc-to-document when ready."
   (interactive)
-  (save-buffer)
-  (shell-command (shell-command-to-string
+  (write-file (buffer-name (current-buffer)))
+  (print (format
+          "djvused -s -e \"set-outline '%s'\" %s"
+          (buffer-name)
+          (shell-quote-argument
+           (concat (file-name-sans-extension (buffer-name)) ".djvu"))))
+  (shell-command-to-string
                   (format
                    "djvused -s -e \"set-outline '%s'\" %s"
                    (buffer-name)
                    (shell-quote-argument
-                    (concat (file-name-sans-extension (buffer-name)) 
".djvu"))))))
+                    (concat (file-name-sans-extension (buffer-name)) 
".djvu")))))
 
 
 (defun toc--add-to-doc ()