emacs - 仅打印文本丢弃文本属性

Question

我有以下函数来打印指向 *scratch* 缓冲区的行，

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

但它甚至像这样打印字体化信息

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

如何丢弃字体化信息的打印。

Answer 1

我需要类似的东西 eredis从组织表中操作字符串时。您可以使用 `set-text-properties'在显示字符串时摆脱它们。

(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*")))