aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichaël Cadilhac2007-10-03 23:40:07 +0000
committerMichaël Cadilhac2007-10-03 23:40:07 +0000
commite48a5bf9ddcf13d87aa4964de40df063333ce37e (patch)
tree4496201126e67e250c037ab201f51ab3f2289ee3
parent1ca678aaf73e776c59f2c8d462e5b4dea29ce0ef (diff)
downloademacs-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/ChangeLog7
-rw-r--r--lisp/doc-view.el7
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 @@
12007-10-04 Tassilo Horn <tassilo@member.fsf.org> 12007-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
62007-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.
534After calling this function the whole pages will be visible 533After calling this function the whole pages will be visible
535again." 534again."
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.
545ARGs is a list of image descriptors." 544ARGS 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)))