Re: How to turn off visibility-state messages from 'org-cycle?

[Thorsten Jolitz <tjolitz@gmail.com>]

Thorsten Jolitz <tjolitz@gmail.com> writes:

oops, there was a left-over from inspiring `toggle-truncate-lines' in my
example function, here is the fixed version:

#+begin_src emacs-lisp
  (defvar org-cycle-silently nil
    "Suppress visibility-state-change messages when non-nil.")

  (defun org-toggle-silent-cycling (&optional arg)
    "Toggle silent cycling between visibility states.

  When silent cycling is off, visibility state-change messages are
  written to stdout (i.e. the *Messages* buffer), otherwise these
  messages are suppressed. With prefix argument ARG, cycle silently
  if ARG is positive, otherwise write state-change messages."
    (interactive "P")
    (setq org-cycle-silently
          (if (null arg)
              (not org-cycle-silently)
            (> (prefix-numeric-value arg) 0)))
    (message "Silent visibility cycling %s"
             (if org-cycle-silently "enabled" "disabled")))
#+end_src

-- 
cheers,
Thorsten