The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improved image rendering: fix max-height
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
e4d0e6e
..
0cd846a
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-1133,7
+1133,11
@@
If ADDRESS is not supplied or nil the record is rendered as an
(window (get-buffer-window elpher-buffer-name)))
(when window
(setf (image-property image :max-width) (window-pixel-width window))
(window (get-buffer-window elpher-buffer-name)))
(when window
(setf (image-property image :max-width) (window-pixel-width window))
- (setf (image-property image :max-height) (window-pixel-height window)))
+ (setf (image-property image :max-height) (- (window-pixel-height window)
+ (window-header-line-height window)
+ (window-mode-line-height window)
+ (window-scroll-bar-height window)
+ (window-bottom-divider-width window))))
(elpher-with-clean-buffer
(insert-image image)
(elpher-restore-pos)))
(elpher-with-clean-buffer
(insert-image image)
(elpher-restore-pos)))