emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master c246d44 02/22: diff-hl-define-bitmaps: Handle text scaling


From: Dmitry Gutov
Subject: [elpa] master c246d44 02/22: diff-hl-define-bitmaps: Handle text scaling and line spacing better
Date: Fri, 02 Jan 2015 23:46:25 +0000

branch: master
commit c246d4451c3ff86bfc562a22d90647b9a4b483be
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    diff-hl-define-bitmaps: Handle text scaling and line spacing better
---
 diff-hl.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/diff-hl.el b/diff-hl.el
index 4e73bb7..73276c3 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -122,11 +122,11 @@
                          (numberp text-scale-mode-amount))
                     (expt text-scale-mode-step text-scale-mode-amount)
                   1))
-         (spacing (or (default-value 'line-spacing) 0))
-         (h (round (+ (* (frame-char-height) scale)
-                      (if (floatp spacing)
-                          (* (frame-char-height) spacing)
-                        spacing))))
+         (spacing (or (and (display-graphic-p) (default-value 'line-spacing)) 
0))
+         (h (+ (ceiling (* (frame-char-height) scale))
+               (if (floatp spacing)
+                   (truncate (* (frame-char-height) spacing))
+                 spacing)))
          (w (frame-parameter nil 'left-fringe))
          (middle (make-vector h (expt 2 (1- w))))
          (ones (1- (expt 2 w)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]