From 39f5f0394661017ec4ff55eb2de1bb5b97f35750 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 28 Sep 2014 23:29:59 +0200 Subject: [PATCH] ox: Resurrect :input-buffer property * lisp/ox.el (org-export--get-buffer-attributes): Resurrect :input-buffer property. This property was removed in 604b9389. since it wasn't necessary anymore internally. It is back again as a consequence of a user request. http://permalink.gmane.org/gmane.emacs.orgmode/91230 --- lisp/ox.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index 59091fc82..90c623e21 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -1346,6 +1346,10 @@ The back-end could then be called with, for example: ;; - category :: tree ;; - type :: list of elements and objects ;; +;; + `:input-buffer' :: Original buffer name. +;; - category :: option +;; - type :: string +;; ;; + `:input-file' :: Full path to input file, if any. ;; - category :: option ;; - type :: string or nil @@ -1816,8 +1820,8 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored." (defun org-export--get-buffer-attributes () "Return properties related to buffer attributes, as a plist." - ;; Store full path of input file name, or nil. For internal use. - (list :input-file (buffer-file-name (buffer-base-buffer)))) + (list :input-buffer (buffer-name (buffer-base-buffer)) + :input-file (buffer-file-name (buffer-base-buffer)))) (defun org-export--get-global-options (&optional backend) "Return global export options as a plist.