diff options
| -rw-r--r-- | lisp/pdf-tools.el | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/pdf-tools.el b/lisp/pdf-tools.el index cb3045b..13e993b 100644 --- a/lisp/pdf-tools.el +++ b/lisp/pdf-tools.el @@ -7,7 +7,7 @@ ;; URL: http://github.com/vedang/pdf-tools/ ;; Keywords: files, multimedia ;; Package: pdf-tools -;; Version: 1.2.1 +;; Version: 1.3.0 ;; Package-Requires: ((emacs "26.3") (tablist "1.0") (let-alist "1.0.4")) ;; This program is free software; you can redistribute it and/or modify @@ -272,9 +272,9 @@ Returns always nil, unless `system-type' equals windows-nt." "Return the location of /mingw*/bin." (when (pdf-tools-msys2-directory) (let ((arch (intern (car (split-string system-configuration "-" t))))) - (expand-file-name - (format "./mingw%s/bin" (if (eq arch 'x86_64) "64" "32")) - (pdf-tools-msys2-directory))))) + (expand-file-name + (format "./mingw%s/bin" (if (eq arch 'x86_64) "64" "32")) + (pdf-tools-msys2-directory))))) (defun pdf-tools-find-bourne-shell () "Locate a usable sh." @@ -404,20 +404,20 @@ See `pdf-view-mode' and `pdf-tools-enabled-modes'." pdf-tools-directory))) (if (or no-query-p (y-or-n-p "Need to (re)build the epdfinfo program, do it now ?")) - (pdf-tools-build-server - target-directory - skip-dependencies-p - force-dependencies-p - (lambda (executable) - (let ((msg (format - "Building the PDF Tools server %s" - (if executable "succeeded" "failed")))) - (if (not executable) - (funcall (if no-error-p #'message #'error) "%s" msg) - (message "%s" msg) - (setq pdf-info-epdfinfo-program executable) - (let ((pdf-info-restart-process-p t)) - (pdf-tools-install-noverify)))))) + (pdf-tools-build-server + target-directory + skip-dependencies-p + force-dependencies-p + (lambda (executable) + (let ((msg (format + "Building the PDF Tools server %s" + (if executable "succeeded" "failed")))) + (if (not executable) + (funcall (if no-error-p #'message #'error) "%s" msg) + (message "%s" msg) + (setq pdf-info-epdfinfo-program executable) + (let ((pdf-info-restart-process-p t)) + (pdf-tools-install-noverify)))))) (message "PDF Tools not activated"))))) (defun pdf-tools-install-noverify () @@ -448,9 +448,9 @@ See `pdf-view-mode' and `pdf-tools-enabled-modes'." (interactive) (pdf-info-quit) (setq-default auto-mode-alist - (remove pdf-tools-auto-mode-alist-entry auto-mode-alist)) + (remove pdf-tools-auto-mode-alist-entry auto-mode-alist)) (setq-default magic-mode-alist - (remove pdf-tools-magic-mode-alist-entry magic-mode-alist)) + (remove pdf-tools-magic-mode-alist-entry magic-mode-alist)) (pdf-occur-global-minor-mode -1) (pdf-virtual-global-minor-mode -1) (remove-hook 'pdf-view-mode-hook #'pdf-tools-enable-minor-modes) |