Mercurial > emacs

comparison lisp/scroll-all.el @ 33422:c8f856ed18d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scroll-all-mode): Customize variable. Add autoload cookie to function.
author Dave Love <fx@gnu.org>
date Sun, 12 Nov 2000 00:49:58 +0000
parents 2d0bece94ee7
children b174db545cfd
comparison
equal deleted inserted replaced
33421:307f82858763 33422:c8f856ed18d0
36 ;; Suggestions/ideas from: 36 ;; Suggestions/ideas from:
37 ;; Rick Macdonald <rickm@vsl.com> 37 ;; Rick Macdonald <rickm@vsl.com>
38 ;; Anders Lindgren <andersl@csd.uu.se> 38 ;; Anders Lindgren <andersl@csd.uu.se>
39 39
40 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) 40 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
41 (defvar scroll-all-mode nil 41
42 "Track status of scroll locking.") 42 ;;;###autoload
43 (defcustom scroll-all-mode nil
44 "Control/track scroll locking.
45
46 Setting this variable directly does not take effect;
47 use either M-x customize or the function `scroll-all-mode'."
48 :set (lambda (symbol value) (scroll-all-mode (if value 1 0)))
49 :initialize 'custom-initialize-default
50 :require 'scroll-all
51 :type 'boolean
52 :group 'windows)
53
43 (if running-xemacs 54 (if running-xemacs
44 (add-minor-mode 'scroll-all-mode " *SL*") 55 (add-minor-mode 'scroll-all-mode " *SL*")
45 (or (assq 'scroll-all-mode-mode minor-mode-alist) 56 (or (assq 'scroll-all-mode-mode minor-mode-alist)
46 (setq minor-mode-alist 57 (setq minor-mode-alist
47 (cons '(scroll-all-mode-mode " *SL*") minor-mode-alist)))) 58 (cons '(scroll-all-mode-mode " *SL*") minor-mode-alist))))
106 (if (eq this-command 'fkey-scroll-up) 117 (if (eq this-command 'fkey-scroll-up)
107 (call-interactively 'scroll-all-page-down-all)) 118 (call-interactively 'scroll-all-page-down-all))
108 (if (eq this-command 'fkey-scroll-down) 119 (if (eq this-command 'fkey-scroll-down)
109 (call-interactively 'scroll-all-page-up-all))) 120 (call-interactively 'scroll-all-page-up-all)))
110 121
111 122 ;;;###autoload
112 (defun scroll-all-mode (arg) 123 (defun scroll-all-mode (arg)
113 "Toggle Scroll-All minor mode." 124 "Toggle Scroll-All minor mode."
114 (interactive "P") 125 (interactive "P")
115 (setq scroll-all-mode (not scroll-all-mode)) 126 (setq scroll-all-mode (not scroll-all-mode))
116 (cond 127 (cond