Function: crisp-mode

crisp-mode is an interactive and byte-compiled function defined in crisp.el.gz.

Signature

(crisp-mode &optional ARG)

Documentation

Toggle CRiSP/Brief emulation (CRiSP mode).

This is a minor mode. If called interactively, toggle the Crisp mode mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is toggle. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer, evaluate crisp-mode(var)/crisp-mode(fun).

The mode's hook is called both when the mode is enabled and when it is disabled.

Probably introduced at or before Emacs version 20.1.

Key Bindings

Aliases

brief-mode

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/crisp.el.gz
;;;###autoload
(define-minor-mode crisp-mode
  "Toggle CRiSP/Brief emulation (CRiSP mode)."
  :keymap crisp-mode-map
  :lighter crisp-mode-mode-line-string
  (when crisp-mode
    ;; Make menu entries show M-u or f14 in preference to C-x u.
    (put 'undo :advertised-binding
         `([?\M-u] [f14] ,@(get 'undo :advertised-binding)))
    ;; Force transient-mark-mode, so that the marking routines work as
    ;; expected.  If the user turns off transient mark mode, most
    ;; things will still work fine except the crisp-(copy|kill)
    ;; functions won't work quite as nicely when regions are marked
    ;; differently and could really confuse people.  Caveat emptor.
    (if (fboundp 'transient-mark-mode)
	(transient-mark-mode t))
    (if crisp-load-scroll-all
	(require 'scroll-all))
    (if (featurep 'scroll-all)
	(define-key crisp-mode-map [(meta f1)] #'scroll-all-mode))))