Mercurial > emacs
diff lisp/textmodes/org.el @ 72709:f40288cce20c
(org-dblock-write:clocktable): Avoid infinite loop.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Fri, 08 Sep 2006 08:47:01 +0000 |
parents | 37bdcb1f6e30 |
children | 9a63ebe75d2b a1a25ac6c88a |
line wrap: on
line diff
--- a/lisp/textmodes/org.el Fri Sep 08 08:46:37 2006 +0000 +++ b/lisp/textmodes/org.el Fri Sep 08 08:47:01 2006 +0000 @@ -6204,15 +6204,15 @@ (while (setq p (next-single-property-change (point) :org-clock-minutes)) (goto-char p) (when (setq time (get-text-property p :org-clock-minutes)) - (beginning-of-line 1) - (when (and (looking-at "\\(\\*+\\)[ \t]+\\(.*?\\)\\([ \t]+:[0-9a-zA-Z_@:]+:\\)?[ \t]*$") - (setq level (- (match-end 1) (match-beginning 1))) - (<= level maxlevel)) - (setq hlc (if emph (or (cdr (assoc level hlchars)) "") "") - hdl (match-string 2) - h (/ time 60) - m (- time (* 60 h))) - (save-excursion + (save-excursion + (beginning-of-line 1) + (when (and (looking-at "\\(\\*+\\)[ \t]+\\(.*?\\)\\([ \t]+:[0-9a-zA-Z_@:]+:\\)?[ \t]*$") + (setq level (- (match-end 1) (match-beginning 1))) + (<= level maxlevel)) + (setq hlc (if emph (or (cdr (assoc level hlchars)) "") "") + hdl (match-string 2) + h (/ time 60) + m (- time (* 60 h))) (goto-char ins) (if (= level 1) (insert-before-markers "|-\n")) (insert-before-markers