From a80f13f626b90845e5bea257f11333f5c1b93075 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 1 May 2021 01:56:20 -0400 Subject: [PATCH] Prevent extra window after +org/export-to-clipboard org-export-to-buffer opens a preview window. This command doesn't need that, so we inhibit it. Closes #4911 --- modules/lang/org/autoload/org-export.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/modules/lang/org/autoload/org-export.el b/modules/lang/org/autoload/org-export.el index afa39462c..5641d8a80 100644 --- a/modules/lang/org/autoload/org-export.el +++ b/modules/lang/org/autoload/org-export.el @@ -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)