From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 31 Mar 2021 06:25:24 +0000 (+0200)
Subject: Use lexical-binding in scroll-all.el
X-Git-Tag: emacs-28.0.90~3071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b1c646202ec715d6a1d8e6c127eaad14d81b6d4;p=emacs.git

Use lexical-binding in scroll-all.el

* lisp/scroll-all.el: Use lexical-binding.
(scroll-all-scroll-down-all, scroll-all-scroll-up-all)
(scroll-all-page-down-all, scroll-all-page-up-all)
(scroll-all-beginning-of-buffer-all)
(scroll-all-end-of-buffer-all): Doc fixes.
---

diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index 25b245e4b63..8ba0cc9e032 100644
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -1,4 +1,4 @@
-;;; scroll-all.el --- scroll all buffers together minor mode
+;;; scroll-all.el --- scroll all buffers together minor mode  -*- lexical-binding: t -*-
 
 ;; Copyright (C) 1997, 2001-2021 Free Software Foundation, Inc.
 
@@ -47,38 +47,41 @@
 	(condition-case nil
 	    (funcall func arg)
 	  ;; Ignore beginning- or end-of-buffer error in other windows.
-	  (error nil)
-	  )
+          (error nil))
 	(other-window 1)
 	(setq count (1+ count))))))
 
 (defun scroll-all-scroll-down-all (arg)
-  "Scroll down in all visible windows."
+  "Scroll down ARG lines in all visible windows."
   (interactive "p")
   (scroll-all-function-all 'next-line arg))
 
 (defun scroll-all-scroll-up-all (arg)
-  "Scroll up in all visible windows."
+  "Scroll up ARG lines in all visible windows."
   (interactive "p")
   (scroll-all-function-all 'previous-line arg))
 
 (defun scroll-all-page-down-all (arg)
-  "Page down in all visible windows."
+  "Page down in all visible windows.
+ARG is like in `scroll-up'."
   (interactive "P")
   (scroll-all-function-all 'scroll-up arg))
 
 (defun scroll-all-page-up-all (arg)
-  "Page up in all visible windows."
+  "Page up in all visible windows.
+ARG is like in `scroll-down'."
   (interactive "P")
   (scroll-all-function-all 'scroll-down arg))
 
 (defun scroll-all-beginning-of-buffer-all (arg)
-  "Go to the beginning of the buffer in all visible windows."
+  "Go to the beginning of the buffer in all visible windows.
+ARG is like in `beginning-of-buffer'."
   (interactive "P")
   (scroll-all-function-all 'beginning-of-buffer arg))
 
 (defun scroll-all-end-of-buffer-all (arg)
-  "Go to the end of the buffer in all visible windows."
+  "Go to the end of the buffer in all visible windows.
+ARG is like in `end-of-buffer'."
   (interactive "P")
   (scroll-all-function-all 'end-of-buffer arg))