From 21758c30c90ab72ad243fb1ba2cb06eea88997b5 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 28 Nov 2011 20:14:20 +0100 Subject: [PATCH] contrib/lisp/org-export: Fix visibility influence on list parsing * contrib/lisp/org-export.el (org-export-with-current-buffer-copy): Full invisibility prevents `current-column' from returning useful values. Thus, keep visibility related text-properties and set `buffer-invisibility-spec' to nil. --- contrib/lisp/org-export.el | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index bbef5fbca..3d65ed5d0 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -2005,18 +2005,19 @@ Point is at buffer's beginning when BODY is applied." (,overlays (mapcar 'copy-overlay (overlays-in (point-min) (point-max))))) (with-temp-buffer - (org-clone-local-variables - ,original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\)") - (insert ,buffer-string) - (mapc (lambda (ov) - (move-overlay - ov - (- (overlay-start ov) ,offset) - (- (overlay-end ov) ,offset) - (current-buffer))) - ,overlays) - (goto-char (point-min)) - (progn ,@body))))) + (let ((buffer-invisibility-spec nil)) + (org-clone-local-variables + ,original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\)") + (insert ,buffer-string) + (mapc (lambda (ov) + (move-overlay + ov + (- (overlay-start ov) ,offset) + (- (overlay-end ov) ,offset) + (current-buffer))) + ,overlays) + (goto-char (point-min)) + (progn ,@body)))))) (def-edebug-spec org-export-with-current-buffer-copy (body))