[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: How to define a new font inserting command in AucTeX?
From: |
Adam P. |
Subject: |
Re: How to define a new font inserting command in AucTeX? |
Date: |
Fri, 07 Feb 2003 19:14:38 +0100 |
User-agent: |
Gnus/5.090015 (Oort Gnus v0.15) Emacs/21.2 (i386-debian-linux-gnu) |
Gerald Wildgruber <gwil.remove.this.phrase@lrz.uni-muenchen.de> writes:
> Can anyone help me with the definition of a new font command in AucTeX; I
> would like to make
>
> C-c C-f C-g
>
> insert the string
>
> \textgreek{}
>
> in analogy to the other font commands (like `C-c C-f C-e' for `\emph{}'),
> with text between point an mark being placed inbetween the brackets.
>
> How can I achieve this?
Does this work?
(setq LaTeX-font-list
'((?\C-a "" "" "\\mathcal{" "}")
(?\C-b "\\textbf{" "}" "\\mathbf{" "}")
(?\C-c "\\textsc{" "}")
(?\C-e "\\emph{" "}")
(?\C-f "\\textsf{" "}" "\\mathsf{" "}")
(?\C-i "\\textit{" "}" "\\mathit{" "}")
(?\C-m "\\textmd{" "}")
(?\C-n "\\textnormal{" "}" "\\mathnormal{" "}")
(?\C-r "\\textrm{" "}" "\\mathrm{" "}")
(?\C-s "\\textsl{" "}")
(?\C-t "\\texttt{" "}" "\\mathtt{" "}")
(?\C-u "\\textup{" "}")
(?\C-d "" "" t)
;; Note the line below
(?\C-g "\\textgreek{" "}" "\\textgreek{" "}")
)
)
Adam
--
Name and address in X-Real...