Function: org-agenda-with-point-at-orig-entry

org-agenda-with-point-at-orig-entry is a macro defined in org-agenda.el.gz.

Signature

(org-agenda-with-point-at-orig-entry STRING &rest BODY)

Documentation

Execute BODY with point at location given by org-hd-marker property.

If STRING is non-nil, the text property will be fetched from position 0 in that string. If STRING is nil, it will be fetched from the beginning of the current line.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defmacro org-agenda-with-point-at-orig-entry (string &rest body)
  "Execute BODY with point at location given by `org-hd-marker' property.
If STRING is non-nil, the text property will be fetched from position 0
in that string.  If STRING is nil, it will be fetched from the beginning
of the current line."
  (declare (debug t) (indent 1))
  (org-with-gensyms (marker)
    `(let ((,marker (get-text-property (if ,string 0 (line-beginning-position))
				       'org-hd-marker ,string)))
       (with-current-buffer (marker-buffer ,marker)
	 (save-excursion
	   (goto-char ,marker)
	   ,@body)))))