emacs - emacsバッファで長い単語を短い単語として表示するにはどうすればよいですか?

Question

のソースを読んでいて、単語をギリシャ文字に置き換えるどこかから取得したコードを使用して単語をrainbow-delimiters.el置き換えようとしていました。rainbow-delimitersRDlambda

これは私が思いついたコードであり、私が望むことをしません。

(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-delimiters、R と D を組み合わせた 1 文字に置き換えます。

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))