From db359f941c89eb900e3732014d3f3fe8edee4946 Mon Sep 17 00:00:00 2001 From: Mathias Dahl Date: Wed, 19 Jul 2006 10:01:54 +0000 Subject: [PATCH] (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. --- lisp/tumme.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/tumme.el b/lisp/tumme.el index b45052bf09e..2be66ba88de 100644 --- a/lisp/tumme.el +++ b/lisp/tumme.el @@ -1798,8 +1798,10 @@ With prefix argument ARG, display image in its original size." (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 @@ With prefix argument ARG, display image in its original size." 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 @@ non-nil." (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) -- 2.39.2