diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-10-23 22:42:48 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-10-23 22:42:48 +0200 |
commit | dc62cdcdf11f305149281d16ef2200e18c7abd43 (patch) | |
tree | 46a51bccd79f16e9b9474737f9c8579a20834d65 | |
parent | 77eeb0df1b149e8beb0a052334cffc7f826e2e7a (diff) | |
download | org-mode-dc62cdcdf11f305149281d16ef2200e18c7abd43.tar.gz |
org-agenda: Fix small display bug.
* lisp/org-agenda.el: Fix small display bug.
-rw-r--r-- | lisp/org-agenda.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 32087e3..2bbb832 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3887,7 +3887,7 @@ in `org-agenda-text-search-extra-files'." (if (not regexps+) (setq regexp org-outline-regexp-bol) (setq regexp (pop regexps+)) - (if hdl-only (setq regexp (concat org-outline-regexp-bol " .*?" + (if hdl-only (setq regexp (concat org-outline-regexp-bol ".*?" regexp)))) (setq files (org-agenda-files nil 'ifmode)) (when (eq (car org-agenda-text-search-extra-files) 'agenda-archives) @@ -4623,7 +4623,7 @@ the documentation of `org-diary'." (setq marker (org-agenda-new-marker (match-beginning 0)) category (org-get-category) org-category-pos (get-text-property (point) 'org-category-position) - txt (match-string 2) + txt (buffer-substring (match-beginning 2) (match-end 3)) tags (org-get-tags-at (point)) txt (org-agenda-format-item "" txt category tags) priority (1+ (org-get-priority txt)) |