diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-11-28 20:14:20 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-11-28 20:14:20 +0100 |
commit | 21758c30c90ab72ad243fb1ba2cb06eea88997b5 (patch) | |
tree | 84ce83b1f4c67e96e4572c07033ff7d6f1305327 | |
parent | e6ea9c59a09f502e52e2325f328ee2ce02cd2a05 (diff) | |
download | org-mode-21758c30c90ab72ad243fb1ba2cb06eea88997b5.tar.gz |
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.
-rw-r--r-- | contrib/lisp/org-export.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index bbef5fb..3d65ed5 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)) |