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)

Reply via email to