Debugger entered--Lisp error: (error "Before first headline at position 1 in buffer date.org")
  signal(error ("Before first headline at position 1 in buffer date.org"))
  error("Before first headline at position %d in buffer %s" 1 #<buffer date.org>)
  (condition-case nil (outline-back-to-heading invisible-ok) (error (error "Before first headline at position %d in buffer %s" (point) (current-buffer))))
  org-back-to-heading(t)
  (let (col list elt ts buffer-invisibility-spec) (org-back-to-heading t) (looking-at (concat org-outline-regexp "\\( *\\)[^
\n]*")) (goto-char (match-end 1)) (setq col (current-column)) (goto-char (match-end 0)) (if (eobp) (insert "\n") (forward-char 1)) (if (and (not what) (not (looking-at (concat "[ 	]*" org-keyword-time-not-clock-regexp)))) (progn (throw (quote exit) nil))) (if (and (not (looking-at org-outline-regexp)) (looking-at (concat "[^
\n]*?" org-keyword-time-regexp "[^
\n]*")) (not (equal (match-string 1) org-clock-string))) (narrow-to-region (match-beginning 0) (match-end 0)) (insert-before-markers "\n") (backward-char 1) (narrow-to-region (point) (point)) (and org-adapt-indentation (org-indent-to-column col))) (setq list (cons what remove)) (while list (setq elt (car (prog1 list (setq list (cdr list))))) (if (or (and (eq elt (quote scheduled)) (re-search-forward org-scheduled-time-regexp nil t)) (and (eq elt (quote deadline)) (re-search-forward org-deadline-time-regexp nil t)) (and (eq elt (quote closed)) (re-search-forward org-closed-time-regexp nil t))) (progn (replace-match "") (if (looking-at "--+<[^>]+>") (replace-match ""))))) (and (looking-at "[ 	]+") (replace-match "")) (and org-adapt-indentation (bolp) (org-indent-to-column col)) (if what (progn (insert (if (not (or (bolp) (eq ... 32))) " " "") (cond ((eq what (quote scheduled)) org-scheduled-string) ((eq what (quote deadline)) org-deadline-string) ((eq what (quote closed)) org-closed-string)) " ") (setq ts (org-insert-time-stamp time (or org-time-was-given (and (eq what ...) org-log-done-with-time)) (eq what (quote closed)) nil nil (list org-end-time-was-given))) (insert (if (not (or (bolp) (eq ... 32) (memq ... ...) (eobp))) " " "")) (end-of-line 1))) (goto-char (point-min)) (widen) (if (and (looking-at "[ 	]*\n") (equal (char-before) 10)) (delete-region (1- (point)) (point-at-eol))) ts)
  (save-restriction (let (col list elt ts buffer-invisibility-spec) (org-back-to-heading t) (looking-at (concat org-outline-regexp "\\( *\\)[^
\n]*")) (goto-char (match-end 1)) (setq col (current-column)) (goto-char (match-end 0)) (if (eobp) (insert "\n") (forward-char 1)) (if (and (not what) (not (looking-at (concat "[ 	]*" org-keyword-time-not-clock-regexp)))) (progn (throw (quote exit) nil))) (if (and (not (looking-at org-outline-regexp)) (looking-at (concat "[^
\n]*?" org-keyword-time-regexp "[^
\n]*")) (not (equal (match-string 1) org-clock-string))) (narrow-to-region (match-beginning 0) (match-end 0)) (insert-before-markers "\n") (backward-char 1) (narrow-to-region (point) (point)) (and org-adapt-indentation (org-indent-to-column col))) (setq list (cons what remove)) (while list (setq elt (car (prog1 list (setq list (cdr list))))) (if (or (and (eq elt (quote scheduled)) (re-search-forward org-scheduled-time-regexp nil t)) (and (eq elt (quote deadline)) (re-search-forward org-deadline-time-regexp nil t)) (and (eq elt (quote closed)) (re-search-forward org-closed-time-regexp nil t))) (progn (replace-match "") (if (looking-at "--+<[^>]+>") (replace-match ""))))) (and (looking-at "[ 	]+") (replace-match "")) (and org-adapt-indentation (bolp) (org-indent-to-column col)) (if what (progn (insert (if (not (or ... ...)) " " "") (cond ((eq what ...) org-scheduled-string) ((eq what ...) org-deadline-string) ((eq what ...) org-closed-string)) " ") (setq ts (org-insert-time-stamp time (or org-time-was-given (and ... org-log-done-with-time)) (eq what (quote closed)) nil nil (list org-end-time-was-given))) (insert (if (not (or ... ... ... ...)) " " "")) (end-of-line 1))) (goto-char (point-min)) (widen) (if (and (looking-at "[ 	]*\n") (equal (char-before) 10)) (delete-region (1- (point)) (point-at-eol))) ts))
  (save-excursion (save-restriction (let (col list elt ts buffer-invisibility-spec) (org-back-to-heading t) (looking-at (concat org-outline-regexp "\\( *\\)[^
\n]*")) (goto-char (match-end 1)) (setq col (current-column)) (goto-char (match-end 0)) (if (eobp) (insert "\n") (forward-char 1)) (if (and (not what) (not (looking-at (concat "[ 	]*" org-keyword-time-not-clock-regexp)))) (progn (throw (quote exit) nil))) (if (and (not (looking-at org-outline-regexp)) (looking-at (concat "[^
\n]*?" org-keyword-time-regexp "[^
\n]*")) (not (equal (match-string 1) org-clock-string))) (narrow-to-region (match-beginning 0) (match-end 0)) (insert-before-markers "\n") (backward-char 1) (narrow-to-region (point) (point)) (and org-adapt-indentation (org-indent-to-column col))) (setq list (cons what remove)) (while list (setq elt (car (prog1 list (setq list ...)))) (if (or (and (eq elt ...) (re-search-forward org-scheduled-time-regexp nil t)) (and (eq elt ...) (re-search-forward org-deadline-time-regexp nil t)) (and (eq elt ...) (re-search-forward org-closed-time-regexp nil t))) (progn (replace-match "") (if (looking-at "--+<[^>]+>") (replace-match ""))))) (and (looking-at "[ 	]+") (replace-match "")) (and org-adapt-indentation (bolp) (org-indent-to-column col)) (if what (progn (insert (if (not ...) " " "") (cond (... org-scheduled-string) (... org-deadline-string) (... org-closed-string)) " ") (setq ts (org-insert-time-stamp time (or org-time-was-given ...) (eq what ...) nil nil (list org-end-time-was-given))) (insert (if (not ...) " " "")) (end-of-line 1))) (goto-char (point-min)) (widen) (if (and (looking-at "[ 	]*\n") (equal (char-before) 10)) (delete-region (1- (point)) (point-at-eol))) ts)))
  (catch (quote exit) (if (and (memq what (quote (scheduled deadline))) (or (not time) (and (stringp time) (string-match "^[-+]+[0-9]" time)))) (progn (save-excursion (org-back-to-heading t) (setq end (save-excursion (outline-next-heading) (point))) (if (re-search-forward (if (eq what ...) org-scheduled-time-regexp org-deadline-time-regexp) end t) (progn (setq ts (match-string 1) default-time (apply ... ...) default-input (and ts ...))))))) (if what (progn (setq time (if (stringp time) (apply (quote encode-time) (org-read-date-analyze time default-time (decode-time default-time))) (or time (org-read-date nil (quote to-time) nil nil default-time default-input)))))) (if (and org-insert-labeled-timestamps-at-point (member what (quote (scheduled deadline)))) (progn (insert (if (eq what (quote scheduled)) org-scheduled-string org-deadline-string) " ") (org-insert-time-stamp time org-time-was-given nil nil nil (list org-end-time-was-given)) (setq what nil))) (save-excursion (save-restriction (let (col list elt ts buffer-invisibility-spec) (org-back-to-heading t) (looking-at (concat org-outline-regexp "\\( *\\)[^
\n]*")) (goto-char (match-end 1)) (setq col (current-column)) (goto-char (match-end 0)) (if (eobp) (insert "\n") (forward-char 1)) (if (and (not what) (not (looking-at ...))) (progn (throw (quote exit) nil))) (if (and (not (looking-at org-outline-regexp)) (looking-at (concat "[^
\n]*?" org-keyword-time-regexp "[^
\n]*")) (not (equal ... org-clock-string))) (narrow-to-region (match-beginning 0) (match-end 0)) (insert-before-markers "\n") (backward-char 1) (narrow-to-region (point) (point)) (and org-adapt-indentation (org-indent-to-column col))) (setq list (cons what remove)) (while list (setq elt (car (prog1 list ...))) (if (or (and ... ...) (and ... ...) (and ... ...)) (progn (replace-match "") (if ... ...)))) (and (looking-at "[ 	]+") (replace-match "")) (and org-adapt-indentation (bolp) (org-indent-to-column col)) (if what (progn (insert (if ... " " "") (cond ... ... ...) " ") (setq ts (org-insert-time-stamp time ... ... nil nil ...)) (insert (if ... " " "")) (end-of-line 1))) (goto-char (point-min)) (widen) (if (and (looking-at "[ 	]*\n") (equal (char-before) 10)) (delete-region (1- (point)) (point-at-eol))) ts))))
  (let (org-time-was-given org-end-time-was-given ts end default-time default-input) (catch (quote exit) (if (and (memq what (quote (scheduled deadline))) (or (not time) (and (stringp time) (string-match "^[-+]+[0-9]" time)))) (progn (save-excursion (org-back-to-heading t) (setq end (save-excursion (outline-next-heading) (point))) (if (re-search-forward (if ... org-scheduled-time-regexp org-deadline-time-regexp) end t) (progn (setq ts ... default-time ... default-input ...)))))) (if what (progn (setq time (if (stringp time) (apply (quote encode-time) (org-read-date-analyze time default-time ...)) (or time (org-read-date nil ... nil nil default-time default-input)))))) (if (and org-insert-labeled-timestamps-at-point (member what (quote (scheduled deadline)))) (progn (insert (if (eq what (quote scheduled)) org-scheduled-string org-deadline-string) " ") (org-insert-time-stamp time org-time-was-given nil nil nil (list org-end-time-was-given)) (setq what nil))) (save-excursion (save-restriction (let (col list elt ts buffer-invisibility-spec) (org-back-to-heading t) (looking-at (concat org-outline-regexp "\\( *\\)[^
\n]*")) (goto-char (match-end 1)) (setq col (current-column)) (goto-char (match-end 0)) (if (eobp) (insert "\n") (forward-char 1)) (if (and (not what) (not ...)) (progn (throw ... nil))) (if (and (not ...) (looking-at ...) (not ...)) (narrow-to-region (match-beginning 0) (match-end 0)) (insert-before-markers "\n") (backward-char 1) (narrow-to-region (point) (point)) (and org-adapt-indentation (org-indent-to-column col))) (setq list (cons what remove)) (while list (setq elt (car ...)) (if (or ... ... ...) (progn ... ...))) (and (looking-at "[ 	]+") (replace-match "")) (and org-adapt-indentation (bolp) (org-indent-to-column col)) (if what (progn (insert ... ... " ") (setq ts ...) (insert ...) (end-of-line 1))) (goto-char (point-min)) (widen) (if (and (looking-at "[ 	]*\n") (equal ... 10)) (delete-region (1- ...) (point-at-eol))) ts)))))
  org-add-planning-info(scheduled nil closed)
  (cond ((equal arg (quote (4))) (progn (if (and old-date org-log-reschedule) (progn (org-add-log-setup (quote delschedule) nil old-date (quote findpos) org-log-reschedule))) (org-remove-timestamp-with-keyword org-scheduled-string) (message "Item is no longer scheduled."))) ((equal arg (quote (16))) (save-excursion (if (re-search-forward org-scheduled-time-regexp (save-excursion (outline-next-heading) (point)) t) (let* ((rpl0 (match-string 1)) (rpl (replace-regexp-in-string " -[0-9]+[hdwmy]" "" rpl0))) (replace-match (concat org-scheduled-string " <" rpl (format " -%dd" ...) ">") t t)) (user-error "No scheduled information to update")))) (t (org-add-planning-info (quote scheduled) time (quote closed)) (if (and old-date org-log-reschedule (not (equal old-date (substring org-last-inserted-timestamp 1 -1)))) (progn (org-add-log-setup (quote reschedule) nil old-date (quote findpos) org-log-reschedule))) (if repeater (progn (save-excursion (org-back-to-heading t) (if (re-search-forward (concat org-scheduled-string " " org-last-inserted-timestamp) (save-excursion ... ...) t) (progn (goto-char ...) (insert " " repeater) (setq org-last-inserted-timestamp ...)))))) (message "Scheduled to %s" org-last-inserted-timestamp)))
  (let* ((old-date (org-entry-get nil "SCHEDULED")) (old-date-time (if old-date (org-time-string-to-time old-date))) (repeater (and old-date (string-match "\\([.+-]+[0-9]+[hdwmy]\\(?:[/ ][-+]?[0-9]+[hdwmy]\\)?\\) ?" old-date) (match-string 1 old-date)))) (cond ((equal arg (quote (4))) (progn (if (and old-date org-log-reschedule) (progn (org-add-log-setup (quote delschedule) nil old-date (quote findpos) org-log-reschedule))) (org-remove-timestamp-with-keyword org-scheduled-string) (message "Item is no longer scheduled."))) ((equal arg (quote (16))) (save-excursion (if (re-search-forward org-scheduled-time-regexp (save-excursion (outline-next-heading) (point)) t) (let* ((rpl0 ...) (rpl ...)) (replace-match (concat org-scheduled-string " <" rpl ... ">") t t)) (user-error "No scheduled information to update")))) (t (org-add-planning-info (quote scheduled) time (quote closed)) (if (and old-date org-log-reschedule (not (equal old-date (substring org-last-inserted-timestamp 1 -1)))) (progn (org-add-log-setup (quote reschedule) nil old-date (quote findpos) org-log-reschedule))) (if repeater (progn (save-excursion (org-back-to-heading t) (if (re-search-forward ... ... t) (progn ... ... ...))))) (message "Scheduled to %s" org-last-inserted-timestamp))))
  (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (let ((cl (if (eq org-loop-over-headlines-in-active-region (quote start-level)) (quote region-start-level) (quote region))) org-loop-over-headlines-in-active-region) (org-map-entries (list (quote org-schedule) (list (quote quote) arg) time) org-loop-over-headlines-in-active-region cl (if (outline-invisible-p) (org-end-of-subtree nil t)))) (let* ((old-date (org-entry-get nil "SCHEDULED")) (old-date-time (if old-date (org-time-string-to-time old-date))) (repeater (and old-date (string-match "\\([.+-]+[0-9]+[hdwmy]\\(?:[/ ][-+]?[0-9]+[hdwmy]\\)?\\) ?" old-date) (match-string 1 old-date)))) (cond ((equal arg (quote (4))) (progn (if (and old-date org-log-reschedule) (progn (org-add-log-setup ... nil old-date ... org-log-reschedule))) (org-remove-timestamp-with-keyword org-scheduled-string) (message "Item is no longer scheduled."))) ((equal arg (quote (16))) (save-excursion (if (re-search-forward org-scheduled-time-regexp (save-excursion ... ...) t) (let* (... ...) (replace-match ... t t)) (user-error "No scheduled information to update")))) (t (org-add-planning-info (quote scheduled) time (quote closed)) (if (and old-date org-log-reschedule (not (equal old-date ...))) (progn (org-add-log-setup (quote reschedule) nil old-date (quote findpos) org-log-reschedule))) (if repeater (progn (save-excursion (org-back-to-heading t) (if ... ...)))) (message "Scheduled to %s" org-last-inserted-timestamp)))))
  org-schedule(nil nil)
  (setq ts (org-schedule arg time))
  (save-current-buffer (set-buffer buffer) (widen) (goto-char pos) (setq ts (org-schedule arg time)))
  (let ((--cline (org-current-line)) (--cmd this-command) (--buf1 (current-buffer)) (--buf2 buffer) (--undo1 buffer-undo-list) (--undo2 (save-current-buffer (set-buffer buffer) buffer-undo-list)) --c1 --c2) (save-current-buffer (set-buffer buffer) (widen) (goto-char pos) (setq ts (org-schedule arg time))) (org-agenda-show-new-time marker ts " S") (if org-agenda-allow-remote-undo (progn (setq --c1 (org-verify-change-for-undo --undo1 (save-current-buffer (set-buffer --buf1) buffer-undo-list)) --c2 (org-verify-change-for-undo --undo2 (save-current-buffer (set-buffer --buf2) buffer-undo-list))) (if (or --c1 --c2) (progn (and --c1 (save-current-buffer (set-buffer --buf1) (undo-boundary))) (and --c2 (save-current-buffer (set-buffer --buf2) (undo-boundary))) (setq org-agenda-undo-list (cons (list --cmd --cline --buf1 --c1 --buf2 --c2) org-agenda-undo-list)))))))
  (let* ((marker (or (org-get-at-bol (quote org-marker)) (org-agenda-error))) (type (marker-insertion-type marker)) (buffer (marker-buffer marker)) (pos (marker-position marker)) (org-insert-labeled-timestamps-at-point nil) ts) (set-marker-insertion-type marker t) (let ((--cline (org-current-line)) (--cmd this-command) (--buf1 (current-buffer)) (--buf2 buffer) (--undo1 buffer-undo-list) (--undo2 (save-current-buffer (set-buffer buffer) buffer-undo-list)) --c1 --c2) (save-current-buffer (set-buffer buffer) (widen) (goto-char pos) (setq ts (org-schedule arg time))) (org-agenda-show-new-time marker ts " S") (if org-agenda-allow-remote-undo (progn (setq --c1 (org-verify-change-for-undo --undo1 (save-current-buffer (set-buffer --buf1) buffer-undo-list)) --c2 (org-verify-change-for-undo --undo2 (save-current-buffer (set-buffer --buf2) buffer-undo-list))) (if (or --c1 --c2) (progn (and --c1 (save-current-buffer ... ...)) (and --c2 (save-current-buffer ... ...)) (setq org-agenda-undo-list (cons ... org-agenda-undo-list))))))) (message "%s" ts))
  org-agenda-schedule(nil)
  call-interactively(org-agenda-schedule nil nil)