diff options
| author | Michaël Cadilhac | 2007-10-03 23:40:07 +0000 |
|---|---|---|
| committer | Michaël Cadilhac | 2007-10-03 23:40:07 +0000 |
| commit | e48a5bf9ddcf13d87aa4964de40df063333ce37e (patch) | |
| tree | 4496201126e67e250c037ab201f51ab3f2289ee3 | |
| parent | 1ca678aaf73e776c59f2c8d462e5b4dea29ce0ef (diff) | |
| download | emacs-e48a5bf9ddcf13d87aa4964de40df063333ce37e.tar.gz emacs-e48a5bf9ddcf13d87aa4964de40df063333ce37e.zip | |
(doc-view-dvi->pdf-sentinel, doc-view-reset-slice)
(doc-view-insert-image): Minor aesthetical docstring changes.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/doc-view.el | 7 |
2 files changed, 9 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 21d477ffe25..72087863880 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,4 +1,9 @@ | |||
| 1 | 2007-10-04 Tassilo Horn <tassilo@member.fsf.org> | 1 | 2007-10-03 Micha,Ak(Bl Cadilhac <michael@cadilhac.name> |
| 2 | |||
| 3 | * doc-view.el (doc-view-dvi->pdf-sentinel, doc-view-reset-slice) | ||
| 4 | (doc-view-insert-image): Minor aesthetical docstring changes. | ||
| 5 | |||
| 6 | 2007-10-03 Tassilo Horn <tassilo@member.fsf.org> | ||
| 2 | 7 | ||
| 3 | * doc-view.el (doc-view): Don't ignore pdf and dvi files when | 8 | * doc-view.el (doc-view): Don't ignore pdf and dvi files when |
| 4 | completing filename. | 9 | completing filename. |
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index e64dd37d1fc..d7d2bb47abb 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -343,8 +343,7 @@ It'a a subdirectory of `doc-view-cache-directory'." | |||
| 343 | (md5 (current-buffer))))))) | 343 | (md5 (current-buffer))))))) |
| 344 | 344 | ||
| 345 | (defun doc-view-dvi->pdf-sentinel (proc event) | 345 | (defun doc-view-dvi->pdf-sentinel (proc event) |
| 346 | "If DVI->PDF conversion was successful, convert the PDF to PNG | 346 | "If DVI->PDF conversion was successful, convert the PDF to PNG now." |
| 347 | now." | ||
| 348 | (if (not (string-match "finished" event)) | 347 | (if (not (string-match "finished" event)) |
| 349 | (message "DocView: dvi->pdf process changed status to %s." event) | 348 | (message "DocView: dvi->pdf process changed status to %s." event) |
| 350 | (set-buffer (process-get proc 'buffer)) | 349 | (set-buffer (process-get proc 'buffer)) |
| @@ -530,7 +529,7 @@ dragging it to its bottom-right corner. See also | |||
| 530 | (doc-view-set-slice x y w h))) | 529 | (doc-view-set-slice x y w h))) |
| 531 | 530 | ||
| 532 | (defun doc-view-reset-slice () | 531 | (defun doc-view-reset-slice () |
| 533 | "Resets the current slice. | 532 | "Reset the current slice. |
| 534 | After calling this function the whole pages will be visible | 533 | After calling this function the whole pages will be visible |
| 535 | again." | 534 | again." |
| 536 | (interactive) | 535 | (interactive) |
| @@ -542,7 +541,7 @@ again." | |||
| 542 | 541 | ||
| 543 | (defun doc-view-insert-image (file &rest args) | 542 | (defun doc-view-insert-image (file &rest args) |
| 544 | "Insert the given png FILE. | 543 | "Insert the given png FILE. |
| 545 | ARGs is a list of image descriptors." | 544 | ARGS is a list of image descriptors." |
| 546 | (let ((image (apply 'create-image file 'png nil args))) | 545 | (let ((image (apply 'create-image file 'png nil args))) |
| 547 | (setq doc-view-current-image image) | 546 | (setq doc-view-current-image image) |
| 548 | (insert-image image (concat "[" file "]") nil doc-view-current-slice))) | 547 | (insert-image image (concat "[" file "]") nil doc-view-current-slice))) |