diff options
author | Bastien Guerry <bzg@altern.org> | 2012-09-12 18:03:41 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-12 18:03:41 +0200 |
commit | b645e8ab221d1eb2976fe7fa857fb28b8e392647 (patch) | |
tree | 5c5f7ad7abe58a18974610eeb6bc5320d76cdc6e | |
parent | 25a1f226ecf076df64210c58c640183c4e3f5f22 (diff) | |
download | org-mode-b645e8ab221d1eb2976fe7fa857fb28b8e392647.tar.gz |
Fix commit b508ff69 again (second take).
-rw-r--r-- | lisp/org-agenda.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 2cd0216..3678ede 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4283,7 +4283,7 @@ in `org-agenda-text-search-extra-files'." (goto-char beg) (setq marker (org-agenda-new-marker (point)) category (org-get-category) - level (make-string (1- (org-outline-level)) ? ) + level (make-string (1- (or (org-outline-level) 1)) ? ) category-pos (get-text-property (point) 'org-category-position) tags (org-get-tags-at (point)) txt (org-agenda-format-item @@ -5010,7 +5010,7 @@ the documentation of `org-diary'." txt (org-trim (buffer-substring (match-beginning 2) (match-end 0))) tags (org-get-tags-at (point)) - level (make-string (1- (org-outline-level)) ? ) + level (make-string (1- (or (org-outline-level) 1)) ? ) txt (org-agenda-format-item "" txt level category tags) priority (1+ (org-get-priority txt)) todo-state (org-get-todo-state)) @@ -5186,7 +5186,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines', (throw :skip nil)) (setq hdmarker (org-agenda-new-marker) tags (org-get-tags-at) - level (make-string (1- (org-outline-level)) ? )) + level (make-string (1- (or (org-outline-level) 1)) ? )) (looking-at "\\*+[ \t]+\\([^\r\n]+\\)") (setq head (or (match-string 1) "")) (setq txt (org-agenda-format-item @@ -5234,7 +5234,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines', (setq result (org-diary-sexp-entry sexp sexp-entry date)) (when result (setq marker (org-agenda-new-marker beg) - level (make-string (1- (org-outline-level)) ? ) + level (make-string (1- (or (org-outline-level) 1)) ? ) category (org-get-category beg) category-pos (get-text-property beg 'org-category-position) tags (save-excursion (org-backward-heading-same-level 0) @@ -5408,7 +5408,7 @@ please use `org-class' instead." (goto-char (match-beginning 0)) (setq hdmarker (org-agenda-new-marker) tags (org-get-tags-at) - level (make-string (1- (org-outline-level)) ? )) + level (make-string (1- (or (org-outline-level) 1)) ? )) (looking-at "\\*+[ \t]+\\([^\r\n]+\\)") (setq txt (match-string 1)) (when extra @@ -5619,7 +5619,7 @@ See also the user option `org-agenda-clock-consistency-checks'." (setq txt org-agenda-no-heading-message) (goto-char (match-end 0)) (setq pos1 (match-beginning 0)) - (setq level (make-string (1- (org-outline-level)) ? )) + (setq level (make-string (1- (or (org-outline-level) 1)) ? )) (setq tags (org-get-tags-at pos1)) (setq head (buffer-substring-no-properties (point) @@ -5750,7 +5750,7 @@ FRACTION is what fraction of the head-warning time has passed." (setq mm (assoc pos1 deadline-position-alist))) (throw :skip nil))) (setq tags (org-get-tags-at)) - (setq level (make-string (1- (org-outline-level)) ? )) + (setq level (make-string (1- (or (org-outline-level) 1)) ? )) (setq head (buffer-substring-no-properties (point) (progn (skip-chars-forward "^\r\n") (point)))) @@ -5834,7 +5834,7 @@ FRACTION is what fraction of the head-warning time has passed." (goto-char (match-beginning 0)) (setq hdmarker (org-agenda-new-marker (point))) (setq tags (org-get-tags-at)) - (setq level (make-string (1- (org-outline-level)) ? )) + (setq level (make-string (1- (or (org-outline-level) 1)) ? )) (looking-at "\\*+[ \t]+\\([^\r\n]+\\)") (setq head (match-string 1)) (let ((remove-re |