Mercurial > emacs
changeset 72017:0ec82e7ecc2f
(tumme-display-thumbnail-original-image): Make sure
image display buffer is displayed before call to
`tumme-display-image.
(tumme-dired-display-image): Make sure image display buffer is
displayed before call to `tumme-display-image.
(tumme-mouse-display-image): Make sure image display buffer is
displayed before call to `tumme-display-image.
| author | Mathias Dahl <mathias.dahl@gmail.com> |
|---|---|
| date | Wed, 19 Jul 2006 10:01:54 +0000 |
| parents | 4a678a57f325 |
| children | 0efb346df8fd |
| files | lisp/tumme.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tumme.el Wed Jul 19 10:01:38 2006 +0000 +++ b/lisp/tumme.el Wed Jul 19 10:01:54 2006 +0000 @@ -1798,8 +1798,10 @@ (message "No thumbnail at point") (if (not file) (message "No original file name found") - (tumme-display-image file arg) - (display-buffer tumme-display-image-buffer)))))) + (tumme-create-display-image-buffer) + (display-buffer tumme-display-image-buffer) + (tumme-display-image file arg)))))) + ;;;###autoload (defun tumme-dired-display-image (&optional arg) @@ -1807,8 +1809,9 @@ See documentation for `tumme-display-image' for more information. With prefix argument ARG, display image in its original size." (interactive "P") - (tumme-display-image (dired-get-filename) arg) - (display-buffer tumme-display-image-buffer)) + (tumme-create-display-image-buffer) + (display-buffer tumme-display-image-buffer) + (tumme-display-image (dired-get-filename) arg)) (defun tumme-image-at-point-p () "Return true if there is a tumme thumbnail at point." @@ -2153,6 +2156,8 @@ (setq file (tumme-original-file-name)) (if tumme-track-movement (tumme-track-original-file)) + (tumme-create-display-image-buffer) + (display-buffer tumme-display-image-buffer) (tumme-display-image file))) (defun tumme-mouse-select-thumbnail (event)