Function: gmm-error

gmm-error is an autoloaded and byte-compiled function defined in gmm-utils.el.gz.

Signature

(gmm-error LEVEL &rest ARGS)

Documentation

Beep an error if LEVEL is equal to or less than gmm-verbose.

ARGS are passed to message.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gmm-utils.el.gz
;;;###autoload
(defun gmm-error (level &rest args)
  "Beep an error if LEVEL is equal to or less than `gmm-verbose'.
ARGS are passed to `message'."
  (when (<= (floor level) gmm-verbose)
    (apply #'message args)
    (ding)
    (let (duration)
      (when (and (floatp level)
		 (not (zerop (setq duration (* 10 (- level (floor level)))))))
	(sit-for duration))))
  nil)