diff options
author | Bastien Guerry <bzg@altern.org> | 2012-12-22 16:06:47 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-12-22 16:06:47 +0100 |
commit | 43f7659664bc47d5c7262000d4257d1840635798 (patch) | |
tree | e9af843fd4e5048513ca3c89dd80f10efbdb8a28 | |
parent | 830e231ef1da5c5a1ab760a6a059551841952610 (diff) | |
download | org-mode-43f7659664bc47d5c7262000d4257d1840635798.tar.gz |
org.el: Don't populate the *Messages* with messages from some functions.
* org.el (org-cycle, org-cycle-internal-global)
(org-cycle-internal-local, org-display-outline-path): Let-bind
`message-log-max' to nil so that messages don't populate the
*Messages*.
Thanks to Michael Heerdegen for raising this and to Christopher Schmidt
and Michael Brand for suggesting a fix.
-rw-r--r-- | lisp/org.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index 938c393..2dcb289 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6230,7 +6230,8 @@ in special contexts. (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) - (let* ((limit-level + (let* (message-log-max ; Don't populate the *Messages* buffer + (limit-level (or org-cycle-max-level (and (boundp 'org-inlinetask-min-level) org-inlinetask-min-level @@ -6345,7 +6346,8 @@ in special contexts. (defun org-cycle-internal-global () "Do the global cycling action." ;; Hack to avoid display of messages for .org attachments in Gnus - (let ((ga (string-match "\\*fontification" (buffer-name)))) + (let (message-log-max ; Don't populate the *Messages* buffer + (ga (string-match "\\*fontification" (buffer-name)))) (cond ((and (eq last-command this-command) (eq org-cycle-global-status 'overview)) @@ -6377,7 +6379,8 @@ in special contexts. (defun org-cycle-internal-local () "Do the local cycling action." - (let ((goal-column 0) eoh eol eos has-children children-skipped struct) + (let (message-log-max ; Don't populate the *Messages* buffer + (goal-column 0) eoh eol eos has-children children-skipped struct) ;; First, determine end of headline (EOH), end of subtree or item ;; (EOS), and if item or heading has children (HAS-CHILDREN). (save-excursion @@ -10896,8 +10899,9 @@ SEPARATOR is passed through to `org-format-outline-path'. It separates the different parts of the path and defaults to \"/\". If JUST-RETURN-STRING is non-nil, return a string, don't display a message." (interactive "P") - (let* ((bfn (buffer-file-name (buffer-base-buffer))) - (case-fold-search nil) + (let* (case-fold-search + message-log-max ; Don't populate the *Messages* buffer + (bfn (buffer-file-name (buffer-base-buffer))) (path (and (derived-mode-p 'org-mode) (org-get-outline-path))) res) (if current (setq path (append path |