emacs - 如何使长单词在emacs缓冲区中显示为较短的单词？

Question

我正在阅读的来源，rainbow-delimiters.el然后我试图用我从某个地方得到的代码替换这个词，rainbow-delimiters用它的希腊字母替换这个词。RDlambda

这是我想出的代码，它没有做我想要的。

(defun my-simplify-prefix (prefix)
  ;; (interactive "sPrefix: ")
  (interactive (list "rainbow-delimiters"))
  (font-lock-add-keywords
   nil `((,(rx-to-string `(group ,prefix))
          (0 (progn (compose-region (match-beginning 1) (match-end 1)
                                    "RD")
                    nil)))))
  (font-lock-fontify-buffer))

相反，它用rainbow-delimitersR 和 D 组合的一个字母替换。

Answer 1

(defun my-simplify-prefix (prefix)
  (interactive "sPrefix: ")
  (font-lock-add-keywords
   nil `((,(rx-to-string `(group ,prefix))
           (0 (progn (put-text-property (match-beginning 1) (match-end 1)
                                        'display "RD")
                     nil)))))
  (font-lock-fontify-buffer))