>> +      (let ((string (concat " " (prog2 (and ARG (forward-line 1))
>> +                                (org-trim (delete-and-extract-region 
>> (line-beginning-position)
>> +                                                                     
>> (line-end-position)))))))

Also,

  (concat " " 
          (progn (when ARG (forward-line))
                 (org-trim ...)))
                   

Reply via email to