From 052e4f5ec1a8244d005739dc49306d28c888e60f Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 12 Nov 2000 00:49:58 +0000 Subject: [PATCH] (scroll-all-mode): Customize variable. Add autoload cookie to function. --- lisp/scroll-all.el | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) 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 (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") -- 2.39.5