Question

I have the following function to print the line where point is to the *scratch* buffer,

(defun print-line ()
  (print (thing-at-point 'line) (get-buffer "*scratch*")))

but it prints even the fontified info like this

#(" OFFICE
" 0 2 (fontified t org ...

How to discard the printing of the fontified info.

Answer 1

I needed something similar for eredis when manipulating strings from an org-table. You can use `set-text-properties’ to get rid of them when displaying the string.

(defun strip-text-properties(txt)
  (set-text-properties 0 (length txt) nil txt)
      txt)

(defun print-line ()
 (print (strip-text-properties 
         (thing-at-point 'line))
    (get-buffer "*scratch*")))