org-agenda.el: Delete `org-agenda-no-heading-message'
authorBastien Guerry <bzg@altern.org>
Sat, 26 Jan 2013 12:29:44 +0000 (13:29 +0100)
committerBastien Guerry <bzg@altern.org>
Sat, 26 Jan 2013 12:29:44 +0000 (13:29 +0100)
* org-agenda.el (org-agenda-no-heading-message): Delete.
(org-agenda-get-timestamps, org-agenda-get-progress)
(org-agenda-get-deadlines, org-agenda-get-scheduled)
(org-agenda-get-blocks): Don't use
`org-agenda-no-heading-message', skip the entry.

lisp/org-agenda.el

index 78dcd98..6309771 100644 (file)
@@ -5406,9 +5406,6 @@ Do we have a reason to ignore this TODO entry because it has a time stamp?
 
 \(fn &optional END)" nil nil)
 
-(defconst org-agenda-no-heading-message
-  "No heading for this item in buffer or region.")
-
 (defun org-agenda-get-timestamps (&optional deadline-results)
   "Return the date stamp information for agenda display."
   (let* ((props (list 'face 'org-agenda-calendar-event
@@ -5488,7 +5485,7 @@ Do we have a reason to ignore this TODO entry because it has a time stamp?
              category-pos (get-text-property b0 'org-category-position))
        (save-excursion
          (if (not (re-search-backward org-outline-regexp-bol nil t))
-             (setq txt org-agenda-no-heading-message)
+             (throw :skip nil)
            (goto-char (match-beginning 0))
            (if (and (eq t org-agenda-skip-timestamp-if-deadline-is-shown)
                     (assoc (point) deadline-position-alist))
@@ -5724,7 +5721,7 @@ please use `org-class' instead."
                  (and (looking-at ".*\n[ \t]*-[ \t]+\\([^-\n \t].*?\\)[ \t]*$")
                       (match-string 1)))))
          (if (not (re-search-backward org-outline-regexp-bol nil t))
-             (setq txt org-agenda-no-heading-message)
+             (throw :skip nil)
            (goto-char (match-beginning 0))
            (setq hdmarker (org-agenda-new-marker)
                  inherited-tags
@@ -5941,7 +5938,7 @@ See also the user option `org-agenda-clock-consistency-checks'."
                      warntime (get-text-property (point) 'org-appt-warntime)
                      category-pos (get-text-property (point) 'org-category-position))
                (if (not (re-search-backward "^\\*+[ \t]+" nil t))
-                   (setq txt org-agenda-no-heading-message)
+                   (throw :skip nil)
                  (goto-char (match-end 0))
                  (setq pos1 (match-beginning 0))
                  (setq inherited-tags
@@ -6066,7 +6063,7 @@ FRACTION is what fraction of the head-warning time has passed."
              (setq category (org-get-category)
                    category-pos (get-text-property (point) 'org-category-position))
              (if (not (re-search-backward "^\\*+[ \t]+" nil t))
-                 (setq txt org-agenda-no-heading-message)
+                 (throw :skip nil)
                (goto-char (match-end 0))
                (setq pos1 (match-beginning 0))
                (if habitp
@@ -6167,7 +6164,7 @@ FRACTION is what fraction of the head-warning time has passed."
                (setq category (org-get-category)
                      category-pos (get-text-property (point) 'org-category-position))
                (if (not (re-search-backward org-outline-regexp-bol nil t))
-                   (setq txt org-agenda-no-heading-message)
+                   (throw :skip nil)
                  (goto-char (match-beginning 0))
                  (setq hdmarker (org-agenda-new-marker (point))
                        inherited-tags