Mercurial > emacs
comparison lisp/emulation/crisp.el @ 20962:54413501e4a9
Customized.
| author | Stephen Eglen <stephen@gnu.org> |
|---|---|
| date | Sun, 22 Feb 1998 22:01:28 +0000 |
| parents | 954352993fa2 |
| children | dbd9ecc9dbac |
comparison
equal
deleted
inserted
replaced
| 20961:79530a618cd3 | 20962:54413501e4a9 |
|---|---|
| 49 ;; " *Crisp*" which may be a bit lengthy if you have a lot of things | 49 ;; " *Crisp*" which may be a bit lengthy if you have a lot of things |
| 50 ;; being displayed there. | 50 ;; being displayed there. |
| 51 | 51 |
| 52 ;; All these overrides should go *before* the (require 'crisp) statement. | 52 ;; All these overrides should go *before* the (require 'crisp) statement. |
| 53 | 53 |
| 54 (defgroup crisp nil | |
| 55 "Emulator for CRiSP and Brief key bindings." | |
| 56 :prefix "crisp-" | |
| 57 :group 'emulations) | |
| 58 | |
| 54 ;; local variables | 59 ;; local variables |
| 55 | 60 |
| 56 (defvar crisp-mode-map (copy-keymap (current-global-map)) | 61 (defvar crisp-mode-map (copy-keymap (current-global-map)) |
| 57 "Local keymap for CRiSP emulation mode. | 62 "Local keymap for CRiSP emulation mode. |
| 58 All the emulation bindings are done here instead of globally.") | 63 All the emulation bindings are done here instead of globally.") |
| 59 | 64 |
| 60 (defvar crisp-mode-modeline-string " *CRiSP*" | 65 (defcustom crisp-mode-modeline-string " *CRiSP*" |
| 61 "String to display in the modeline when CRiSP emulation mode is enabled.") | 66 "String to display in the modeline when CRiSP emulation mode is enabled." |
| 67 :type 'string | |
| 68 :group 'crisp) | |
| 62 | 69 |
| 63 (defvar crisp-mode-original-keymap (copy-keymap (current-global-map)) | 70 (defvar crisp-mode-original-keymap (copy-keymap (current-global-map)) |
| 64 "The original keymap before CRiSP emulation mode remaps anything. | 71 "The original keymap before CRiSP emulation mode remaps anything. |
| 65 This keymap is restored when CRiSP emulation mode is disabled.") | 72 This keymap is restored when CRiSP emulation mode is disabled.") |
| 66 | 73 |
| 67 (defvar crisp-mode-enabled nil | 74 (defcustom crisp-mode-enabled nil |
| 68 "Track status of CRiSP emulation mode. | 75 "Track status of CRiSP emulation mode. |
| 69 A value of nil means CRiSP mode is not enabled. A value of t | 76 A value of nil means CRiSP mode is not enabled. A value of t |
| 70 indicates CRiSP mode is enabled.") | 77 indicates CRiSP mode is enabled." |
| 71 | 78 :type 'boolean |
| 72 (defvar crisp-override-meta-x t | 79 :group 'crisp) |
| 80 | |
| 81 (defcustom crisp-override-meta-x t | |
| 73 "Controls overriding the normal Emacs M-x key binding in the CRiSP emulator. | 82 "Controls overriding the normal Emacs M-x key binding in the CRiSP emulator. |
| 74 Normally the CRiSP emulator rebinds M-x to save-buffers-exit-emacs | 83 Normally the CRiSP emulator rebinds M-x to save-buffers-exit-emacs |
| 75 and provides the usual M-x functionality on the F10 key. | 84 and provides the usual M-x functionality on the F10 key. |
| 76 | 85 |
| 77 If this variable is nil when you start the CRiSP emulator, it | 86 If this variable is nil when you start the CRiSP emulator, it |
| 78 does not alter the binding of M-x.") | 87 does not alter the binding of M-x." |
| 79 | 88 :type 'boolean |
| 80 (defvar crisp-load-scroll-all t | 89 :group 'crisp) |
| 90 | |
| 91 (defcustom crisp-load-scroll-all t | |
| 81 "Controls loading of the Scroll All mode in the CRiSP emulator. | 92 "Controls loading of the Scroll All mode in the CRiSP emulator. |
| 82 Its Default behavior is to load and enable the Scroll All minor mode | 93 Its Default behavior is to load and enable the Scroll All minor mode |
| 83 package when enabling the CRiSP emulator. | 94 package when enabling the CRiSP emulator. |
| 84 | 95 |
| 85 If this variable is nil when you start the CRiSP emulator, it | 96 If this variable is nil when you start the CRiSP emulator, it |
| 86 does not load Scroll All.") | 97 does not load Scroll All." |
| 87 | 98 :type 'boolean |
| 88 (defvar crisp-load-hook nil | 99 :group 'crisp) |
| 89 "Hooks to run after loadint the CRiSP emulator package.") | 100 |
| 90 | 101 (defcustom crisp-load-hook nil |
| 91 (defvar crisp-version "crisp.el release 1.1/$Revision: 1.5 $" | 102 "Hooks to run after loadint the CRiSP emulator package." |
| 103 :type 'hook | |
| 104 :group 'crisp) | |
| 105 | |
| 106 (defvar crisp-version "crisp.el release 1.1/$Revision: 1.6 $" | |
| 92 "The release number and RCS version for the CRiSP emulator.") | 107 "The release number and RCS version for the CRiSP emulator.") |
| 93 | 108 |
| 94 (defvar crisp-last-last-command nil | 109 (defvar crisp-last-last-command nil |
| 95 "The command *before* the last command.") | 110 "The command *before* the last command.") |
| 96 | 111 |