emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Prevent extra window after +org/export-to-clipboard

Browse source 
org-export-to-buffer opens a preview window. This command doesn't need
that, so we inhibit it.

Closes #4911
This commit is contained in:
Henrik Lissner 2021-05-01 01:56:20 -04:00
parent e85041ae86
commit a80f13f626
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/lang/org/autoload/org-export.el
View file

@ -26,12 +26,14 @@
Prompts for what BACKEND to use. See `org-export-backends' for options."
(interactive
(list (intern (completing-read "Export to: " org-export-backends))))
(let ((buffer (org-export-to-buffer backend "*Formatted Copy*" nil nil t t)))
(list (intern (completing-read "Export to: " (progn (require 'ox) org-export-backends)))))
(require 'ox)
(let* ((org-export-show-temporary-export-buffer nil)
(buffer (org-export-to-buffer backend "*Formatted Copy*" nil nil t t)))
(unwind-protect
(with-current-buffer buffer
(kill-new (buffer-string)))
(kill-buffer (current-buffer)))))
(kill-buffer buffer))))
;;;###autoload
(defun +org/export-to-clipboard-as-rich-text (beg end)