Column View: Fix bug with capturing column view.
This commit is contained in:
parent
c1ecf88788
commit
717c7b22f5
|
@ -1,5 +1,11 @@
|
|||
2009-02-06 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-colview-xemacs.el (org-columns-capture-view): Copy before
|
||||
deleting duplicates.
|
||||
|
||||
* org-colview.el (org-columns-capture-view): Copy before
|
||||
deleting duplicates.
|
||||
|
||||
* org-exp.el (org-export-preprocess-string): Fix bug when skipping
|
||||
text before first headline.
|
||||
|
||||
|
|
|
@ -1264,7 +1264,7 @@ of fields."
|
|||
(org-columns-forward-char))
|
||||
(setq row (nreverse row))
|
||||
(unless (and skip-empty-rows
|
||||
(eq 1 (length (delete "" (delete-dups row)))))
|
||||
(eq 1 (length (delete "" (delete-dups (copy-sequence row))))))
|
||||
(push row tbl))))
|
||||
(append (list title 'hline) (nreverse tbl))))
|
||||
(save-excursion
|
||||
|
|
|
@ -1058,7 +1058,7 @@ of fields."
|
|||
row))
|
||||
(setq row (nreverse row))
|
||||
(unless (and skip-empty-rows
|
||||
(eq 1 (length (delete "" (delete-dups row)))))
|
||||
(eq 1 (length (delete "" (delete-dups (copy-sequence row))))))
|
||||
(push row tbl))))
|
||||
(append (list title 'hline) (nreverse tbl)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue