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

Column View: Fix bug with capturing column view.

This commit is contained in:
Carsten Dominik 2009-02-06 15:01:36 +01:00
parent c1ecf88788
commit 717c7b22f5
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,5 +1,11 @@
2009-02-06 Carsten Dominik <carsten.dominik@gmail.com> 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 * org-exp.el (org-export-preprocess-string): Fix bug when skipping
text before first headline. text before first headline.

2
lisp/org-colview-xemacs.el
View File

@ -1264,7 +1264,7 @@ of fields."
(org-columns-forward-char)) (org-columns-forward-char))
(setq row (nreverse row)) (setq row (nreverse row))
(unless (and skip-empty-rows (unless (and skip-empty-rows
(eq 1 (length (delete "" (delete-dups row))))) (eq 1 (length (delete "" (delete-dups (copy-sequence row))))))
(push row tbl)))) (push row tbl))))
(append (list title 'hline) (nreverse tbl)))) (append (list title 'hline) (nreverse tbl))))
(save-excursion (save-excursion

2
lisp/org-colview.el
View File

@ -1058,7 +1058,7 @@ of fields."
row)) row))
(setq row (nreverse row)) (setq row (nreverse row))
(unless (and skip-empty-rows (unless (and skip-empty-rows
(eq 1 (length (delete "" (delete-dups row))))) (eq 1 (length (delete "" (delete-dups (copy-sequence row))))))
(push row tbl)))) (push row tbl))))
(append (list title 'hline) (nreverse tbl))))) (append (list title 'hline) (nreverse tbl)))))