ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-lparse.el: Fix earlier checkin 

* contrib/lisp/org-lparse.el (org-lparse-do-format-org-table):
Modified.  Delete some local variables and move it to
`org-lparse-do-format-list-table'
(org-lparse-do-format-list-table): Modified as above.
This commit is contained in:
Jambunathan K 2011-09-01 01:12:15 +05:30
parent fdb8395886
commit ac4b117bcc
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
contrib/lisp/org-lparse.el
View File

@ -1371,9 +1371,16 @@ for formatting. This is required for the DocBook exporter."
(head (and org-export-highlight-first-table-line (head (and org-export-highlight-first-table-line
(delq nil (mapcar (delq nil (mapcar
(lambda (x) (string-match "^[ \t]*|-" x)) (lambda (x) (string-match "^[ \t]*|-" x))
(cdr lines))))) (cdr lines))))))
(org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0) (setq lines (org-lparse-org-table-to-list-table lines splice))
tbopen fields (org-lparse-do-format-list-table
lines splice caption label attributes head org-lparse-table-colalign-info)))
(defun org-lparse-do-format-list-table (lines &optional splice
caption label attributes head
org-lparse-table-colalign-info)
(let* ((org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0)
tbopen fields line
org-lparse-table-cur-rowgrp-is-hdr org-lparse-table-cur-rowgrp-is-hdr
org-lparse-table-rowgrp-open org-lparse-table-rowgrp-open
org-lparse-table-num-numeric-items-per-column org-lparse-table-num-numeric-items-per-column
@ -1382,13 +1389,6 @@ for formatting. This is required for the DocBook exporter."
org-lparse-table-begin-marker org-lparse-table-begin-marker
(org-lparse-table-style 'org-table) (org-lparse-table-style 'org-table)
org-lparse-table-is-styled) org-lparse-table-is-styled)
(setq lines (org-lparse-org-table-to-list-table lines splice))
(org-lparse-do-format-list-table lines splice caption label attributes head)))
(defun org-lparse-do-format-list-table (lines &optional splice
caption label attributes head)
(let (line)
(cond (cond
(splice (splice
(setq org-lparse-table-is-styled nil) (setq org-lparse-table-is-styled nil)