Function: erc-modes

erc-modes is an interactive and byte-compiled function defined in erc.el.gz.

Signature

(erc-modes &optional HERE)

Documentation

Show the active ERC modes in the minibuffer.

If optional argument HERE is non-nil, insert version number at point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc-modes (&optional here)
  "Show the active ERC modes in the minibuffer.
If optional argument HERE is non-nil, insert version number at point."
  (interactive "P")
  (let ((string
         (mapconcat #'identity
                    (let (modes (case-fold-search nil))
                      (dolist (var (apropos-internal "^erc-.*mode$"))
                        (when (and (boundp var)
                                   (symbol-value var))
                          (setq modes (cons (symbol-name var)
                                            modes))))
                      modes)
                    ", ")))
    (if here
        (insert string)
      (if (called-interactively-p 'interactive)
          (message "%s" string)
        string))))