From: Dave Love <fx@gnu.org>
Date: Sun, 12 Nov 2000 00:49:58 +0000 (+0000)
Subject: (scroll-all-mode): Customize variable.  Add
X-Git-Tag: emacs-pretest-21.0.90~117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=052e4f5ec1a8244d005739dc49306d28c888e60f;p=emacs.git

(scroll-all-mode): Customize variable.  Add
autoload cookie to function.
---

diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index 71194cb70a6..47c5efff8d3 100644
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -38,8 +38,19 @@
 ;;    Anders Lindgren <andersl@csd.uu.se>
 
 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
-(defvar scroll-all-mode nil
-  "Track status of scroll locking.")
+
+;;;###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-mode minor-mode-alist)
@@ -108,7 +119,7 @@
   (if (eq this-command 'fkey-scroll-down)
       (call-interactively 'scroll-all-page-up-all)))
 
-
+;;;###autoload
 (defun scroll-all-mode (arg)
   "Toggle Scroll-All minor mode."
   (interactive "P")