branch: master commit cdf787ad4025c02f68eaf1f5febb8aa3101f3c8c Author: Michael Heerdegen <michael_heerde...@web.de> Commit: Michael Heerdegen <michael_heerde...@web.de>
removed optional arg of on-screen-record-ranges (not used) --- on-screen.el | 8 +++----- 1 files changed, 3 insertions(+), 5 deletions(-) diff --git a/on-screen.el b/on-screen.el index 9e0f08a..d5fc7bd 100644 --- a/on-screen.el +++ b/on-screen.el @@ -407,17 +407,15 @@ only the windows of the selected frame." (mapcar (lambda (frame) (window-list frame)) (if all-frames (frame-list) (list (selected-frame)))))) -(defun on-screen-record-ranges (&optional all-frames) - "Remember visible buffer parts. -With ALL-FRAMES non-nil, include all windows of all live frames. -Else, consider only the windows of the selected frame." +(defun on-screen-record-ranges () + "Remember visible buffer parts in the selected frame." ;; This normally goes to `pre-command-hook'. (condition-case nil (mapc (lambda (win) (with-current-buffer (window-buffer win) (when (on-screen-enabled-p) (on-screen-record-data win (list (on-screen-window-start win) (on-screen-window-end win)))))) - (on-screen-get-windows all-frames)) + (on-screen-get-windows)) ((debug error) nil))) (defun on-screen-after-scroll (win display-start)