[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master a042e0d 28/50: avoid error when user sets on-screen-treat-
From: |
Michael Heerdegen |
Subject: |
[elpa] master a042e0d 28/50: avoid error when user sets on-screen-treat-cut-lines to just t |
Date: |
Mon, 09 Nov 2015 03:35:49 +0000 |
branch: master
commit a042e0d4f39c0189deb20f360bf50dca6a6ba265
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
avoid error when user sets on-screen-treat-cut-lines to just t
instead of a float
---
on-screen.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/on-screen.el b/on-screen.el
index bc73730..fa7027c 100644
--- a/on-screen.el
+++ b/on-screen.el
@@ -284,7 +284,8 @@ Type M-x customize-group on-screen RET for configuration."
(if (not (cddr vis))
start
(cl-destructuring-bind (_x _y rtop _rbot rowh _vpos) vis
- (if (< (/ (float rtop) (+ rtop rowh)) on-screen-treat-cut-lines) ;;
count as visible
+ (if (< (/ (float rtop) (+ rtop rowh))
+ (if (floatp on-screen-treat-cut-lines)
on-screen-treat-cut-lines .4)) ;; count as visible
start
(with-current-buffer (window-buffer window)
(save-excursion
@@ -299,7 +300,8 @@ Type M-x customize-group on-screen RET for configuration."
(if (not (cddr vis))
end
(cl-destructuring-bind (_x _y _rtop rbot rowh _vpos) vis
- (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) ;;
count as visible
+ (if (< (/ (float rbot) (+ rbot rowh))
+ (if (floatp on-screen-treat-cut-lines)
on-screen-treat-cut-lines .4)) ;; count as visible
end
(with-current-buffer (window-buffer window)
(save-excursion
- [elpa] master 49d5546 42/50: fix whitespace, no code change, (continued)
- [elpa] master 49d5546 42/50: fix whitespace, no code change, Michael Heerdegen, 2015/11/08
- [elpa] master 7bb7f0d 46/50: add .gitignore, Michael Heerdegen, 2015/11/08
- [elpa] master 009d1a4 44/50: wrap (require 'cl-lib) in eval-when-compile, Michael Heerdegen, 2015/11/08
- [elpa] master 387cb55 40/50: add on-screen-unload-function, Michael Heerdegen, 2015/11/08
- [elpa] master 1570a0d 49/50: add "on-screen" to externals-list, Michael Heerdegen, 2015/11/08
- [elpa] master d08c167 48/50: on-screen: merge from remote repo, Michael Heerdegen, 2015/11/08
- [elpa] master 8e3c53d 34/50: bump version to 1.2, Michael Heerdegen, 2015/11/08
- [elpa] master 13bf083 39/50: handle on-screen-treat-cut-lines -> t nicely, Michael Heerdegen, 2015/11/08
- [elpa] master e023bf8 45/50: bump version, Michael Heerdegen, 2015/11/08
- [elpa] master 65bbd8d 50/50: Merge commit 'a66fc082499967627cb89802fc2783accea5cb4b', Michael Heerdegen, 2015/11/08
- [elpa] master a042e0d 28/50: avoid error when user sets on-screen-treat-cut-lines to just t,
Michael Heerdegen <=
- [elpa] master dd3930b 43/50: convey copyright to the FSF, Michael Heerdegen, 2015/11/08
- [elpa] master a66fc08 47/50: remove redundant :group specs, Michael Heerdegen, 2015/11/08