Mercurial > emacs
comparison lisp/emulation/crisp.el @ 17904:954352993fa2
(crisp-mode): Add autoload cookie.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 May 1997 21:46:00 +0000 |
| parents | 08062aad7ef6 |
| children | 54413501e4a9 |
comparison
equal
deleted
inserted
replaced
| 17903:aa26c694525e | 17904:954352993fa2 |
|---|---|
| 86 does not load Scroll All.") | 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.4 $" | 91 (defvar crisp-version "crisp.el release 1.1/$Revision: 1.5 $" |
| 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 (defvar crisp-last-last-command nil | 94 (defvar crisp-last-last-command nil |
| 95 "The command *before* the last command.") | 95 "The command *before* the last command.") |
| 96 | 96 |
| 205 (end-of-line))) | 205 (end-of-line))) |
| 206 (setq crisp-last-last-command last-command)) | 206 (setq crisp-last-last-command last-command)) |
| 207 | 207 |
| 208 ;; Now enable the mode | 208 ;; Now enable the mode |
| 209 | 209 |
| 210 ;;;###autoload | |
| 210 (defun crisp-mode () | 211 (defun crisp-mode () |
| 211 "Toggle CRiSP emulation minor mode." | 212 "Toggle CRiSP emulation minor mode." |
| 212 (interactive nil) | 213 (interactive nil) |
| 213 (setq crisp-mode-enabled (not crisp-mode-enabled)) | 214 (setq crisp-mode-enabled (not crisp-mode-enabled)) |
| 214 (cond | 215 (cond |