X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/052e4f5ec1a8244d005739dc49306d28c888e60f..8b9266575b536ee7e1f4eae6ea869513d77e0b74:/lisp/scroll-all.el diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index 47c5efff8d..f3bd3d334f 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el @@ -1,4 +1,4 @@ -;;; scroll-all.el -- scroll all buffers together minor mode +;;; scroll-all.el --- scroll all buffers together minor mode ;; Copyright (C) 1997 Free Software Foundation, Inc. @@ -22,7 +22,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Commentary +;;; Commentary: ;; This mode allows multiple buffers to be 'locked' so that scrolling ;; up or down lines in any buffer causes all the buffers to mirror ;; the scrolling. It hooks into the post-command-hook to check for @@ -37,99 +37,84 @@ ;; Rick Macdonald ;; Anders Lindgren -(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) +;;; Code: -;;;###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) - (setq minor-mode-alist - (cons '(scroll-all-mode-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." (let ((num-windows (count-windows)) (count 1)) - (if (> num-windows 1) - ( progn (other-window 1) - (while (< count num-windows) - (if (not (eq (point) (point-max))) - (progn (call-interactively 'next-line))) - (other-window 1) - (setq count (1+ count))))))) + (when (> num-windows 1) + (other-window 1) + (while (< count num-windows) + (condition-case nil + (funcall func arg) + ;; Ignore beginning- or end-of-buffer error in other windows. + (error nil) + ) + (other-window 1) + (setq count (1+ count)))))) + +(defun scroll-all-scroll-down-all (arg) + "Scroll down in all visible windows." + (interactive "p") + (scroll-all-function-all 'next-line arg)) (defun scroll-all-scroll-up-all (arg) - "Scroll up all visible windows." - (interactive "P") - (let ((num-windows (count-windows)) - (count 1)) - (if (> num-windows 1) - ( progn (other-window 1) - (while (< count num-windows) - (if (not (eq (point) (point-min))) - (progn (call-interactively 'previous-line))) - (other-window 1) - (setq count (1+ count))))))) + "Scroll up in all visible windows." + (interactive "p") + (scroll-all-function-all 'previous-line arg)) (defun scroll-all-page-down-all (arg) "Page down in all visible windows." (interactive "P") - (let ((num-windows (count-windows)) - (count 1)) - (if (> num-windows 1) - (progn (other-window 1) - (while (< count num-windows) - (call-interactively 'fkey-scroll-up) - (other-window 1) - (setq count (1+ count))))))) + (scroll-all-function-all 'scroll-up arg)) (defun scroll-all-page-up-all (arg) "Page up in all visible windows." (interactive "P") - (let ((num-windows (count-windows)) - (count 1)) - (if (> num-windows 1) - (progn (other-window 1) - (while (< count num-windows) - (call-interactively 'fkey-scroll-down) - (other-window 1) - (setq count (1+ count))))))) + (scroll-all-function-all 'scroll-down arg)) + +(defun scroll-all-beginning-of-buffer-all (arg) + "Go to the beginning of the buffer in all visible windows." + (interactive "P") + (scroll-all-function-all 'beginning-of-buffer arg)) + +(defun scroll-all-end-of-buffer-all (arg) + "Go to the end of the buffer in all visible windows." + (interactive "P") + (scroll-all-function-all 'end-of-buffer arg)) (defun scroll-all-check-to-scroll () - "Check `last-command' to see if a scroll was done." - (if (eq this-command 'next-line) - (call-interactively 'scroll-all-scroll-down-all)) - (if (eq this-command 'previous-line) - (call-interactively 'scroll-all-scroll-up-all)) - (if (eq this-command 'fkey-scroll-up) - (call-interactively 'scroll-all-page-down-all)) - (if (eq this-command 'fkey-scroll-down) - (call-interactively 'scroll-all-page-up-all))) + "Check `this-command' to see if a scroll is to be done." + (cond ((eq this-command 'next-line) + (call-interactively 'scroll-all-scroll-down-all)) + ((eq this-command 'previous-line) + (call-interactively 'scroll-all-scroll-up-all)) + ((eq this-command 'scroll-up) + (call-interactively 'scroll-all-page-down-all)) + ((eq this-command 'scroll-down) + (call-interactively 'scroll-all-page-up-all)) + ((eq this-command 'beginning-of-buffer) + (call-interactively 'scroll-all-beginning-of-buffer-all)) + ((eq this-command 'end-of-buffer) + (call-interactively 'scroll-all-end-of-buffer-all)))) + ;;;###autoload -(defun scroll-all-mode (arg) - "Toggle Scroll-All minor mode." - (interactive "P") - (setq scroll-all-mode (not scroll-all-mode)) - (cond - ((eq scroll-all-mode 't) - (add-hook 'post-command-hook 'scroll-all-check-to-scroll)) - ((eq scroll-all-mode 'nil) - (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))) +(define-minor-mode scroll-all-mode + "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." + nil " *SL*" nil + :global t + :group 'windows + :group 'scrolling + (if scroll-all-mode + (add-hook 'post-command-hook 'scroll-all-check-to-scroll) + (remove-hook 'post-command-hook 'scroll-all-check-to-scroll))) (provide 'scroll-all) -;; scroll-all.el ends here +;;; scroll-all.el ends here