mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/doc-view.el: Avoid ugly errors about not finding nil.

Browse source 
(doc-view-ghostscript-program, doc-view-dvipdfm-program)
(doc-view-dvipdf-program, doc-view-unoconv-program)
(doc-view-ps2pdf-program, doc-view-pdftotext-program):
Avoid nil or absolute file name as default value.
(doc-view-pdf->txt, doc-view-ps->pdf): Use executable-find here.
This commit is contained in:
Stefan Monnier 2011-10-28 20:39:57 -04:00
parent 83ed7b5c7e
commit d0af9f775a
2 changed files with 23 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/doc-view.el
View file

@ -149,7 +149,7 @@
:group 'multimedia
:prefix "doc-view-")
(defcustom doc-view-ghostscript-program (executable-find "gs")
(defcustom doc-view-ghostscript-program "gs"
"Program to convert PS and PDF files to PNG."
:type 'file
:group 'doc-view)
@ -175,7 +175,7 @@ Has only an effect if imagemagick support is compiled into emacs."
:type 'number
:group 'doc-view)
(defcustom doc-view-dvipdfm-program (executable-find "dvipdfm")
(defcustom doc-view-dvipdfm-program "dvipdfm"
"Program to convert DVI files to PDF.
DVI file will be converted to PDF before the resulting PDF is
@ -186,7 +186,7 @@ If this and `doc-view-dvipdf-program' are set,
:type 'file
:group 'doc-view)
(defcustom doc-view-dvipdf-program (executable-find "dvipdf")
(defcustom doc-view-dvipdf-program "dvipdf"
"Program to convert DVI files to PDF.
DVI file will be converted to PDF before the resulting PDF is
@ -197,21 +197,21 @@ If this and `doc-view-dvipdfm-program' are set,
:type 'file
:group 'doc-view)
(defcustom doc-view-unoconv-program (executable-find "unoconv")
(defcustom doc-view-unoconv-program "unoconv"
"Program to convert any file type readable by OpenOffice.org to PDF.
Needed for viewing OpenOffice.org (and MS Office) files."
:type 'file
:group 'doc-view)
(defcustom doc-view-ps2pdf-program (executable-find "ps2pdf")
(defcustom doc-view-ps2pdf-program "ps2pdf"
"Program to convert PS files to PDF.
PS files will be converted to PDF before searching is possible."
:type 'file
:group 'doc-view)
(defcustom doc-view-pdftotext-program (executable-find "pdftotext")
(defcustom doc-view-pdftotext-program "pdftotext"
"Program to convert PDF files to plain text.
Needed for searching."
@ -881,7 +881,7 @@ Start by converting PAGES, and then the rest."
(defun doc-view-pdf->txt (pdf txt callback)
"Convert PDF to TXT asynchronously and call CALLBACK when finished."
(or doc-view-pdftotext-program
(or (executable-find doc-view-pdftotext-program)
(error "You need the `pdftotext' program to convert a PDF to text"))
(doc-view-start-process "pdf->txt" doc-view-pdftotext-program
(list "-raw" pdf txt)
@ -917,7 +917,7 @@ Start by converting PAGES, and then the rest."
(defun doc-view-ps->pdf (ps pdf callback)
"Convert PS to PDF asynchronously and call CALLBACK when finished."
(or doc-view-ps2pdf-program
(or (executable-find doc-view-ps2pdf-program)
(error "You need the `ps2pdf' program to convert PS to PDF"))
(doc-view-start-process "ps->pdf" doc-view-ps2pdf-program
(list