Eric Abrahamsen <e...@ericabrahamsen.net> 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