From c3cf7b1476062340501029dc0895a49c61dc2286 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 9 Apr 2012 17:27:32 +0200 Subject: [PATCH] org.el: Exclude tables in src and example blocks. * org.el (org-table-map-tables): Exclude tables in src and example blocks. Thansk to Sebastian for reporting this. --- lisp/org.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index bf4b1beeb..fe435ace2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3945,7 +3945,9 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." (unless quietly (message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size)))) (beginning-of-line 1) - (when (looking-at org-table-line-regexp) + (when (and (looking-at org-table-line-regexp) + ;; Exclude tables in src/example/verbatim/clocktable blocks + (not (org-in-block-p '("src" "example")))) (save-excursion (funcall function)) (or (looking-at org-table-line-regexp) (forward-char 1))) -- 2.11.4.GIT