forked from mirrors/org-mode
ox: Move a function in the file
* lisp/ox.el (org-export--copy-to-kill-ring-p): Move function elsewhere in the file.
This commit is contained in:
parent
73fe0ab77a
commit
fbb30a5e79
17
lisp/ox.el
17
lisp/ox.el
|
@ -2701,7 +2701,8 @@ Return the updated communication channel."
|
||||||
;; its derivatives, `org-export-to-buffer', `org-export-to-file' and
|
;; its derivatives, `org-export-to-buffer', `org-export-to-file' and
|
||||||
;; `org-export-string-as'. They differ either by the way they output
|
;; `org-export-string-as'. They differ either by the way they output
|
||||||
;; the resulting code (for the first two) or by the input type (for
|
;; the resulting code (for the first two) or by the input type (for
|
||||||
;; the latter).
|
;; the latter). `org-export--copy-to-kill-ring-p' determines if
|
||||||
|
;; output of these function should be added to kill ring.
|
||||||
;;
|
;;
|
||||||
;; `org-export-output-file-name' is an auxiliary function meant to be
|
;; `org-export-output-file-name' is an auxiliary function meant to be
|
||||||
;; used with `org-export-to-file'. With a given extension, it tries
|
;; used with `org-export-to-file'. With a given extension, it tries
|
||||||
|
@ -3226,6 +3227,13 @@ file should have."
|
||||||
(org-babel-exp-process-buffer))
|
(org-babel-exp-process-buffer))
|
||||||
(kill-buffer reference))))
|
(kill-buffer reference))))
|
||||||
|
|
||||||
|
(defun org-export--copy-to-kill-ring-p ()
|
||||||
|
"Return a non-nil value when output should be added to the kill ring.
|
||||||
|
See also `org-export-copy-to-kill-ring'."
|
||||||
|
(if (eq org-export-copy-to-kill-ring 'if-interactive)
|
||||||
|
(not (or executing-kbd-macro noninteractive))
|
||||||
|
(eq org-export-copy-to-kill-ring t)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;; Tools For Back-Ends
|
;;; Tools For Back-Ends
|
||||||
|
@ -5701,14 +5709,7 @@ options as CDR."
|
||||||
;; Otherwise, enter sub-menu.
|
;; Otherwise, enter sub-menu.
|
||||||
(t (org-export--dispatch-ui options key expertp)))))
|
(t (org-export--dispatch-ui options key expertp)))))
|
||||||
|
|
||||||
;;; Miscellaneous
|
|
||||||
|
|
||||||
(defun org-export--copy-to-kill-ring-p ()
|
|
||||||
"Should we copy the export buffer to the kill ring?
|
|
||||||
See also `org-export-copy-to-kill-ring'."
|
|
||||||
(if (eq org-export-copy-to-kill-ring 'if-interactive)
|
|
||||||
(not (or executing-kbd-macro noninteractive))
|
|
||||||
(eq org-export-copy-to-kill-ring t)))
|
|
||||||
|
|
||||||
(provide 'ox)
|
(provide 'ox)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue