canonical verbose?

[Andreas Röhler]

Hi,

writing quite often commands which should give some reports when being 
successful, like that:

(defun ar-up-list ()
  "Returns position reached when successful, nil otherwise"
  (interactive)
  (let ((orig (point))
        (pps (syntax-ppss))
        erg)
    (and (nth 8 pps) (goto-char (nth 8 pps)))
    (ignore-errors (up-list))
    (and (< orig (point))(setq erg (point)))
    (when (interactive-p) (message "%s" erg))
    erg))

However, binding the message at interactive-usage alone seems not optimal.

Does Emacs provide some variable setting verbosity?

TIA,

Andreas