[Emacs-diffs] Changes to emacs/lisp/scroll-all.el

[Richard M. Stallman]

Index: emacs/lisp/scroll-all.el
diff -c emacs/lisp/scroll-all.el:1.12 emacs/lisp/scroll-all.el:1.13
*** emacs/lisp/scroll-all.el:1.12       Mon Jul 29 09:52:57 2002
--- emacs/lisp/scroll-all.el    Mon Aug 12 13:21:40 2002
***************
*** 39,64 ****
  
  ;;; Code:
  
- (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))))
- 
  (defun scroll-all-function-all (func arg)
    "Apply function FUNC with argument ARG to all visible windows."
    (let ((num-windows (count-windows))
--- 39,44 ----
***************
*** 122,136 ****
   
  
  ;;;###autoload
! (defun scroll-all-mode (&optional arg)
    "Toggle Scroll-All minor mode.
  With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise.
  When Scroll-All mode is on, scrolling commands entered in one window
  apply to all visible windows in the same frame."
!   (interactive "P")
!   (setq scroll-all-mode
!         (if (null arg) (not scroll-all-mode)
!           (> (prefix-numeric-value arg) 0)))
    (if scroll-all-mode
        (add-hook 'post-command-hook 'scroll-all-check-to-scroll)
      (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))
--- 102,113 ----
   
  
  ;;;###autoload
! (define-minor-mode scroll-all-mode " *SL*"
    "Toggle Scroll-All minor mode.
  With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise.
  When Scroll-All mode is on, scrolling commands entered in one window
  apply to all visible windows in the same frame."
!  :global t
    (if scroll-all-mode
        (add-hook 'post-command-hook 'scroll-all-check-to-scroll)
      (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))