Eric Abrahamsen <[email protected]> writes:
> (defun org-property-value-save (&optional prop)
> (interactive)
> (let* ((props (org-entry-properties))
> (prop (or prop
> (when (org-at-property-p)
> (org-match-string-no-properties 2))
> (org-completing-read
> "Get property: "
> props t)))
> (val (org-entry-get-with-inheritance prop)))
> (if val (progn
> (kill-new val)
> (message "Saved: %s" val))
> (message "No valid value for %s" prop))))
Perfect;) Thanks a lot.
--
Esben Stien is b0ef@e s a
http://www. s t n m
irc://irc. b - i . e/%23contact
sip:b0ef@ e e
jid:b0ef@ n n
