|
@@ -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))
|
|
|
|
|
|
|