いくつかの作業の後、これは私が思いついたものです:
(overlay-put (make-overlay (region-beginning) (region-end)) 'face '(:family "Monospace"))
これにより、リージョン内のテキストのフォントがモノスペースに変更されます。同様に、:bold
とりわけ追加することが可能です。
動作は次のとおりです。段落をマークし、等幅フォントを割り当て、との両方&
で整列するために使用し\\
ます。
(defun align-test ()
(interactive)
(mark-paragraph)
(overlay-put (make-overlay (region-beginning) (region-end)) 'face '(:family "Monospace"))
(if (eq major-mode 'latex-mode)
(progn (align-regexp (region-beginning) (region-end) "\\(\\s-*\\)&" 1 1 t )
(align-regexp (region-beginning) (region-end) "\\(\\s-*\\)\\\\\\\\" 1 1 t )))
)