Function: org-agenda-entry-text-show-here

org-agenda-entry-text-show-here is a byte-compiled function defined in org-agenda.el.gz.

Signature

(org-agenda-entry-text-show-here)

Documentation

Add some text from the entry as context to the current line.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
;;; Entry text mode

(defun org-agenda-entry-text-show-here ()
  "Add some text from the entry as context to the current line."
  (let (m txt o)
    (setq m (org-get-at-bol 'org-hd-marker))
    (unless (marker-buffer m)
      (error "No marker points to an entry here"))
    (setq txt (concat "\n" (org-no-properties
			    (org-agenda-get-some-entry-text
			     m org-agenda-entry-text-maxlines
			     org-agenda-entry-text-leaders))))
    (when (string-match "\\S-" txt)
      (setq o (make-overlay (line-beginning-position) (line-end-position)))
      (overlay-put o 'evaporate t)
      (overlay-put o 'org-overlay-type 'agenda-entry-content)
      (overlay-put o 'after-string txt))))