branch: externals/doc-toc
commit 6896777c070384e1b78e3121eb3ac29499f6e1cd
Author: Daniel Nicolai <dalanico...@gmail.com>
Commit: Daniel Nicolai <dalanico...@gmail.com>
Fix shell argument (quote arguments)
---
doc-toc.el | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/doc-toc.el b/doc-toc.el
index 14db69d428..994fcc579d 100644
--- a/doc-toc.el
+++ b/doc-toc.el
@@ -276,15 +276,20 @@ number 2 etc."
(let* ((page (pdf-view-current-page))
(filename (url-filename (url-generic-parse-url buffer-file-name)))
(pdfxmeta-result (shell-command
- (format "pdfxmeta --auto %s --page %s '%s' \"%s\"
>> recipe.toml"
+ (format "pdfxmeta --auto %s --page %s %s \"%s\" >>
recipe.toml"
level
page
- filename
+ (shell-quote-argument filename)
(car (pdf-view-active-region-text))))))
+ ;; (pdfxmeta-result (call-process "pdfxmeta" nil "recipe.toml" nil
+ ;; "--auto" (number-to-string level)
+ ;; "--page" (number-to-string page)
+ ;; (shell-quote-argument filename)
+ ;; (concat "\"" (car
(pdf-view-active-region-text)) "\""))))
(when (eq pdfxmeta-result 1)
(let ((page-text (shell-command-to-string
- (format "mutool draw -F text '%s' %s"
- filename
+ (format "mutool draw -F text %s %s"
+ (shell-quote-argument filename)
page
))))
(pop-to-buffer "page-text")
