From f188721692c504fe230dd8082cb9a652e75e29a7 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 8 Apr 2012 18:19:17 +0200 Subject: [PATCH] org-element: Fix target interpretation * contrib/lisp/org-element.el (org-element-target-parser): Fix docstring. (org-element-target-interpreter): Fix target interpretation. --- contrib/lisp/org-element.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index 849eae0fd..c9d1f7cc4 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -2369,9 +2369,8 @@ CONTENTS is the contents of the object." (defun org-element-target-parser () "Parse target at point. -Return a list whose car is `target' and cdr a plist with -`:begin', `:end', `:contents-begin', `:contents-end', `value' and -`:post-blank' as keywords. +Return a list whose CAR is `target' and CDR a plist with +`:begin', `:end', `value' and `:post-blank' as keywords. Assume point is at the target." (save-excursion @@ -2389,8 +2388,8 @@ Assume point is at the target." (defun org-element-target-interpreter (target contents) "Interpret TARGET object as Org syntax. -CONTENTS is the contents of target." - (concat "")) +CONTENTS is nil." + (format "<<%s>>" (org-element-property :value target))) (defun org-element-target-successor (limit) "Search for the next target object.