mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-24 22:02:52 +00:00
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.
This commit is contained in:
parent
830e231ef1
commit
43f7659664
14
lisp/org.el
14
lisp/org.el
|
@ -6230,7 +6230,8 @@ in special contexts.
|
||||||
(and org-cycle-level-after-item/entry-creation
|
(and org-cycle-level-after-item/entry-creation
|
||||||
(or (org-cycle-level)
|
(or (org-cycle-level)
|
||||||
(org-cycle-item-indentation))))
|
(org-cycle-item-indentation))))
|
||||||
(let* ((limit-level
|
(let* (message-log-max ; Don't populate the *Messages* buffer
|
||||||
|
(limit-level
|
||||||
(or org-cycle-max-level
|
(or org-cycle-max-level
|
||||||
(and (boundp 'org-inlinetask-min-level)
|
(and (boundp 'org-inlinetask-min-level)
|
||||||
org-inlinetask-min-level
|
org-inlinetask-min-level
|
||||||
|
@ -6345,7 +6346,8 @@ in special contexts.
|
||||||
(defun org-cycle-internal-global ()
|
(defun org-cycle-internal-global ()
|
||||||
"Do the global cycling action."
|
"Do the global cycling action."
|
||||||
;; Hack to avoid display of messages for .org attachments in Gnus
|
;; 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
|
(cond
|
||||||
((and (eq last-command this-command)
|
((and (eq last-command this-command)
|
||||||
(eq org-cycle-global-status 'overview))
|
(eq org-cycle-global-status 'overview))
|
||||||
|
@ -6377,7 +6379,8 @@ in special contexts.
|
||||||
|
|
||||||
(defun org-cycle-internal-local ()
|
(defun org-cycle-internal-local ()
|
||||||
"Do the local cycling action."
|
"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
|
;; First, determine end of headline (EOH), end of subtree or item
|
||||||
;; (EOS), and if item or heading has children (HAS-CHILDREN).
|
;; (EOS), and if item or heading has children (HAS-CHILDREN).
|
||||||
(save-excursion
|
(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 \"/\".
|
the different parts of the path and defaults to \"/\".
|
||||||
If JUST-RETURN-STRING is non-nil, return a string, don't display a message."
|
If JUST-RETURN-STRING is non-nil, return a string, don't display a message."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(let* ((bfn (buffer-file-name (buffer-base-buffer)))
|
(let* (case-fold-search
|
||||||
(case-fold-search nil)
|
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)))
|
(path (and (derived-mode-p 'org-mode) (org-get-outline-path)))
|
||||||
res)
|
res)
|
||||||
(if current (setq path (append path
|
(if current (setq path (append path
|
||||||
|
|
Loading…
Reference in a new issue