From 717c7b22f5a03d7d56e54be6411ea81e2c18ee32 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 6 Feb 2009 15:01:36 +0100 Subject: [PATCH] Column View: Fix bug with capturing column view. --- lisp/ChangeLog | 6 ++++++ lisp/org-colview-xemacs.el | 2 +- lisp/org-colview.el | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1f3cbc9a..57300deba 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2009-02-06 Carsten Dominik + * 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. diff --git a/lisp/org-colview-xemacs.el b/lisp/org-colview-xemacs.el index 47590691e..e67b33338 100644 --- a/lisp/org-colview-xemacs.el +++ b/lisp/org-colview-xemacs.el @@ -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 diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 6f2c7a87c..dfa69c443 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -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))))) -- 2.11.4.GIT