Mercurial > emacs
comparison lisp/emulation/crisp.el @ 17599:dd277f4e6737
(crisp-load-scroll-all): Renamed from ...-lock.
(crisp-mode): Use scroll-all... not scroll-lock...
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 29 Apr 1997 21:11:33 +0000 |
parents | b0fb37e0d14b |
children | 08062aad7ef6 |
comparison
equal
deleted
inserted
replaced
17598:b3016633740a | 17599:dd277f4e6737 |
---|---|
31 | 31 |
32 ;; Enable this package by putting the following in your .emacs | 32 ;; Enable this package by putting the following in your .emacs |
33 ;; (require 'crisp) | 33 ;; (require 'crisp) |
34 ;; and use M-x crisp-mode to toggle it on or off. | 34 ;; and use M-x crisp-mode to toggle it on or off. |
35 | 35 |
36 ;; This package will automatically default to loading the scroll-lock.el | 36 ;; This package will automatically default to loading the scroll-all.el |
37 ;; package unless you put (setq crisp-load-scroll-lock nil) in your | 37 ;; package unless you put (setq crisp-load-scroll-lock nil) in your |
38 ;; .emacs. If this feature is enabled, it will bind Meta-F1 to the | 38 ;; .emacs. If this feature is enabled, it will bind Meta-F1 to the |
39 ;; scroll-lock mode toggle. | 39 ;; scroll-all mode toggle. |
40 | 40 |
41 ;; Also, the default keybindings for this mode override the Meta-x key to | 41 ;; Also, the default keybindings for this mode override the Meta-x key to |
42 ;; make it exit the editor. If you don't like this change, you can | 42 ;; make it exit the editor. If you don't like this change, you can |
43 ;; prevent this key from being rebound with | 43 ;; prevent this key from being rebound with |
44 ;; (setq crisp-override-meta-x nil) in your .emacs. | 44 ;; (setq crisp-override-meta-x nil) in your .emacs. |
75 and provides the usual M-x functionality on the F10 key. | 75 and provides the usual M-x functionality on the F10 key. |
76 | 76 |
77 If this variable is nil when you start the CRiSP emulator, it | 77 If this variable is nil when you start the CRiSP emulator, it |
78 does not alter the binding of M-x.") | 78 does not alter the binding of M-x.") |
79 | 79 |
80 (defvar crisp-load-scroll-lock t | 80 (defvar crisp-load-scroll-all t |
81 "Controls loading of the Scroll Lock in the CRiSP emulator. | 81 "Controls loading of the Scroll All mode in the CRiSP emulator. |
82 Its Default behavior is to load and enable the Scroll Lock minor mode | 82 Its Default behavior is to load and enable the Scroll All minor mode |
83 package when enabling the CRiSP emulator. | 83 package when enabling the CRiSP emulator. |
84 | 84 |
85 If this variable is nil when you start the CRiSP emulator, it | 85 If this variable is nil when you start the CRiSP emulator, it |
86 does not load Scroll Lock.") | 86 does not load Scroll All.") |
87 | 87 |
88 (defvar crisp-load-hook nil | 88 (defvar crisp-load-hook nil |
89 "Hooks to run after loadint the CRiSP emulator package.") | 89 "Hooks to run after loadint the CRiSP emulator package.") |
90 | 90 |
91 (defvar crisp-version "crisp.el release 1.1/$Revision: 1.17 $" | 91 (defvar crisp-version "crisp.el release 1.1/$Revision: 1.3 $" |
92 "The release number and RCS version for the CRiSP emulator.") | 92 "The release number and RCS version for the CRiSP emulator.") |
93 | 93 |
94 (if (string-match "XEmacs\\Lucid" emacs-version) | 94 (if (string-match "XEmacs\\Lucid" emacs-version) |
95 (add-minor-mode 'crisp-mode-enabled crisp-mode-modeline-string) | 95 (add-minor-mode 'crisp-mode-enabled crisp-mode-modeline-string) |
96 (or (assq 'crisp-mode-enabled minor-mode-alist) | 96 (or (assq 'crisp-mode-enabled minor-mode-alist) |
208 (interactive nil) | 208 (interactive nil) |
209 (setq crisp-mode-enabled (not crisp-mode-enabled)) | 209 (setq crisp-mode-enabled (not crisp-mode-enabled)) |
210 (cond | 210 (cond |
211 ((eq crisp-mode-enabled 't) | 211 ((eq crisp-mode-enabled 't) |
212 (use-global-map crisp-mode-map) | 212 (use-global-map crisp-mode-map) |
213 (if crisp-load-scroll-lock | 213 (if crisp-load-scroll-all |
214 (require 'scroll-lock)) | 214 (require 'scroll-all)) |
215 (if (featurep 'scroll-lock) | 215 (if (featurep 'scroll-all) |
216 (define-key crisp-mode-map [(meta f1)] 'scroll-lock-mode)) | 216 (define-key crisp-mode-map [(meta f1)] 'scroll-all-mode)) |
217 (run-hooks 'crisp-load-hook)) | 217 (run-hooks 'crisp-load-hook)) |
218 ((eq crisp-mode-enabled 'nil) | 218 ((eq crisp-mode-enabled 'nil) |
219 (use-global-map crisp-mode-original-keymap)))) | 219 (use-global-map crisp-mode-original-keymap)))) |
220 | 220 |
221 (provide 'crisp) | 221 (provide 'crisp) |