tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix table mapping

Browse source
This commit is contained in:
Carsten Dominik 2009-08-04 23:53:41 +02:00
parent d67a9be8a2
commit f22be634d2
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-08-04 Carsten Dominik <carsten.dominik@gmail.com> 2009-08-04 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-table-map-tables): Make sure cursor is back at table
beginning after funcall.
* org-agenda.el (org-agenda-bulk-action): Make sure parents are * org-agenda.el (org-agenda-bulk-action): Make sure parents are
handled before children, and do not error if an entry is not handled before children, and do not error if an entry is not
found, probably because it hase been remove when the parent was found, probably because it hase been remove when the parent was

6
lisp/org.el
View file

@ -3028,8 +3028,10 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
(while (re-search-forward org-table-any-line-regexp nil t) (while (re-search-forward org-table-any-line-regexp nil t)
(message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size))) (message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size)))
(beginning-of-line 1) (beginning-of-line 1)
(if (looking-at org-table-line-regexp) (when (looking-at org-table-line-regexp)
(save-excursion (funcall function))) (save-excursion (funcall function))
(or (looking-at org-table-line-regexp)
(forward-char 1)))
(re-search-forward org-table-any-border-regexp nil 1)))) (re-search-forward org-table-any-border-regexp nil 1))))
(message "Mapping tables: done")) (message "Mapping tables: done"))