Thorsten Jolitz <tjol...@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