-(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 \\[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))))
-