add .gitignore

bump version

wrap (require 'cl-lib) in eval-when-compile

convey copyright to the FSF

fix whitespace, no code change

bump version to 1.3

add on-screen-unload-function

handle on-screen-treat-cut-lines -> t nicely

make comments respect conventions

silence compiler when hexrgb.el is not installed

use separate face for "line" style highlighting

change default of on-screen-treat-cut-lines back to nil

bump version to 1.2

new user variable: on-screen-inhibit-highlighting

new option: on-screen-drawing-threshold

bump version to 1.1

use lexical binding

set default value of on-screen-treat-cut-lines to t

avoid error when user sets on-screen-treat-cut-lines to just t

instead of a float

small changes in header

add Package-Requires header

use a more modest gray for on-screen-narrow-line face

convert to cl-lib

add workaround for bug#16796

always remove highlighting when a command caused multiple changes

minor change (rename two functions)

Update copyright

add missing autoload for global-on-screen-mode alias

fix invisible fringe markers positioned in invisible lines (e.g. org)

on-screen-beginning-of-line, on-screen-end-of-line: use
forward-visible-line, end-of-visible-line

new option: on-screen-remove-when-edit, decrease overlay priority

- Make overlay removing when changing a buffer customizable (new option
  `on-screen-remove-when-edit').  Off by default (previously, the
  feature was always enabled).

- Radically decreased on-screen-overlay-priority (to 30).  It should be
  less than isearch and ediff overlay priorities, but still larger than
  e.g. stripe-buffer overlay priority.

after-scroll: don't remove highlighting when called in succession

avoid removing highlighting when `window-scroll-functions' is
called multiple times in succession (follow-mode does that)

minor change

defface on-screen-shadow: make slightly more colorful

Just grey is too common, e.g. used by "stripe-buffer".  Using a bit
color makes it more distinguishable form other faces.

comment in on-screen-make-narrow-line-overlay

new-var on-screen-overlay-priority

Use it instead of hardcoding a value

remove visual line stuff

This didn't work well at all.  And when I was in w3m, and there were
buttons, and I hit M-: foo, I got this error:

Debugger entered--Lisp error: (args-out-of-range 2501 2501)
  line-pixel-height()
  line-move(-1 t)
  on-screen-beginning-of-line(0)
  (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))
  (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point)))
  (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))))
  (let* ((#1=#:--cl-rest-- vis) (_x (if (= (length #1#) 6) (car-safe (prog1 #1# (setq #1# (cdr #1#)))) (signal (quote wrong-number-of-arguments) (list nil (length #1#))))) (_y (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_rtop (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rbot (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rowh (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point)))))
  (progn (let* ((#1=#:--cl-rest-- vis) (_x (if (= (length #1#) 6) (car-safe (prog1 #1# (setq #1# ...))) (signal (quote wrong-number-of-arguments) (list nil (length #1#))))) (_y (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_rtop (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rbot (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (rowh (car-safe (prog1 #1# (setq #1# (cdr #1#))))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))))))
  (if (not (cddr vis)) end (progn (let* ((#1=#:--cl-rest-- vis) (_x (if (= (length #1#) 6) (car-safe (prog1 #1# ...)) (signal (quote wrong-number-of-arguments) (list nil ...)))) (_y (car-safe (prog1 #1# (setq #1# ...)))) (_rtop (car-safe (prog1 #1# (setq #1# ...)))) (rbot (car-safe (prog1 #1# (setq #1# ...)))) (rowh (car-safe (prog1 #1# (setq #1# ...)))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point)))))))
  (let* ((end (window-end window)) (vis (and on-screen-treat-cut-lines (pos-visible-in-window-p (1- end) window t)))) (if (not (cddr vis)) end (progn (let* ((#1=#:--cl-rest-- vis) (_x (if (= ... 6) (car-safe ...) (signal ... ...))) (_y (car-safe (prog1 #1# ...))) (_rtop (car-safe (prog1 #1# ...))) (rbot (car-safe (prog1 #1# ...))) (rowh (car-safe (prog1 #1# ...))) (_vpos (car #1#))) (if (< (/ (float rbot) (+ rbot rowh)) on-screen-treat-cut-lines) end (save-current-buffer (set-buffer (window-buffer window)) (save-excursion (goto-char end) (on-screen-beginning-of-line 0) (point))))))))
  on-screen-window-end(#<window 0x2f99f40 on *Backtrace*>)
  (list (on-screen-window-start win) (on-screen-window-end win))
  (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win)))
  (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win))))
  (if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win)))))
  (save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win))))))
  (lambda (win) (save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win)))))))(#<window 0x2f99f40 on *Backtrace*>)
  mapc((lambda (win) (save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win))))))) (#<window 0x2f99f40 on *Backtrace*>))
  (condition-case nil (mapc (function (lambda (win) (save-current-buffer (set-buffer (window-buffer win)) (if (on-screen-enabled-p) (progn (on-screen-record-data win ...)))))) (on-screen-get-windows)) ((debug error) nil))
  on-screen-record-ranges()
  read-from-minibuffer("" nil (keymap (7 . minibuffer-keyboard-quit) keymap (9 . completion-at-point) (27 keymap (9 . completion-at-point)) keymap (18 . helm-minibuffer-history) (menu-bar keymap (minibuf #1="Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "\r" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") #1#)) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . minibuffer-keyboard-quit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . previous-history-element) (up . previous-history-element) (prior . previous-history-element) (XF86Forward . next-history-element) (down . next-history-element) (next . next-history-element) (27 keymap (44 . my-mb-yank-text-before-point) (46 . my-mb-yank-text-at-point) (107 . delete-field-at-point) (114 . previous-matching-history-element) (115 . next-matching-history-element) (112 . previous-history-element) (110 . next-history-element))) nil read-expression-history)
  my-read--expression("")
  byte-code("\301\302\303\304\305!\"!\bD\207" [current-prefix-arg read format "(my-eval-in-mb-wrapper %s)" my-read--expression ""] 5)
  call-interactively(my-eval-expression nil nil)
  command-execute(my-eval-expression)

on-screen-treat-cut-lines, default nil (faster)

added homepage to header

removed optional arg of on-screen-record-ranges (not used)

removed lexical-binding: t (confusing because not necessary)

minor correction

wrapped on-screen-record-data in condition-case

mc

Doc and name cleanups

increased def value of on-screen-delay

Initial commit