summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-11-28 20:14:20 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2011-11-28 20:14:20 +0100
commit21758c30c90ab72ad243fb1ba2cb06eea88997b5 (patch)
tree84ce83b1f4c67e96e4572c07033ff7d6f1305327
parente6ea9c59a09f502e52e2325f328ee2ce02cd2a05 (diff)
downloadorg-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.el25
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))