Mercurial > emacs
comparison lisp/tumme.el @ 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 | 9bf2fbfa2516 |
| children | 43d3a49f9bd4 |
comparison
equal
deleted
inserted
replaced
| 72016:4a678a57f325 | 72017:0ec82e7ecc2f |
|---|---|
| 1796 (message "Not in tumme-thumbnail-mode") | 1796 (message "Not in tumme-thumbnail-mode") |
| 1797 (if (not (tumme-image-at-point-p)) | 1797 (if (not (tumme-image-at-point-p)) |
| 1798 (message "No thumbnail at point") | 1798 (message "No thumbnail at point") |
| 1799 (if (not file) | 1799 (if (not file) |
| 1800 (message "No original file name found") | 1800 (message "No original file name found") |
| 1801 (tumme-display-image file arg) | 1801 (tumme-create-display-image-buffer) |
| 1802 (display-buffer tumme-display-image-buffer)))))) | 1802 (display-buffer tumme-display-image-buffer) |
| 1803 (tumme-display-image file arg)))))) | |
| 1804 | |
| 1803 | 1805 |
| 1804 ;;;###autoload | 1806 ;;;###autoload |
| 1805 (defun tumme-dired-display-image (&optional arg) | 1807 (defun tumme-dired-display-image (&optional arg) |
| 1806 "Display current image file. | 1808 "Display current image file. |
| 1807 See documentation for `tumme-display-image' for more information. | 1809 See documentation for `tumme-display-image' for more information. |
| 1808 With prefix argument ARG, display image in its original size." | 1810 With prefix argument ARG, display image in its original size." |
| 1809 (interactive "P") | 1811 (interactive "P") |
| 1810 (tumme-display-image (dired-get-filename) arg) | 1812 (tumme-create-display-image-buffer) |
| 1811 (display-buffer tumme-display-image-buffer)) | 1813 (display-buffer tumme-display-image-buffer) |
| 1814 (tumme-display-image (dired-get-filename) arg)) | |
| 1812 | 1815 |
| 1813 (defun tumme-image-at-point-p () | 1816 (defun tumme-image-at-point-p () |
| 1814 "Return true if there is a tumme thumbnail at point." | 1817 "Return true if there is a tumme thumbnail at point." |
| 1815 (get-text-property (point) 'tumme-thumbnail)) | 1818 (get-text-property (point) 'tumme-thumbnail)) |
| 1816 | 1819 |
| 2151 (mouse-set-point event) | 2154 (mouse-set-point event) |
| 2152 (goto-char (posn-point (event-end event))) | 2155 (goto-char (posn-point (event-end event))) |
| 2153 (setq file (tumme-original-file-name)) | 2156 (setq file (tumme-original-file-name)) |
| 2154 (if tumme-track-movement | 2157 (if tumme-track-movement |
| 2155 (tumme-track-original-file)) | 2158 (tumme-track-original-file)) |
| 2159 (tumme-create-display-image-buffer) | |
| 2160 (display-buffer tumme-display-image-buffer) | |
| 2156 (tumme-display-image file))) | 2161 (tumme-display-image file))) |
| 2157 | 2162 |
| 2158 (defun tumme-mouse-select-thumbnail (event) | 2163 (defun tumme-mouse-select-thumbnail (event) |
| 2159 "Use mouse EVENT to select thumbnail image. | 2164 "Use mouse EVENT to select thumbnail image. |
| 2160 Track this in associated dired buffer if `tumme-track-movement' is | 2165 Track this in associated dired buffer if `tumme-track-movement' is |