comparison lisp/emulation/crisp.el @ 29056:abee88aa37f0

(brief-mode): New alias.

29055:661c97b907a8

      (save-buffers-kill-emacs)
    (call-interactively 'execute-extended-command)))

;;;###autoload
(defun crisp-mode (&optional arg)
  "Toggle CRiSP emulation minor mode.
With ARG, turn CRiSP mode on if ARG is positive, off otherwise."
  (interactive "P")
  (setq crisp-mode (if (null arg)
		       (not crisp-mode)
		     (> (prefix-numeric-value arg) 0)))

	(require 'scroll-all))
    (if (featurep 'scroll-all)
	(define-key crisp-mode-map [(meta f1)] 'scroll-all-mode))
    (run-hooks 'crisp-mode-hook)))

(if (fboundp 'add-minor-mode)
    (add-minor-mode 'crisp-mode 'crisp-mode-modeline-string
		    crisp-mode-map nil 'crisp-mode)
  (or (assq 'crisp-mode minor-mode-alist)
      (setq minor-mode-alist

29056:abee88aa37f0

      (save-buffers-kill-emacs)
    (call-interactively 'execute-extended-command)))

;;;###autoload
(defun crisp-mode (&optional arg)
  "Toggle CRiSP/Brief emulation minor mode.
With ARG, turn CRiSP mode on if ARG is positive, off otherwise."
  (interactive "P")
  (setq crisp-mode (if (null arg)
		       (not crisp-mode)
		     (> (prefix-numeric-value arg) 0)))

	(require 'scroll-all))
    (if (featurep 'scroll-all)
	(define-key crisp-mode-map [(meta f1)] 'scroll-all-mode))
    (run-hooks 'crisp-mode-hook)))

;; People might use Apropos on `brief'.
;;;###autoload
(defalias 'brief-mode 'crisp-mode)

(if (fboundp 'add-minor-mode)
    (add-minor-mode 'crisp-mode 'crisp-mode-modeline-string
		    crisp-mode-map nil 'crisp-mode)
  (or (assq 'crisp-mode minor-mode-alist)
      (setq minor-mode-alist