emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/org/org-colview.el,v


From: Carsten Dominik
Subject: [Emacs-diffs] Changes to emacs/lisp/org/org-colview.el,v
Date: Thu, 24 Jul 2008 13:59:58 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Carsten Dominik <cdominik>      08/07/24 13:59:57

Index: org-colview.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-colview.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- org-colview.el      17 Jun 2008 15:21:57 -0000      1.4
+++ org-colview.el      24 Jul 2008 13:59:53 -0000      1.5
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.05a
+;; Version: 6.06a
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -1013,13 +1013,13 @@
     (let* ((title (mapcar 'cadr org-columns-current-fmt-compiled))
           (n (length title)) row tbl)
       (goto-char (point-min))
-      (while (and (re-search-forward "^\\(\\*+\\) " nil t)
-                 (or (null maxlevel)
+      (while (re-search-forward "^\\(\\*+\\) " nil t)
+       (when (and (or (null maxlevel)
                      (>= maxlevel
                          (if org-odd-levels-only
                              (/ (1+ (length (match-string 1))) 2)
-                           (length (match-string 1))))))
-       (when (get-char-property (match-beginning 0) 'org-columns-key)
+                             (length (match-string 1)))))
+                   (get-char-property (match-beginning 0) 'org-columns-key))
          (setq row nil)
          (loop for i from 0 to (1- n) do
                (push (or (get-char-property (+ (match-beginning 0) i) 
'org-columns-value-modified)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]