Function: org-agenda-show-new-time

org-agenda-show-new-time is a byte-compiled function defined in org-agenda.el.gz.

Signature

(org-agenda-show-new-time MARKER STAMP &optional PREFIX)

Documentation

Show new date stamp via text properties.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defun org-agenda-show-new-time (marker stamp &optional prefix)
  "Show new date stamp via text properties."
  ;; We use text properties to make this undoable
  (let ((inhibit-read-only t))
    (setq stamp (concat prefix " => " stamp " "))
    (save-excursion
      (goto-char (point-max))
      (while (not (bobp))
	(when (equal marker (org-get-at-bol 'org-marker))
          (remove-text-properties (line-beginning-position)
				  (line-end-position)
				  '(display nil))
	  (org-move-to-column
           (- (window-max-chars-per-line)
              (length stamp))
           t)
          (add-text-properties
           (1- (point)) (line-end-position)
	   (list 'display (org-add-props stamp nil
			    'face '(secondary-selection default))))
	  (beginning-of-line 1))
	(beginning-of-line 0)))))