From f506348bcf182c835165301ece4ab66e9b74bf55 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 19 Dec 2012 22:27:58 +0100 Subject: [PATCH] org-export: Allow to force viewing of a stack source in Emacs * contrib/lisp/org-export.el (org-export--stack-view): Add optional prefix argument to view a file in Emacs. Patch from Jambunathan K. --- contrib/lisp/org-export.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 356b9723d..5143fb5d1 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -5189,14 +5189,16 @@ If optional argument SOURCE is non-nil, remove it instead." (org-remove-if (lambda (el) (equal (car el) source)) org-export-stack-contents)))) -(defun org-export--stack-view () - "View export results at point in stack." - (interactive) +(defun org-export--stack-view (&optional in-emacs) + "View export results at point in stack. +With an optional prefix argument IN-EMACS, force viewing files +within Emacs." + (interactive "P") (let ((source (org-export--stack-source-at-point))) (cond ((processp source) (org-switch-to-buffer-other-window (process-buffer source))) ((bufferp source) (org-switch-to-buffer-other-window source)) - (t (org-open-file source))))) + (t (org-open-file source in-emacs))))) (defconst org-export-stack-mode-map (let ((km (make-sparse-keymap)))