Thorsten Jolitz <[email protected]> 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
