2012-12-23 46 views
0

由于我想使用在使用align函数时不能很好对齐的字体,因此我想我可以在对齐文本之前更改字体类型。更改所选文本的字体属性(即使未选中)

所以,我不想改变选中的文本会发生什么,但是我想编辑选定的文本来改变当时的字体,允许使用align。

(defun set-font-and-align() 
    (change font type of the selected text) 
    (align-regexp) 
) 

任何想法?

回答

0

一些工作之后,这是我想出了:

(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))) 
) 
相关问题