forked from mirrors/org-mode
Move `org-unlogged-message' to "org-macs.el"
* lisp/org.el (org-unlogged-message): Move function to... * lisp/org-macs.el: ... here.
This commit is contained in:
parent
fc5abc2d55
commit
6f89177ee6
|
@ -31,7 +31,6 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(declare-function org-key "org" (key))
|
|
||||||
(declare-function org-defkey "org" (keymap key def))
|
(declare-function org-defkey "org" (keymap key def))
|
||||||
|
|
||||||
|
|
||||||
|
@ -743,6 +742,11 @@ program is needed for, so that the error message can be more informative."
|
||||||
"Display the given MESSAGE as a warning."
|
"Display the given MESSAGE as a warning."
|
||||||
(display-warning 'org message :warning))
|
(display-warning 'org message :warning))
|
||||||
|
|
||||||
|
(defun org-unlogged-message (&rest args)
|
||||||
|
"Display a message, but avoid logging it in the *Messages* buffer."
|
||||||
|
(let ((message-log-max nil))
|
||||||
|
(apply #'message args)))
|
||||||
|
|
||||||
(defun org-let (list &rest body)
|
(defun org-let (list &rest body)
|
||||||
(eval (cons 'let (cons list body))))
|
(eval (cons 'let (cons list body))))
|
||||||
(put 'org-let 'lisp-indent-function 1)
|
(put 'org-let 'lisp-indent-function 1)
|
||||||
|
|
16
lisp/org.el
16
lisp/org.el
|
@ -6592,10 +6592,18 @@ and subscripts."
|
||||||
|
|
||||||
(defvar org-inlinetask-min-level)
|
(defvar org-inlinetask-min-level)
|
||||||
|
|
||||||
(defun org-unlogged-message (&rest args)
|
(defun org-show-all (&optional types)
|
||||||
"Display a message, but avoid logging it in the *Messages* buffer."
|
"Show all contents in the visible part of the buffer.
|
||||||
(let ((message-log-max nil))
|
By default, the function expands headings, blocks and drawers.
|
||||||
(apply 'message args)))
|
When optional argument TYPE is a list of symbols among `blocks',
|
||||||
|
`drawers' and `headings', to only expand one specific type."
|
||||||
|
(dolist (type (or types '(blocks drawers headings)))
|
||||||
|
(org-flag-region (point-min) (point-max) nil
|
||||||
|
(pcase type
|
||||||
|
(`blocks 'org-hide-block)
|
||||||
|
(`drawers 'org-hide-drawer)
|
||||||
|
(`headings 'outline)
|
||||||
|
(_ (error "Invalid type: %S" type))))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun org-cycle (&optional arg)
|
(defun org-cycle (&optional arg)
|
||||||
|
|
Loading…
Reference in New Issue