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)