-(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
-
-;;;###autoload
-(defcustom scroll-all-mode nil
- "Control/track scroll locking.
-
-Setting this variable directly does not take effect;
-use either M-x customize or the function `scroll-all-mode'."
- :set (lambda (symbol value) (scroll-all-mode (if value 1 0)))
- :initialize 'custom-initialize-default
- :require 'scroll-all
- :type 'boolean
- :group 'windows)
-
-(if running-xemacs
- (add-minor-mode 'scroll-all-mode " *SL*")
- (or (assq 'scroll-all-mode minor-mode-alist)
- (setq minor-mode-alist
- (cons '(scroll-all-mode " *SL*") minor-mode-alist))))
-
-(defun scroll-all-scroll-down-all (arg)
- "Scroll down all visible windows."
- (interactive "P")
+(defun scroll-all-function-all (func arg)
+ "Apply function FUNC with argument ARG to all visible windows."