X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/75272a3a3dfec64041e927b0bc98dcf56d541562..ec38bb4664eacfe1d91ae56c10aa03a5d6d1ca96:/lisp/scroll-all.el diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index a25f30eefe..f2a953f7a2 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el @@ -1,6 +1,6 @@ ;;; scroll-all.el --- scroll all buffers together minor mode -;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Gary D. Foster ;; Keywords: scroll crisp brief lock @@ -19,8 +19,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; This mode allows multiple buffers to be 'locked' so that scrolling @@ -39,101 +39,83 @@ ;;; 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 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 minor-mode-alist) - (setq minor-mode-alist - (cons '(scroll-all-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 '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 '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 `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)))) + (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) +;;; arch-tag: db20089a-b157-45df-b5d4-2430e60acdd8 ;;; scroll-all.el ends here