diff options
| author | Reiner Steib | 2007-10-18 19:30:23 +0000 |
|---|---|---|
| committer | Reiner Steib | 2007-10-18 19:30:23 +0000 |
| commit | d27180ec629f761684bfa5c3bf6b4cb6dd1cb93e (patch) | |
| tree | 023ed3b46299b04bad16dbcd2ed1c2724fc96c7b | |
| parent | 6a658a30577e3b020632b1d03f5fe8b6a33809ee (diff) | |
| download | emacs-d27180ec629f761684bfa5c3bf6b4cb6dd1cb93e.tar.gz emacs-d27180ec629f761684bfa5c3bf6b4cb6dd1cb93e.zip | |
* doc-view.el (doc-view-dvi->pdf-sentinel, doc-view-dvi->pdf)
(doc-view-pdf/ps->png-sentinel, doc-view-pdf/ps->png)
(doc-view-pdf->txt-sentinel, doc-view-pdf->txt)
(doc-view-ps->pdf-sentinel, doc-view-ps->pdf): Remove superfluous
messages.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/doc-view.el | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7f0615e1dd5..79830aa53d6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2007-10-18 Tassilo Horn <tassilo@member.fsf.org> | ||
| 2 | |||
| 3 | * doc-view.el (doc-view-dvi->pdf-sentinel, doc-view-dvi->pdf) | ||
| 4 | (doc-view-pdf/ps->png-sentinel, doc-view-pdf/ps->png) | ||
| 5 | (doc-view-pdf->txt-sentinel, doc-view-pdf->txt) | ||
| 6 | (doc-view-ps->pdf-sentinel, doc-view-ps->pdf): Remove superfluous | ||
| 7 | messages. | ||
| 8 | |||
| 1 | 2007-10-18 Reiner Steib <Reiner.Steib@gmx.de> | 9 | 2007-10-18 Reiner Steib <Reiner.Steib@gmx.de> |
| 2 | 10 | ||
| 3 | * doc-view.el (doc-view-ghostscript-options, doc-view-ps->pdf): | 11 | * doc-view.el (doc-view-ghostscript-options, doc-view-ps->pdf): |
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 241b87065d3..da116fa2bde 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -390,7 +390,6 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 390 | (set-buffer (process-get proc 'buffer)) | 390 | (set-buffer (process-get proc 'buffer)) |
| 391 | (setq doc-view-current-converter-process nil | 391 | (setq doc-view-current-converter-process nil |
| 392 | mode-line-process nil) | 392 | mode-line-process nil) |
| 393 | (message "DocView: finished conversion from DVI to PDF!") | ||
| 394 | ;; Now go on converting this PDF to a set of PNG files. | 393 | ;; Now go on converting this PDF to a set of PNG files. |
| 395 | (let* ((pdf (process-get proc 'pdf-file)) | 394 | (let* ((pdf (process-get proc 'pdf-file)) |
| 396 | (png (concat (doc-view-current-cache-dir) | 395 | (png (concat (doc-view-current-cache-dir) |
| @@ -399,7 +398,6 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 399 | 398 | ||
| 400 | (defun doc-view-dvi->pdf (dvi pdf) | 399 | (defun doc-view-dvi->pdf (dvi pdf) |
| 401 | "Convert DVI to PDF asynchrounously." | 400 | "Convert DVI to PDF asynchrounously." |
| 402 | (message "DocView: converting DVI to PDF now!") | ||
| 403 | (setq doc-view-current-converter-process | 401 | (setq doc-view-current-converter-process |
| 404 | (start-process "dvi->pdf" doc-view-conversion-buffer | 402 | (start-process "dvi->pdf" doc-view-conversion-buffer |
| 405 | doc-view-dvipdfm-program | 403 | doc-view-dvipdfm-program |
| @@ -420,13 +418,11 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 420 | (when doc-view-current-timer | 418 | (when doc-view-current-timer |
| 421 | (cancel-timer doc-view-current-timer) | 419 | (cancel-timer doc-view-current-timer) |
| 422 | (setq doc-view-current-timer nil)) | 420 | (setq doc-view-current-timer nil)) |
| 423 | (message "DocView: finished conversion from PDF/PS to PNG!") | ||
| 424 | ;; Yippie, finished. Update the display! | 421 | ;; Yippie, finished. Update the display! |
| 425 | (doc-view-display doc-view-current-doc))) | 422 | (doc-view-display doc-view-current-doc))) |
| 426 | 423 | ||
| 427 | (defun doc-view-pdf/ps->png (pdf-ps png) | 424 | (defun doc-view-pdf/ps->png (pdf-ps png) |
| 428 | "Convert PDF-PS to PNG asynchrounously." | 425 | "Convert PDF-PS to PNG asynchrounously." |
| 429 | (message "DocView: converting PDF or PS to PNG now!") | ||
| 430 | (setq doc-view-current-converter-process | 426 | (setq doc-view-current-converter-process |
| 431 | (apply 'start-process | 427 | (apply 'start-process |
| 432 | (append (list "pdf/ps->png" doc-view-conversion-buffer | 428 | (append (list "pdf/ps->png" doc-view-conversion-buffer |
| @@ -453,7 +449,6 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 453 | (set-buffer proc-buffer) | 449 | (set-buffer proc-buffer) |
| 454 | (setq doc-view-current-converter-process nil | 450 | (setq doc-view-current-converter-process nil |
| 455 | mode-line-process nil) | 451 | mode-line-process nil) |
| 456 | (message "DocView: finished conversion from PDF to TXT!") | ||
| 457 | ;; If the user looks at the DocView buffer where the conversion was | 452 | ;; If the user looks at the DocView buffer where the conversion was |
| 458 | ;; performed, search anew. This time it will be queried for a regexp. | 453 | ;; performed, search anew. This time it will be queried for a regexp. |
| 459 | (when (eq current-buffer proc-buffer) | 454 | (when (eq current-buffer proc-buffer) |
| @@ -461,7 +456,6 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 461 | 456 | ||
| 462 | (defun doc-view-pdf->txt (pdf txt) | 457 | (defun doc-view-pdf->txt (pdf txt) |
| 463 | "Convert PDF to TXT asynchrounously." | 458 | "Convert PDF to TXT asynchrounously." |
| 464 | (message "DocView: converting PDF to TXT now!") | ||
| 465 | (setq doc-view-current-converter-process | 459 | (setq doc-view-current-converter-process |
| 466 | (start-process "pdf->txt" doc-view-conversion-buffer | 460 | (start-process "pdf->txt" doc-view-conversion-buffer |
| 467 | doc-view-pdftotext-program "-raw" | 461 | doc-view-pdftotext-program "-raw" |
| @@ -477,7 +471,6 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 477 | (set-buffer (process-get proc 'buffer)) | 471 | (set-buffer (process-get proc 'buffer)) |
| 478 | (setq doc-view-current-converter-process nil | 472 | (setq doc-view-current-converter-process nil |
| 479 | mode-line-process nil) | 473 | mode-line-process nil) |
| 480 | (message "DocView: finished conversion from PS to PDF!") | ||
| 481 | ;; Now we can transform to plain text. | 474 | ;; Now we can transform to plain text. |
| 482 | (doc-view-pdf->txt (process-get proc 'pdf-file) | 475 | (doc-view-pdf->txt (process-get proc 'pdf-file) |
| 483 | (concat (doc-view-current-cache-dir) | 476 | (concat (doc-view-current-cache-dir) |
| @@ -485,7 +478,6 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 485 | 478 | ||
| 486 | (defun doc-view-ps->pdf (ps pdf) | 479 | (defun doc-view-ps->pdf (ps pdf) |
| 487 | "Convert PS to PDF asynchronously." | 480 | "Convert PS to PDF asynchronously." |
| 488 | (message "DocView: converting PS to PDF now!") | ||
| 489 | (setq doc-view-current-converter-process | 481 | (setq doc-view-current-converter-process |
| 490 | (start-process "ps->pdf" doc-view-conversion-buffer | 482 | (start-process "ps->pdf" doc-view-conversion-buffer |
| 491 | doc-view-ps2pdf-program | 483 | doc-view-ps2pdf-program |